From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Mar 1991 20:09:23 +0000 (+0000)
Subject: Make the compiler interface reset itself after restarting a dumped
X-Git-Tag: 20090517-FFI~10800
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d64cbc299f48bb3d223450398d37a857b02ee641;p=mit-scheme.git

Make the compiler interface reset itself after restarting a dumped
scheme.  On some machines, the cache description needs to be recached.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 2d19752ec..9b58ad1b2 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.67 1991/02/24 01:10:24 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.68 1991/03/28 20:09:23 jinx Exp $
 
 Copyright (c) 1988-1991 Massachusetts Institute of Technology
 
@@ -118,6 +118,9 @@ DEFUN (main,
   read_command_line_options (argc, argv);
   if (scheme_dumped_p)
     {
+      extern SCHEME_OBJECT compiler_utilities;
+      extern void EXFUN (compiler_reset, (SCHEME_OBJECT));
+
       if (! ((Heap_Size == option_heap_size)
 	     && (Stack_Size == option_stack_size)
 	     && (Constant_Size == option_constant_size)))
@@ -127,6 +130,7 @@ DEFUN (main,
 	  fflush (stderr);
 	}
       OS_reset ();
+      compiler_reset (compiler_utilities);
       if (!option_band_specified)
 	{
 	  printf ("Scheme Microcode Version %d.%d\n", VERSION, SUBVERSION);