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

FLOAT did not work

Browse source
This commit is contained in:
ceriel 1987-08-24 14:23:13 +00:00
parent 6fdd5b6a6d
commit 99f8e49e93
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,