summaryrefslogtreecommitdiff
path: root/blacklst.c
diff options
context:
space:
mode:
authorIvan Maidanski <ivmai@mail.ru>2011-07-26 13:27:52 +0200
committerIvan Maidanski <ivmai@mail.ru>2011-07-26 13:27:52 +0200
commite9faf6971ce03082cf82bdfaea1fa06741753379 (patch)
tree26e4c79943d779636ea3fa0b822a6a7f7aba02ac /blacklst.c
parentc521d2cf164f9d7e1fa8be9c0b21d223e265fa64 (diff)
gc4.14alpha1 tarball importgc4_14alpha1
Diffstat (limited to 'blacklst.c')
-rw-r--r--blacklst.c9
1 files changed, 7 insertions, 2 deletions
diff --git a/blacklst.c b/blacklst.c
index 44455e5..0d623c0 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);