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

Renumber forms removing gaps for SInt and LInt.

Browse source
This commit is contained in:
David Brown 2016-08-31 18:46:03 +01:00
parent a1fd798f6d
commit 68cf60c401
1 changed files with 5 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/compiler/OPT.Mod
View file

@ -91,10 +91,10 @@ TYPE
CONST CONST
(* Struct.form values *) (* Struct.form values *)
Undef* = 0; Byte* = 1; Bool* = 2; Char* = 3; Undef* = 0; Byte* = 1; Bool* = 2; Char* = 3;
Int* = 5; Int* = 4;
Real* = 7; LReal* = 8; Set* = 9; String* = 10; Real* = 5; LReal* = 6; Set* = 7; String* = 8;
NilTyp* = 11; NoTyp* = 12; Pointer* = 13; ProcTyp* = 14; NilTyp* = 9; NoTyp* = 10; Pointer* = 11; ProcTyp* = 12;
Comp* = 15; Comp* = 13;
realSet* = {Real, LReal}; realSet* = {Real, LReal};
@ -1213,10 +1213,8 @@ BEGIN topScope := NIL; OpenScope(0, NIL); OPM.errpos := 0;
EnterTyp("SET", Set, OPM.SetSize, settyp); EnterTyp("SET", Set, OPM.SetSize, settyp);
EnterTyp("REAL", Real, OPM.RealSize, realtyp); EnterTyp("REAL", Real, OPM.RealSize, realtyp);
EnterTyp("INTEGER", Int, OPM.IntSize, inttyp); EnterTyp("INTEGER", Int, OPM.IntSize, inttyp);
(*EnterTyp("LONGINT", LInt, OPM.LIntSize, linttyp);*)
EnterTyp("LONGINT", Int, OPM.LIntSize, linttyp); EnterTyp("LONGINT", Int, OPM.LIntSize, linttyp);
EnterTyp("LONGREAL", LReal, OPM.LRealSize, lrltyp); EnterTyp("LONGREAL", LReal, OPM.LRealSize, lrltyp);
(*EnterTyp("SHORTINT", SInt, OPM.SIntSize, sinttyp);*)
EnterTyp("SHORTINT", Int, OPM.SIntSize, sinttyp); EnterTyp("SHORTINT", Int, OPM.SIntSize, sinttyp);
EnterBoolConst("FALSE", 0); (* 0 and 1 are compiler internal representation only *) EnterBoolConst("FALSE", 0); (* 0 and 1 are compiler internal representation only *)
@ -1248,9 +1246,7 @@ BEGIN topScope := NIL; OpenScope(0, NIL); OPM.errpos := 0;
impCtxt.ref[Byte] := bytetyp; impCtxt.ref[Byte] := bytetyp;
impCtxt.ref[Bool] := booltyp; impCtxt.ref[Bool] := booltyp;
impCtxt.ref[Char] := chartyp; impCtxt.ref[Char] := chartyp;
(*impCtxt.ref[SInt] := sinttyp;*)
impCtxt.ref[Int] := inttyp; impCtxt.ref[Int] := inttyp;
(*impCtxt.ref[LInt] := linttyp;*)
impCtxt.ref[Real] := realtyp; impCtxt.ref[Real] := realtyp;
impCtxt.ref[LReal] := lrltyp; impCtxt.ref[LReal] := lrltyp;
impCtxt.ref[Set] := settyp; impCtxt.ref[Set] := settyp;
@ -1297,9 +1293,7 @@ Objects:
Byte Basic | Byte Basic |
Bool Basic | Bool Basic |
Char Basic | Char Basic |
SInt Basic | Int Basic | size determine SHORT vs LONG
Int Basic |
LInt Basic |
XInt Basic | bits XInt Basic | bits
Real Basic | Real Basic |
LReal Basic | LReal Basic |