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

changed code for loops a bit, and fixed an error in MkCoercion

Browse Source
This commit is contained in:
ceriel
1987-08-19 18:07:41 +00:00
parent 5d5c36b37a
commit 2e8c8ec706
3 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -63,12 +63,10 @@ MkCoercion(pnd, tp)
if (nd_tp->tp_fund == T_STRING) return;
nd_tp = BaseType(nd_tp);
if (nd->nd_class == Value) {
if (nd_tp->tp_fund == T_REAL && tp->tp_fund != T_REAL) goto Out;
switch(tp->tp_fund) {
case T_REAL:
if (nd_tp->tp_fund == T_REAL) {
break;
}
goto Out;
break;
case T_SUBRANGE:
if (! chk_bounds(tp->sub_lb, nd->nd_INT,
BaseType(tp)->tp_fund) ||
@@ -92,8 +90,7 @@ MkCoercion(pnd, tp)
case T_INTORCARD:
case T_CARDINAL:
case T_POINTER:
if ((nd_tp->tp_fund == T_INTEGER &&
nd->nd_INT < 0) ||
if ((nd_tp->tp_fund == T_INTEGER && nd->nd_INT < 0) ||
(nd->nd_INT & ~full_mask[(int)(tp->tp_size)])) {
node_warning(nd,
W_ORDINARY,