From 0f4c2538fb1878cfb371521a0257d0a217e2d464 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 3 May 2005 14:57:24 +0000
Subject: [PATCH] Undo rev 1.30 that close regions before purification.  This
 was causing problems on x86/linux for some reason.  We should investigate
 this later.

---
 lisp/purify.c | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lisp/purify.c b/lisp/purify.c
index 21972cad0..df1fe724b 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);
-- 
GitLab