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