From 8674b2d2b73bf7d7402d323f8179d1312b0843f6 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 10 Nov 2013 10:39:01 -0800 Subject: [PATCH] Print out the value of the non-zero word. --- src/lisp/gencgc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c index 9caae2d53..f06b23b6f 100644 --- a/src/lisp/gencgc.c +++ b/src/lisp/gencgc.c @@ -1194,8 +1194,8 @@ gc_alloc_new_region(int nbytes, int unboxed, struct alloc_region *alloc_region) for (p = (int *) alloc_region->start_addr; p < (int *) alloc_region->end_addr; p++) if (*p != 0) - fprintf(stderr, "** new region not zero @ %lx\n", - (unsigned long) p); + fprintf(stderr, "** new region not zero @ %lx: %lx\n", + (unsigned long) p, *p); } /* Setup the pages. */ -- GitLab