From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 Dec 1987 22:19:36 +0000 (+0000)
Subject: Add new interrupt code which means that the interpreter was
X-Git-Tag: 20090517-FFI~12987
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=903eda26b83dab9e2d8548b0f89777c69ad63a25;p=mit-scheme.git

Add new interrupt code which means that the interpreter was
requested to exit by some external source.
---

diff --git a/v7/src/microcode/intrpt.h b/v7/src/microcode/intrpt.h
index fbbf98882..2deef3493 100644
--- a/v7/src/microcode/intrpt.h
+++ b/v7/src/microcode/intrpt.h
@@ -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/intrpt.h,v 1.2 1987/11/20 08:16:43 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/intrpt.h,v 1.3 1987/12/13 22:19:36 cph Rel $
  *
  * Interrupt manipulation utilities.
  */
@@ -45,6 +45,7 @@ MIT in each case. */
 #define INT_Global_2		32
 #define INT_Timer		64	/* Local interrupt */
 #define INT_Global_3		128
+#define INT_Suspend		256	/* Local interrupt */
 #define INT_Global_Mask		\
   (INT_Global_GC | INT_Global_1 | INT_Global_2 | INT_Global_3)
 
@@ -52,7 +53,7 @@ MIT in each case. */
 #define Global_1_Level		3
 #define Global_2_Level		5
 #define Global_3_Level		7
-#define MAX_INTERRUPT_NUMBER	7
+#define MAX_INTERRUPT_NUMBER	8
 
 #define INT_Mask		((1 << (MAX_INTERRUPT_NUMBER + 1)) - 1)