From: Guillermo J. Rozas Date: Mon, 6 Apr 1987 11:03:21 +0000 (+0000) Subject: Macroize ILLEGAL_OBJECT becuase of compiler bug on the vax. X-Git-Tag: 20090517-FFI~13650 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2657b79b6515002e048a981f2af7c8c1a33f1976;p=mit-scheme.git 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 99801e3ac..04a9b5b50 100644 --- 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 $ */ /* 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 3dca94da5..2f6fea7fb 100644 --- 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 $ */ /* 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)