Date: Wednesday, December 15, 2010 @ 07:53:45 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch

Modified: gencgc.c

Enable GC assertions and some debugging prints.

----------+ gencgc.c | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-)

Index: src/lisp/gencgc.c diff -u src/lisp/gencgc.c:1.110 src/lisp/gencgc.c:1.110.6.1 --- src/lisp/gencgc.c:1.110 Mon Jul 26 13:17:13 2010 +++ src/lisp/gencgc.c Wed Dec 15 07:53:45 2010 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110 2010-07-26 17:17:13 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.1 2010-12-15 12:53:45 rtoy Exp $ * */

@@ -150,6 +150,7 @@

/* Define for activating assertions. */

+#define GC_ASSERTIONS 1 #if defined(DARWIN) #define GC_ASSERTIONS 1 #endif @@ -240,7 +241,7 @@ * The verbose level. All non-error messages are disabled at level 0; * and only a few rare messages are printed at level 1. */ -unsigned gencgc_verbose = 0; +unsigned gencgc_verbose = 1; unsigned counters_verbose = 0;

/* @@ -266,7 +267,7 @@ * makes GC very, very slow, so don't enable this unless you really * need it!) */ -boolean pre_verify_gen_0 = FALSE; +boolean pre_verify_gen_0 = TRUE;

/* * Enable checking for bad pointers after gc_free_heap called from purify. @@ -274,7 +275,7 @@ #if 0 && defined(DARWIN) boolean verify_after_free_heap = TRUE; #else -boolean verify_after_free_heap = FALSE; +boolean verify_after_free_heap = TRUE; #endif

/* @@ -287,7 +288,7 @@ * Enable the checking of code objects for fixup errors after they are * transported. (Only used for x86.) */ -boolean check_code_fixups = FALSE; +boolean check_code_fixups = TRUE;

/* * To enable unmapping of a page and re-mmaping it to have it zero filled. @@ -307,8 +308,8 @@ boolean gencgc_zero_check = TRUE; boolean gencgc_enable_verify_zero_fill = TRUE; #else -boolean gencgc_zero_check = FALSE; -boolean gencgc_enable_verify_zero_fill = FALSE; +boolean gencgc_zero_check = TRUE; +boolean gencgc_enable_verify_zero_fill = TRUE; #endif

/* @@ -318,7 +319,7 @@ #if 0 && defined(DARWIN) boolean gencgc_zero_check_during_free_heap = TRUE; #else -boolean gencgc_zero_check_during_free_heap = FALSE; +boolean gencgc_zero_check_during_free_heap = TRUE; #endif

/*