Merge separately committed support for INT64 import.

This commit is contained in:
David Brown 2016-09-18 11:06:20 +01:00
commit 08f09a097d
196 changed files with 770 additions and 538 deletions

View file

@ -209,9 +209,9 @@ VAR
PROCEDURE err(n: INTEGER);
BEGIN OPM.err(n)
END err;
PROCEDURE err(n: INTEGER); BEGIN OPM.err(n) END err;
PROCEDURE IntType*(size: LONGINT): Struct;
(* Selects smallest standard integer type for given size in bytes *)
@ -1190,6 +1190,8 @@ END Import;
obj^.mode := SProc; obj^.typ := notyp; obj^.adr := num
END EnterProc;
BEGIN topScope := NIL; OpenScope(0, NIL); OPM.errpos := 0;
InitStruct(undftyp, Undef); undftyp^.BaseTyp := undftyp;
InitStruct(notyp, NoTyp);