From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 20 Nov 1989 23:13:16 +0000 (+0000)
Subject: Fix a small bug in compiler_interrupt_common: state was not being
X-Git-Tag: 20090517-FFI~11686
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab46fb60dd4e8e9427cd217d8c8a12beef04721e;p=mit-scheme.git

Fix a small bug in compiler_interrupt_common: state was not being
restored when the interrupt was dismissed.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 0084b7740..d19604f0b 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.14 1989/11/07 06:37:27 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $
  *
  * This file corresponds to
  * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $
@@ -1377,6 +1377,8 @@ compiler_interrupt_common (entry_point, state)
   TEST_GC_NEEDED();
   if ((PENDING_INTERRUPTS()) == 0)
   {
+    Store_Env (state);
+    Val = state;
     RETURN_TO_SCHEME (entry_point + ENTRY_SKIPPED_CHECK_OFFSET);
   }
   else
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 6fe7dd096..b8a4fdba9 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.14 1989/11/07 06:37:27 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $
  *
  * This file corresponds to
  * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $
@@ -1377,6 +1377,8 @@ compiler_interrupt_common (entry_point, state)
   TEST_GC_NEEDED();
   if ((PENDING_INTERRUPTS()) == 0)
   {
+    Store_Env (state);
+    Val = state;
     RETURN_TO_SCHEME (entry_point + ENTRY_SKIPPED_CHECK_OFFSET);
   }
   else