From 8aa294868f8d1f75e4112cdb5482688fc8911101 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Wed, 19 Jan 2000 18:09:16 +0000 Subject: [PATCH] Flush references to zero_stack as this has been handled by scrub-control-stack for some time. --- lisp/gencgc.c | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/lisp/gencgc.c b/lisp/gencgc.c index 341ca1ebd..30468fd4a 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); -- GitLab