From 5631922e42c8655f9113b5071597b9229e033f31 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 16 Dec 1998 12:38:05 +0000
Subject: [PATCH] Fix a bug in the page zero checking code of gc_free_heap.

---
 lisp/gencgc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gencgc.c b/lisp/gencgc.c
index 984f6d9fc..2756bb0b0 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.11 1998/03/21 07:45:51 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.12 1998/12/16 12:38:05 dtc Exp $
  * */
 
 #include <stdio.h>
@@ -5795,7 +5795,7 @@ gc_free_heap(void)
       gc_assert(page_table[page].allocated == FREE_PAGE);
       gc_assert(page_table[page].bytes_used == 0);
       
-      page_start = (int *)page_address(i);
+      page_start = (int *)page_address(page);
 
       for(i=0; i<1024; i++)
 	if (page_start[i] != 0)
-- 
GitLab