[git] CMU Common Lisp branch master updated. snapshot-2013-11-3-g8674b2d

Raymond Toy rtoy at common-lisp.net
Sun Nov 10 18:40:56 UTC 2013

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  8674b2d2b73bf7d7402d323f8179d1312b0843f6 (commit)
      from  20ee8ef20cd01a0be841695d6beaf98968e5be31 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8674b2d2b73bf7d7402d323f8179d1312b0843f6
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Nov 10 10:39:01 2013 -0800

    Print out the value of the non-zero word.

diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c
index 9caae2d..f06b23b 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. */


Summary of changes:
 src/lisp/gencgc.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list