From d64cbc299f48bb3d223450398d37a857b02ee641 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Mar 1991 20:09:23 +0000
Subject: [PATCH] Make the compiler interface reset itself after restarting a
dumped scheme. On some machines, the cache description needs to be recached.
---
v7/src/microcode/boot.c | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
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);
--
2.25.1