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

Ha! Now fix hexdump for -OC build.

Browse source
This commit is contained in:
David Brown 2016-12-11 17:43:05 +00:00
parent c409b84e68
commit 6e28d3f2fd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/runtime/Out.Mod
View file

@ -87,7 +87,7 @@ END Ln;
PROCEDURE HexDumpAdr*(adr: SYSTEM.ADDRESS; offset: HUGEINT; length: LONGINT); PROCEDURE HexDumpAdr*(adr: SYSTEM.ADDRESS; offset: HUGEINT; length: LONGINT);
VAR i: INTEGER; n, lim: SYSTEM.ADDRESS; c: CHAR; VAR i: INTEGER; n, lim: SYSTEM.ADDRESS; c: CHAR;
BEGIN BEGIN
lim := adr+length; lim := SYSTEM.VAL(SYSTEM.ADDRESS, adr+length);
WHILE adr < lim DO WHILE adr < lim DO
IF adr+16 < lim THEN n := 16 ELSE n := lim-adr END; IF adr+16 < lim THEN n := 16 ELSE n := lim-adr END;
Hex(offset,8); Char(" "); Hex(offset,8); Char(" ");