vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 09:52:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use SET64 representation in the compiler.

Browse source
This commit is contained in:
David Brown 2016-09-30 19:00:33 +01:00
parent 2e02f9204c
commit 7238be5257
38 changed files with 119 additions and 126 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/compiler/OPM.Mod
View file

@ -552,7 +552,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
END FPrint;
PROCEDURE FPrintSet*(VAR fp: LONGINT; set: SET); (*SYSTEM.SET64);*)
PROCEDURE FPrintSet*(VAR fp: LONGINT; set: SYSTEM.SET64);
BEGIN FPrint(fp, SYSTEM.VAL(LONGINT, set))
END FPrintSet;
@ -603,7 +603,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
BEGIN Files.ReadNum(oldSF, k); RETURN k
END SymRInt64;
PROCEDURE SymRSet*(VAR s: SET); (*SYSTEM.SET64);*)
PROCEDURE SymRSet*(VAR s: SYSTEM.SET64);
BEGIN Files.ReadNum(oldSF, s)
END SymRSet;
@ -648,15 +648,9 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
BEGIN Files.WriteNum(newSF, i)
END SymWInt;
(*
PROCEDURE SymWSet*(s: SYSTEM.SET64);
BEGIN Files.WriteNum(newSF, SYSTEM.VAL(SYSTEM.INT64, s))
END SymWSet;
*)
PROCEDURE SymWSet*(s: SET);
BEGIN Files.WriteNum(newSF, SYSTEM.VAL(LONGINT, s))
END SymWSet;
PROCEDURE SymWReal*(r: REAL);
BEGIN Files.WriteReal(newSF, r)

3
src/compiler/OPT.Mod
View file

@ -15,8 +15,7 @@ TYPE
ext*: ConstExt; (* string or code for code proc *)
intval*: SYSTEM.INT64; (* constant value or adr, proc par size, text position or least case label *)
intval2*: LONGINT; (* string length, proc var size or larger case label *)
(*setval*: SYSTEM.SET64;*) (* constant value, procedure body present or "ELSE" present in case *)
setval*: SET; (* constant value, procedure body present or "ELSE" present in case *)
setval*: SYSTEM.SET64; (* constant value, procedure body present or "ELSE" present in case *)
realval*: LONGREAL (* real or longreal constant value *)
END;

2
src/test/confidence/planned-binary-change
View file

@ -1 +1 @@
25 Sep 2016 15:50:01
30 Sep 2016 18:58:19