gc4.14alpha1 tarball importgc4_14alpha1

1 files changed, 7 insertions, 2 deletions

diff --git a/blacklst.c b/blacklst.c
index 44455e5b..0d623c0f 100644
--- a/blacklst.c
+++ b/blacklst.c
@@ -63,11 +63,16 @@ ptr_t p;
 void (*GC_print_heap_obj)(/* char * s, ptr_t p */) =
 				GC_default_print_heap_obj_proc;
 
-void GC_print_source_ptr(ptr_t p)
+void GC_print_source_ptr(p)
+ptr_t p;
 {
     ptr_t base = GC_base(p);
     if (0 == base) {
-	GC_err_printf0("in root set");
+	if (0 == p) {
+	    GC_err_printf0("in register");
+	} else {
+	    GC_err_printf0("in root set");
+	}
     } else {
 	GC_err_printf0("in object at ");
 	(*GC_print_heap_obj)(base);