From 4be9ccdf533406af4fb787fbdaa73951f977ea92 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 19 Dec 1998 16:32:56 +0000 Subject: [PATCH] Few fixes for the page zero check in gc_free_heap; work around a gcc problem, and limit the range of pages to be checked. --- lisp/gencgc.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/gencgc.c b/lisp/gencgc.c index 2756bb0b0..acda61d7e 100644 --- a/lisp/gencgc.c +++ b/lisp/gencgc.c @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.12 1998/12/16 12:38:05 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.13 1998/12/19 16:32:56 dtc Exp $ * */ #include <stdio.h> @@ -5788,13 +5788,14 @@ gc_free_heap(void) if(addr == NULL || addr != page_start) fprintf(stderr,"gc_zero: page moved, 0x%08x ==> 0x%08x!\n", page_start,addr); - } else if (gencgc_zero_check_during_free_heap) { - int *page_start, i; + } else if (gencgc_zero_check_during_free_heap && page < 16384) { + int *page_start; + unsigned i; /* Double check that the page is zero filled. */ gc_assert(page_table[page].allocated == FREE_PAGE); gc_assert(page_table[page].bytes_used == 0); - + page_start = (int *)page_address(page); for(i=0; i<1024; i++) -- GitLab