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

prevent a voluntary crash and generate better code

Browse source
This commit is contained in:
ceriel 1988-01-11 14:06:20 +00:00
parent 85348f653d
commit 897b86cba2
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lang/cem/cemcom/conversion.c
View file

@ -109,13 +109,15 @@ conversion(from_type, to_type)
) { ) {
extern long full_mask[]; extern long full_mask[];
C_loc((arith) full_mask[(int)(to_type->tp_size)]);
C_and(word_size);
if (to_fund == T_SIGNED) { if (to_fund == T_SIGNED) {
C_loc(to_type->tp_size); C_loc(to_type->tp_size);
C_loc(word_size); C_loc(word_size);
C_cii(); C_cii();
} }
else {
C_loc((arith) full_mask[(int)(to_type->tp_size)]);
C_and(word_size);
}
} }
} }

1
lang/cem/cemcom/declar.g
View file

@ -177,6 +177,7 @@ initializer(struct idf *idf; int sc;)
: :
{ if (idf->id_def->df_type->tp_fund == FUNCTION) { { if (idf->id_def->df_type->tp_fund == FUNCTION) {
error("illegal initialization of function"); error("illegal initialization of function");
idf->id_def->df_type->tp_fund = ERRONEOUS;
} }
} }
[ [