godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 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 18be7f1be6
commit b1482d9a9f
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: