diff --git a/lisp/gencgc.c b/lisp/gencgc.c index 984f6d9fc8b5b05bd12291e6b2b456d91442a8c0..2756bb0b065a88d6e3840a327478693454f1d8db 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)