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

Correct set size in component pascal compatability mode

Browse source
This commit is contained in:
Dave Brown 2019-11-19 15:53:20 +00:00
parent 2ddbf5d517
commit 7f4b284aef
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/compiler/Compiler.Mod Normal file → Executable file
View file

@ -66,7 +66,7 @@ MODULE Compiler; (* J. Templ 3.2.95 *)
OPT.intobj.typ := OPT.inttyp; OPT.intobj.typ := OPT.inttyp;
OPT.lintobj.typ := OPT.linttyp; OPT.lintobj.typ := OPT.linttyp;
CASE OPM.LongintSize OF CASE OPM.SetSize OF
|4: OPT.settyp := OPT.set32typ |4: OPT.settyp := OPT.set32typ
ELSE OPT.settyp := OPT.set64typ ELSE OPT.settyp := OPT.set64typ
END; END;

10
src/compiler/OPM.Mod Normal file → Executable file
View file

@ -92,7 +92,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
GlobalAlignment, Alignment*: INTEGER; GlobalAlignment, Alignment*: INTEGER;
GlobalOptions*, Options*: SET; GlobalOptions*, Options*: SET;
ShortintSize*, IntegerSize*, LongintSize*: INTEGER; ShortintSize*, IntegerSize*, LongintSize*, SetSize*: INTEGER;
MaxIndex*: SYSTEM.INT64; MaxIndex*: SYSTEM.INT64;
@ -328,10 +328,10 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
MaxIndex := SignedMaximum(AddressSize); MaxIndex := SignedMaximum(AddressSize);
CASE Model[0] OF CASE Model[0] OF
|'2': ShortintSize := 1; IntegerSize := 2; LongintSize := 4 |'2': ShortintSize := 1; IntegerSize := 2; LongintSize := 4; SetSize := 4;
|'C': ShortintSize := 2; IntegerSize := 4; LongintSize := 8 |'C': ShortintSize := 2; IntegerSize := 4; LongintSize := 8; SetSize := 4;
|'V': ShortintSize := 1; IntegerSize := 4; LongintSize := 8 |'V': ShortintSize := 1; IntegerSize := 4; LongintSize := 8; SetSize := 8;
ELSE ShortintSize := 1; IntegerSize := 2; LongintSize := 4 ELSE ShortintSize := 1; IntegerSize := 2; LongintSize := 4; SetSize := 4;
END; END;
(*IF verbose IN Options THEN VerboseListSizes END;*) (*IF verbose IN Options THEN VerboseListSizes END;*)