diff --git a/lisp/gencgc.c b/lisp/gencgc.c index 341ca1ebda8bd1fbf079bcb46a0b8c83534f0e00..30468fd4a4e82d9ee81968bd4c1f762f40f20718 100644 --- a/lisp/gencgc.c +++ b/lisp/gencgc.c @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.17 2000/01/09 19:36:07 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.18 2000/01/19 18:09:16 dtc Exp $ * */ @@ -6067,11 +6067,6 @@ void collect_garbage(unsigned last_gen) update_x86_dynamic_space_free_pointer(); - /* Now done by scrub-control-stack in sub-gc. */ -#if 0 - zero_stack(); -#endif - current_region_free_pointer = boxed_region.free_pointer; current_region_end_addr = boxed_region.end_addr; @@ -6182,10 +6177,6 @@ void gc_free_heap(void) unboxed_region.free_pointer = page_address(0); unboxed_region.end_addr = page_address(0); -#if 0 /* purify is currently running on the C stack so don't do this */ - zero_stack(); -#endif - last_free_page = 0; SetSymbolValue(ALLOCATION_POINTER, (lispobj) heap_base);