X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsave.c;h=5059aa5508798de3428f40ac136d5b8c6595ce27;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=70b439c79d5952116bbe047bae49f83aab37e963;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git

diff --git a/src/runtime/save.c b/src/runtime/save.c
index 70b439c..5059aa5 100644
--- a/src/runtime/save.c
+++ b/src/runtime/save.c
@@ -82,24 +82,6 @@ boolean
 save(char *filename, lispobj init_function)
 {
     FILE *file;
-#if defined WANT_CGC
-    volatile lispobj*func_ptr = &init_function;
-    char sbuf[128];
-    strcpy(sbuf,filename);
-    filename=sbuf;
-    /* Get rid of remnant stuff. This is a MUST so that the memory
-     * manager can get started correctly when we restart after this
-     * save. Purify is going to maybe move the args so we need to
-     * consider them volatile, especially if the gcc optimizer is
-     * working!! */
-    purify(NIL,NIL);
-
-    init_function = *func_ptr;
-    /* Set dynamic space pointer to base value so we don't write out
-     * MBs of just cleared heap. */
-    if(SymbolValue(X86_CGC_ACTIVE_P) != NIL)
-      SetSymbolValue(ALLOCATION_POINTER, DYNAMIC_SPACE_START);
-#endif
     /* Open the file: */
     unlink(filename);
     file = fopen(filename, "w");
@@ -114,9 +96,6 @@ save(char *filename, lispobj init_function)
     SetSymbolValue(CURRENT_UNWIND_PROTECT_BLOCK, 0);
     SetSymbolValue(EVAL_STACK_TOP, 0);
     printf("done]\n");
-#if defined WANT_CGC && defined X86_CGC_ACTIVE_P
-    SetSymbolValue(X86_CGC_ACTIVE_P, T);
-#endif
     printf("[saving current Lisp image into %s:\n", filename);
 
     putw(CORE_MAGIC, file);