FLOAT did not work

This commit is contained in:
ceriel 1987-08-24 14:23:13 +00:00
parent 6fdd5b6a6d
commit 99f8e49e93

View file

@ -63,7 +63,7 @@ MkCoercion(pnd, tp)
if (nd_tp->tp_fund == T_STRING) return;
nd_tp = BaseType(nd_tp);
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) {
case T_SUBRANGE:
if (! chk_bounds(tp->sub_lb, nd->nd_INT,