tools.image-analyzer.*: wrap read objects in heap-node tuples with their addresses

[factor.git] / extra / tools / image-analyzer / vm / vm.factor

diff --git a/extra/tools/image-analyzer/vm/vm.factor b/extra/tools/image-analyzer/vm/vm.factor
index 6f05668a3e9e34633828ca0a425d07501449f2ab..30b13d46bb6784690fbf89d08fda64850ece8ff0 100644 (file)
--- a/extra/tools/image-analyzer/vm/vm.factor
+++ b/extra/tools/image-analyzer/vm/vm.factor
@@ -90,3 +90,7 @@ STRUCT: code-block
     { owner cell_t }
     { parameters cell_t }
     { relocation cell_t } ;
+
+TUPLE: heap-node address object payload ;
+
+TUPLE: code-heap-node < heap-node free? gc-maps ;