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

fixed a bug: casts to short or char did not work right

Browse source
This commit is contained in:
ceriel 1987-11-23 13:48:09 +00:00
parent 2e932ba803
commit 70403f62d9
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -102,6 +102,21 @@ conversion(from_type, to_type)
default: default:
crash("(conversion) illegal type conversion"); crash("(conversion) illegal type conversion");
} }
if (to_type->tp_size < word_size
#ifndef NOFLOAT
&& to_fund != T_FLOATING
#endif NOFLOAT
) {
extern long full_mask[];
C_loc((arith) full_mask[(int)(to_type->tp_size)]);
C_and(word_size);
if (to_fund == T_SIGNED) {
C_loc(to_type->tp_size);
C_loc(word_size);
C_cii();
}
}
} }
/* fundamental() returns in which category a given type falls: /* fundamental() returns in which category a given type falls: