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

fixes, added some standard functions to handle LONGREAL, LONGINT

Browse Source
This commit is contained in:
ceriel
1987-05-27 10:16:03 +00:00
parent 86c5c56a38
commit bb9b16ab50
17 changed files with 210 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lang/m2/comp/code.c
View File

@@ -456,11 +456,6 @@ CodeStd(nd)
RangeCheck(char_type, tp);
break;
case S_FLOAT:
CodePExpr(left);
CodeCoercion(tp, real_type);
break;
case S_HIGH:
assert(IsConformantArray(tp));
DoHIGH(left->nd_def);
@@ -493,9 +488,14 @@ CodeStd(nd)
CodePExpr(left);
break;
case S_TRUNCD:
case S_TRUNC:
case S_FLOAT:
case S_FLOATD:
case S_LONG:
case S_SHORT:
CodePExpr(left);
CodeCoercion(tp, card_type);
CodeCoercion(tp, nd->nd_type);
break;
case S_VAL: