diff --git a/lisp/purify.c b/lisp/purify.c index 21972cad085655356d0152342960a4b8f3467514..df1fe724b3fd765c05bc846c939022235f9da66b 100644 --- a/lisp/purify.c +++ b/lisp/purify.c @@ -10,7 +10,7 @@ and x86/GENCGC stack scavenging, by Douglas Crosher, 1996, 1997, 1998. - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.31 2005/04/29 14:51:39 rtoy Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.32 2005/05/03 14:57:24 rtoy Exp $ */ #include <stdio.h> @@ -1483,12 +1483,6 @@ int purify(lispobj static_roots, lispobj read_only_roots) fflush(stdout); #endif -#ifdef GENCGC - /* Flush the current_region updating the tables. */ - gc_alloc_update_page_tables(0,&boxed_region); - gc_alloc_update_page_tables(1,&unboxed_region); -#endif - if (fixnum_value(SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX)) != 0) { printf(" Ack! Can't purify interrupt contexts. "); fflush(stdout);