godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

version with better overflow checking

Browse Source
This commit is contained in:
ceriel
1987-11-26 14:15:24 +00:00
parent 22cce0c2e1
commit 1994d67d9e
9 changed files with 368 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lang/m2/comp/chk_expr.c
View File

@@ -103,7 +103,7 @@ MkCoercion(pnd, tp)
}
break;
case T_INTEGER: {
long i = ~int_mask[(int)(tp->tp_size)];
long i = ~max_int[(int)(tp->tp_size)];
long j = nd->nd_INT & i;
if ((nd_tp->tp_fund == T_INTEGER &&
@@ -896,7 +896,10 @@ ChkBinOper(expp)
}
else if ( tpl->tp_fund != T_REAL &&
left->nd_class == Value && right->nd_class == Value) {
cstbin(expp);
if (expp->nd_left->nd_type->tp_fund == T_INTEGER) {
cstibin(expp);
}
else cstubin(expp);
}
return 1;