d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Generate less stupid conversions

Browse source
This commit is contained in:
ceriel 1991-02-01 09:54:21 +00:00
parent 2c3dcb0547
commit 0539581d5d
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lang/cem/cemcom.ansi/eval.c
View file

@ -135,10 +135,7 @@ EVAL(expr, val, code, true_label, false_label)
C_adi(tp->tp_size); C_adi(tp->tp_size);
break; break;
case POINTER: case POINTER:
C_loc(right->ex_type->tp_size); ptr_add(right->ex_type->tp_size);
C_loc(pointer_size);
C_cuu();
C_ads(pointer_size);
break; break;
case FLOAT: case FLOAT:
case DOUBLE: case DOUBLE:
@ -191,10 +188,7 @@ EVAL(expr, val, code, true_label, false_label)
C_sbs(pointer_size); C_sbs(pointer_size);
else { else {
C_ngi(right->ex_type->tp_size); C_ngi(right->ex_type->tp_size);
C_loc(right->ex_type->tp_size); ptr_add(right->ex_type->tp_size);
C_loc(pointer_size);
C_cuu();
C_ads(pointer_size);
} }
break; break;
case FLOAT: case FLOAT:
@ -805,16 +799,24 @@ assop(type, oper)
case POINTER: case POINTER:
if (oper == MINAB || oper == MINMIN || oper == POSTDECR) if (oper == MINAB || oper == MINMIN || oper == POSTDECR)
C_ngi(size); C_ngi(size);
C_loc(size); ptr_add(size);
C_loc(pointer_size);
C_cuu();
C_ads(pointer_size);
break; break;
default: default:
crash("(assop) bad type %s\n", symbol2str(type->tp_fund)); crash("(assop) bad type %s\n", symbol2str(type->tp_fund));
} }
} }
ptr_add(size)
arith size;
{
if (size != pointer_size) {
C_loc(size);
C_loc(pointer_size);
C_cuu();
}
C_ads(pointer_size);
}
/* store_val() generates code for a store operation. /* store_val() generates code for a store operation.
There are four ways of storing data: There are four ways of storing data:
- into a global variable - into a global variable