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

FLOAT did not work

Browse Source
This commit is contained in:
ceriel 1987-08-24 14:23:13 +00:00
parent 5a28a174e4
commit 937f4e48fe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,7 +63,7 @@ MkCoercion(pnd, tp)
if (nd_tp->tp_fund == T_STRING) return; if (nd_tp->tp_fund == T_STRING) return;
nd_tp = BaseType(nd_tp); nd_tp = BaseType(nd_tp);
if (nd->nd_class == Value && if (nd->nd_class == Value &&
(nd_tp->tp_fund != T_REAL && tp->tp_fund != REAL)) { (nd_tp->tp_fund != T_REAL && tp->tp_fund != T_REAL)) {
switch(tp->tp_fund) { switch(tp->tp_fund) {
case T_SUBRANGE: case T_SUBRANGE:
if (! chk_bounds(tp->sub_lb, nd->nd_INT, if (! chk_bounds(tp->sub_lb, nd->nd_INT,