diff options
Diffstat (limited to 'gcc/m2/gm2-compiler/M2GCCDeclare.mod')
| -rw-r--r-- | gcc/m2/gm2-compiler/M2GCCDeclare.mod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/m2/gm2-compiler/M2GCCDeclare.mod b/gcc/m2/gm2-compiler/M2GCCDeclare.mod index 7dcf439..b12add6 100644 --- a/gcc/m2/gm2-compiler/M2GCCDeclare.mod +++ b/gcc/m2/gm2-compiler/M2GCCDeclare.mod @@ -144,7 +144,7 @@ FROM M2Base IMPORT IsPseudoBaseProcedure, IsPseudoBaseFunction, Boolean, True, False, Nil, IsRealType, IsNeededAtRunTime, IsComplexType ; -FROM M2System IMPORT IsPseudoSystemFunction, IsSystemType, +FROM M2System IMPORT IsPseudoSystemFunction, IsSystemType, IsRealN, GetSystemTypeMinMax, Address, Word, Byte, Loc, System, IntegerN, CardinalN, WordN, RealN, SetN, ComplexN, CSizeT, CSSizeT, COffT ; @@ -1918,7 +1918,7 @@ END IsAnyType ; then enter it into the to do list. *) -PROCEDURE TryDeclareType (tokenno: CARDINAL; type: CARDINAL) ; +PROCEDURE TryDeclareType (type: CARDINAL) ; BEGIN IF (type#NulSym) AND IsAnyType (type) THEN @@ -2013,7 +2013,7 @@ BEGIN ELSIF IsConstructor(sym) THEN DeclareConstantFromTree(sym, PopConstructorTree(tokenno)) - ELSIF IsRealType(GetDType(sym)) + ELSIF IsRealType (GetDType (sym)) OR IsRealN (GetDType (sym)) THEN type := GetDType(sym) ; DeclareConstantFromTree(sym, BuildConvert(TokenToLocation(tokenno), Mod2Gcc(type), PopRealTree(), TRUE)) |