Macroize ILLEGAL_OBJECT becuase of compiler bug on the vax.

diff --git a/v7/src/microcode/trap.h b/v7/src/microcode/trap.h
index 99801e3acd2b11b7d3cce58d4b437d50b32c4bb2..04a9b5b50aa18b7441e7ec6b5bb7b799dbf29a00 100644 (file)
--- a/v7/src/microcode/trap.h
+++ b/v7/src/microcode/trap.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/trap.h,v 9.35 1987/04/03 00:46:33 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/trap.h,v 9.36 1987/04/06 11:03:21 jinx Exp $ */
 \f
 /* Kinds of traps:
 
@@ -78,11 +78,15 @@ MIT in each case. */
 #define DANGEROUS_UNASSIGNED_OBJECT    Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_UNASSIGNED_DANGEROUS)
 #define UNBOUND_OBJECT                 Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_UNBOUND)
 #define DANGEROUS_UNBOUND_OBJECT       Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_UNBOUND_DANGEROUS)
+#define ILLEGAL_OBJECT                 Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_ILLEGAL)
+#define DANGEROUS_ILLEGAL_OBJECT       Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_ILLEGAL_DANGEROUS)
 #else
 #define UNASSIGNED_OBJECT              0x32000000
 #define DANGEROUS_UNASSIGNED_OBJECT    0x32000001
 #define UNBOUND_OBJECT                 0x32000002
 #define DANGEROUS_UNBOUND_OBJECT       0x32000003
+#define ILLEGAL_OBJECT                 0x32000004
+#define DANGEROUS_ILLEGAL_OBJECT       0x32000005
 #endif
 
 #define DANGEROUS_OBJECT               Make_Unsigned_Fixnum(TRAP_DANGEROUS)

diff --git a/v8/src/microcode/trap.h b/v8/src/microcode/trap.h
index 3dca94da5aed53d4ed8ae3a640162bb4f5bc1ece..2f6fea7fb409287dc7d403951c9ff03d80e15544 100644 (file)
--- a/v8/src/microcode/trap.h
+++ b/v8/src/microcode/trap.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/v8/src/microcode/trap.h,v 9.35 1987/04/03 00:46:33 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/trap.h,v 9.36 1987/04/06 11:03:21 jinx Exp $ */
 \f
 /* Kinds of traps:
 
@@ -78,11 +78,15 @@ MIT in each case. */
 #define DANGEROUS_UNASSIGNED_OBJECT    Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_UNASSIGNED_DANGEROUS)
 #define UNBOUND_OBJECT                 Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_UNBOUND)
 #define DANGEROUS_UNBOUND_OBJECT       Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_UNBOUND_DANGEROUS)
+#define ILLEGAL_OBJECT                 Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_ILLEGAL)
+#define DANGEROUS_ILLEGAL_OBJECT       Make_Non_Pointer(TC_REFERENCE_TRAP, TRAP_ILLEGAL_DANGEROUS)
 #else
 #define UNASSIGNED_OBJECT              0x32000000
 #define DANGEROUS_UNASSIGNED_OBJECT    0x32000001
 #define UNBOUND_OBJECT                 0x32000002
 #define DANGEROUS_UNBOUND_OBJECT       0x32000003
+#define ILLEGAL_OBJECT                 0x32000004
+#define DANGEROUS_ILLEGAL_OBJECT       0x32000005
 #endif
 
 #define DANGEROUS_OBJECT               Make_Unsigned_Fixnum(TRAP_DANGEROUS)