mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 20:22:24 +00:00
Fix dump of chunk that crosses +ve to -ve address. Could this be the underlying issue in Heap?
This commit is contained in:
parent
d7de570177
commit
30bae1a622
1 changed files with 1 additions and 1 deletions
|
|
@ -210,7 +210,7 @@ BEGIN
|
||||||
String(" rsvd: "); Hex(c.reserved, 1); Ln;
|
String(" rsvd: "); Hex(c.reserved, 1); Ln;
|
||||||
|
|
||||||
baddr := SYSTEM.ADR(c.firstblock);
|
baddr := SYSTEM.ADR(c.firstblock);
|
||||||
WHILE baddr < c.end DO
|
WHILE c.end - baddr > 0 DO
|
||||||
String(" Block at: "); Hex(baddr, 1); Ln;
|
String(" Block at: "); Hex(baddr, 1); Ln;
|
||||||
b := SYSTEM.VAL(block, baddr);
|
b := SYSTEM.VAL(block, baddr);
|
||||||
tag := SYSTEM.VAL(adrptr, b.tag);
|
tag := SYSTEM.VAL(adrptr, b.tag);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue