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

Improved checks for conversion between cardinal and integer

Browse source
This commit is contained in:
ceriel 1989-08-21 17:08:54 +00:00
parent 360caa08bb
commit 73246f3824
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/m2/comp/code.c
View file

@ -643,12 +643,14 @@ RangeCheck(tpl, tpr)
genrck(tpl); genrck(tpl);
return; return;
} }
if (tpl->tp_size <= tpr->tp_size && tpr = BaseType(tpr);
((tpl->tp_fund == T_INTEGER && tpr == card_type) || if ((tpl->tp_fund == T_INTEGER && tpr == card_type) ||
(tpr->tp_fund == T_INTEGER && tpl == card_type))) { (tpr->tp_fund == T_INTEGER && tpl == card_type)) {
label lb = ++text_label; label lb = ++text_label;
C_dup(word_size); C_dup(tpr->tp_size);
C_zer(tpr->tp_size);
C_cmi(tpr->tp_size);
C_zge(lb); C_zge(lb);
c_loc(ECONV); c_loc(ECONV);
C_trp(); C_trp();