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

Support 64 bit integer literals on all builds, and fix 64 bit Console.hex display.

Browse source
This commit is contained in:
David Brown 2016-09-15 15:23:08 +01:00
parent 7fad168e40
commit dc699db9f5
199 changed files with 478 additions and 477 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/system/Console.Mod
View file

@ -10,7 +10,7 @@ MODULE Console; (* J. Templ, 29-June-96 *)
PROCEDURE Flush*;
VAR error: Platform.ErrorCode;
BEGIN
error := Platform.Write(Platform.StdOut, SYSTEM.ADR(line), pos);
error := Platform.Write(Platform.StdOut, SYSTEM.ADR(line), pos);
pos := 0;
END Flush;
@ -53,9 +53,9 @@ MODULE Console; (* J. Templ, 29-June-96 *)
END Bool;
PROCEDURE Hex*(i: LONGINT);
VAR k, n: LONGINT;
VAR k: INTEGER; n: SYSTEM.INT64;
BEGIN
k := -28;
k := 4 - 8 * SIZE(LONGINT);
WHILE k <= 0 DO
n := ASH(i, k) MOD 16;
IF n <= 9 THEN Char(CHR(ORD("0") + n)) ELSE Char(CHR(ORD("A") - 10 + n)) END ;