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