In GC_USE_PRECISE==1, print out some debug messages in trace_system_a…

…reas when we find an unanchored PMC or STRING. We can use that output to help narrow down occurances.
parrot · Sep 26, 2011 · add0f24 · add0f24
1 parent 117bd2e
commit add0f24
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/include/parrot/gc_api.h b/include/parrot/gc_api.h
@@ -13,7 +13,7 @@
 
 /* Flag to turn on precise GC
     0 = no precise GC (use only stack walking)
-    1 = precise GC + stack walking
+    1 = precise GC + stack walking (for debug, also print debug messages)
     2 = precise GC only (this is what we want)
 */
 

diff --git a/src/gc/system.c b/src/gc/system.c
@@ -485,14 +485,25 @@ trace_mem_block(PARROT_INTERP,
             if ((pmc_min <= ptr)
             &&  (ptr < pmc_max)
             &&  interp->gc_sys->is_pmc_ptr(interp, (void *)ptr)) {
+#if GC_USE_PRECISE == 1
+                fprintf(stderr, "GC_USE_PRECISE: Found PMC %x at stack location %x\n", ptr, cur_var_ptr);
+#endif
                 Parrot_gc_mark_PMC_alive(interp, (PMC *)ptr);
             }
             else if ((buffer_min <= ptr) && (ptr < buffer_max)
             &&        interp->gc_sys->is_string_ptr(interp, (void *)ptr)) {
-                if (PObj_is_string_TEST((PObj *)ptr))
+                if (PObj_is_string_TEST((PObj *)ptr)) {
+#if GC_USE_PRECISE == 1
+                    fprintf(stderr, "GC_USE_PRECISE: Found STRING %x at stack location %x\n", ptr, cur_var_ptr);
+#endif
                     Parrot_gc_mark_STRING_alive(interp, (STRING *)ptr);
-                else
+                }
+                else {
+#if GC_USE_PRECISE == 1
+                    fprintf(stderr, "GC_USE_PRECISE: Found random PObj (???) %x at stack location %x\n", ptr, cur_var_ptr);
+#endif
                     PObj_live_SET((PObj *)ptr);
+                }
             }
         }
     }