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

Fix hexdump on 32 bit builds.

Browse source
This commit is contained in:
David Brown 2016-12-11 17:31:25 +00:00
parent fb3017e3e2
commit 3c1e64375e
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/runtime/Out.Mod
View file

@ -84,16 +84,16 @@ PROCEDURE Ln*;
BEGIN String(Platform.NL); Flush; BEGIN String(Platform.NL); Flush;
END Ln; END Ln;
PROCEDURE HexDumpAdr*(a, o, l: SYSTEM.ADDRESS); PROCEDURE HexDumpAdr*(adr: SYSTEM.ADDRESS; offset: HUGEINT; length: LONGINT);
VAR i, n, lim: SYSTEM.ADDRESS; c: CHAR; VAR i: INTEGER; n, lim: SYSTEM.ADDRESS; c: CHAR;
BEGIN BEGIN
lim := a+l; lim := adr+length;
WHILE a < lim DO WHILE adr < lim DO
IF a+16 < lim THEN n := 16 ELSE n := lim-a END; IF adr+16 < lim THEN n := 16 ELSE n := lim-adr END;
Hex(o,8); Char(" "); Hex(offset,8); Char(" ");
i := 0; WHILE i < n DO i := 0; WHILE i < n DO
IF i MOD 4 = 0 THEN Char(" ") END; IF i MOD 4 = 0 THEN Char(" ") END;
SYSTEM.GET(a+i, c); Hex(ORD(c), 2); Char(" "); SYSTEM.GET(adr+i, c); Hex(ORD(c), 2); Char(" ");
INC(i) INC(i)
END; END;
WHILE i < 16 DO WHILE i < 16 DO
@ -102,11 +102,11 @@ BEGIN
END; END;
String(" "); String(" ");
i := 0; WHILE i < n DO i := 0; WHILE i < n DO
SYSTEM.GET(a+i, c); SYSTEM.GET(adr+i, c);
IF (ORD(c) < 32) OR (ORD(c) > 126) THEN Char(".") ELSE Char(c) END; IF (ORD(c) < 32) OR (ORD(c) > 126) THEN Char(".") ELSE Char(c) END;
INC(i) INC(i)
END; END;
INC(a,n); INC(o,n); Ln INC(adr,n); INC(offset,n); Ln
END END
END HexDumpAdr; END HexDumpAdr;