Make COMPILER_SETUP_INTERRUPT test only for enabled interrupts.

diff --git a/v7/src/microcode/intrpt.h b/v7/src/microcode/intrpt.h
index 7c94fef4de7693944c3b5aa69cb232e133af47f8..e7527e2f6c0236b3f5d11b82b37e7f285d735730 100644 (file)
--- a/v7/src/microcode/intrpt.h
+++ b/v7/src/microcode/intrpt.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: intrpt.h,v 1.14 1993/08/28 22:46:37 gjr Exp $
+$Id: intrpt.h,v 1.15 1993/09/13 18:35:35 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -57,10 +57,12 @@ MIT in each case. */
 #define INT_HCBPB_Flush               8192     /* Local interrupt */
 #define INT_HCBPB_Extend      16384    /* Local interrupt */
 
+#define INT_Step_CC          32768             
+
 #define Global_GC_Level                1
 #define Global_1_Level         3
 #define Global_3_Level         7
-#define MAX_INTERRUPT_NUMBER   14      /* 2^14 = 16384 = INT_HCBPB_Extend */
+#define MAX_INTERRUPT_NUMBER   15      /* 2^15 = INT_Step_CC */
 
 #define INT_Mask               ((1 << (MAX_INTERRUPT_NUMBER + 1)) - 1)
 \f
@@ -78,7 +80,7 @@ MIT in each case. */
 #define COMPILER_SETUP_INTERRUPT() do                                  \
 {                                                                      \
   (Registers[REGBLOCK_MEMTOP]) =                                       \
-    ((INTERRUPT_PENDING_P (INT_Mask))                                  \
+    (((PENDING_INTERRUPTS ()) != 0)                                    \
      ? ((SCHEME_OBJECT) -1)                                            \
      : (INTERRUPT_ENABLED_P (INT_GC))                                  \
      ? ((SCHEME_OBJECT) (ADDR_TO_SCHEME_ADDR (MemTop)))                        \