Fix dump of chunk that crosses +ve to -ve address. Could this be the underlying issue in Heap?

This commit is contained in:
David Brown 2016-12-13 18:42:16 +00:00
parent d7de570177
commit 30bae1a622

View file

@ -210,7 +210,7 @@ BEGIN
String(" rsvd: "); Hex(c.reserved, 1); Ln;
baddr := SYSTEM.ADR(c.firstblock);
WHILE baddr < c.end DO
WHILE c.end - baddr > 0 DO
String(" Block at: "); Hex(baddr, 1); Ln;
b := SYSTEM.VAL(block, baddr);
tag := SYSTEM.VAL(adrptr, b.tag);