From 85eeef6ae408f8fc80e58feb57ec6ea401649f46 Mon Sep 17 00:00:00 2001 From: David Brown Date: Tue, 13 Dec 2016 18:52:42 +0000 Subject: [PATCH] Supportix dump of block with uncleared GC flag in bit 0 of tag. --- src/runtime/Out.Mod | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/Out.Mod b/src/runtime/Out.Mod index c338fb16..26decdb1 100644 --- a/src/runtime/Out.Mod +++ b/src/runtime/Out.Mod @@ -213,7 +213,7 @@ BEGIN WHILE c.end - baddr > 0 DO String(" Block at: "); Hex(baddr, 1); Ln; b := SYSTEM.VAL(block, baddr); - tag := SYSTEM.VAL(adrptr, b.tag); + tag := SYSTEM.VAL(adrptr, b.tag - (b.tag MOD 2)); (* mask out heap management flag in bit 0. *) String(" tag: "); Hex(b.tag, 1); IF b.tag MOD 2 # 0 THEN String(" <--- ODD! ---") END; Ln; String(" tag^: "); Hex(tag^[0], 1); Ln; String(" size: "); Hex(b.size, 1); Ln;