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