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

Revert "added SYSTEM.INT8, SYSTEM.INT16, SYSTEM.INT32, SYSTEM.INT64. tested only"

Browse source 
This reverts commit 060ec5134d [formerly 38794808ac].


Former-commit-id: 712244b161
This commit is contained in:
Norayr Chilingarian 2015-03-10 19:32:11 +04:00
parent cfe72ae364
commit ae02654300
6 changed files with 5 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/voc/OPT.Mod
View file

@ -68,8 +68,7 @@ MODULE OPT; (* NW, RC 6.3.89 / 23.1.92 *) (* object model 24.2.94 *)
typSize*: PROCEDURE(typ: Struct);
topScope*: Object;
undftyp*, bytetyp*, booltyp*, chartyp*, sinttyp*, inttyp*, linttyp*,
realtyp*, lrltyp*, settyp*, stringtyp*, niltyp*, notyp*, sysptrtyp*,
int8typ*, int16typ*, int32typ*, int64typ*: Struct;
realtyp*, lrltyp*, settyp*, stringtyp*, niltyp*, notyp*, sysptrtyp*: Struct;
nofGmod*: SHORTINT; (*nof imports*)
GlbMod*: ARRAY maxImps OF Object; (* ^.right = first object, ^.name = module import name (not alias) *)
SelfName*: OPS.Name; (* name of module being compiled *)
@ -1043,10 +1042,6 @@ BEGIN topScope := NIL; OpenScope(0, NIL); OPM.errpos := 0;
(*initialization of module SYSTEM*)
EnterTyp("BYTE", Byte, OPM.ByteSize, bytetyp);
EnterTyp("INT8", Byte, 1, int8typ);
EnterTyp("INT16", SInt, 2, int16typ);
EnterTyp("INT32", Int, 4, int32typ);
EnterTyp("INT64", LInt, 8, int64typ);
EnterTyp("PTR", Pointer, OPM.PointerSize, sysptrtyp);
EnterProc("ADR", adrfn);
EnterProc("CC", ccfn);