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);
break;
case POINTER:
C_loc(right->ex_type->tp_size);
C_loc(pointer_size);
C_cuu();
C_ads(pointer_size);
ptr_add(right->ex_type->tp_size);
break;
case FLOAT:
case DOUBLE:
@ -191,10 +188,7 @@ EVAL(expr, val, code, true_label, false_label)
C_sbs(pointer_size);
else {
C_ngi(right->ex_type->tp_size);
C_loc(right->ex_type->tp_size);
C_loc(pointer_size);
C_cuu();
C_ads(pointer_size);
ptr_add(right->ex_type->tp_size);
}
break;
case FLOAT:
@ -805,16 +799,24 @@ assop(type, oper)
case POINTER:
if (oper == MINAB || oper == MINMIN || oper == POSTDECR)
C_ngi(size);
C_loc(size);
C_loc(pointer_size);
C_cuu();
C_ads(pointer_size);
ptr_add(size);
break;
default:
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.
There are four ways of storing data:
- into a global variable