Useful debugging function for spurious retention.

* gc.c (gc_report_copies): New function

* gc.h (gc_report_copies): Declared.

1 files changed, 12 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index 58f0790c..fdc32195 100644
--- a/gc.c
+++ b/gc.c
@@ -918,3 +918,15 @@ void gc_hint_func(val *val)
 {
   (void) val;
 }
+
+void gc_report_copies(val *pvar)
+{
+  val *opvar = pvar;
+  val obj = *pvar++;
+
+  for (; pvar < gc_stack_bottom; pvar++) {
+    if (*pvar == obj)
+      printf("%p found at %p (offset %d)\n",
+             (void *) obj, (void *) pvar, (int) (pvar - opvar));
+  }
+}