From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 00:23:31 +0000 (+0000)
Subject: New type-codes: new precomputed trap constants.
X-Git-Tag: 20090517-FFI~6130
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1701cf5db1e219aa8f8ee075a0c5966392df9763;p=mit-scheme.git

New type-codes: new precomputed trap constants.
---

diff --git a/v8/src/microcode/trap.h b/v8/src/microcode/trap.h
index 45e47b64e..01e3bd600 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. */
 
-/* $Id: trap.h,v 9.43 1993/06/24 07:10:00 gjr Exp $ */
+/* $Id: trap.h,v 9.44 1995/07/27 00:23:31 adams Exp $ */
 
 /* Kinds of traps:
 
@@ -84,28 +84,28 @@ MIT in each case. */
 #ifdef b32				/* 32 bit objects */
 
 #if (TYPE_CODE_LENGTH == 8)
-#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
-#define EXPENSIVE_OBJECT		0x32000006
-#define DANGEROUS_EXPENSIVE_OBJECT	0x32000007
+#define UNASSIGNED_OBJECT		0x1C000000
+#define DANGEROUS_UNASSIGNED_OBJECT	0x1C000001
+#define UNBOUND_OBJECT			0x1C000002
+#define DANGEROUS_UNBOUND_OBJECT	0x1C000003
+#define ILLEGAL_OBJECT			0x1C000004
+#define DANGEROUS_ILLEGAL_OBJECT	0x1C000005
+#define EXPENSIVE_OBJECT		0x1C000006
+#define DANGEROUS_EXPENSIVE_OBJECT	0x1C000007
 #endif /* (TYPE_CODE_LENGTH == 8) */
 
 #if (TYPE_CODE_LENGTH == 6)
-#define UNASSIGNED_OBJECT		0xc8000000
-#define DANGEROUS_UNASSIGNED_OBJECT	0xc8000001
-#define UNBOUND_OBJECT			0xc8000002
-#define DANGEROUS_UNBOUND_OBJECT	0xc8000003
-#define ILLEGAL_OBJECT			0xc8000004
-#define DANGEROUS_ILLEGAL_OBJECT	0xc8000005
-#define EXPENSIVE_OBJECT		0xc8000006
-#define DANGEROUS_EXPENSIVE_OBJECT	0xc8000007
+#define UNASSIGNED_OBJECT		0x70000000
+#define DANGEROUS_UNASSIGNED_OBJECT	0x70000001
+#define UNBOUND_OBJECT			0x70000002
+#define DANGEROUS_UNBOUND_OBJECT	0x70000003
+#define ILLEGAL_OBJECT			0x70000004
+#define DANGEROUS_ILLEGAL_OBJECT	0x70000005
+#define EXPENSIVE_OBJECT		0x70000006
+#define DANGEROUS_EXPENSIVE_OBJECT	0x70000007
 #endif /* (TYPE_CODE_LENGTH == 6) */
 
-#if (TC_REFERENCE_TRAP != 0x32)
+#if (TC_REFERENCE_TRAP != 0x1C)
 #include "error: trap.h and types.h are inconsistent"
 #endif