From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 May 1987 16:07:58 +0000 (+0000)
Subject: Add entry points for variable caches and uuo links.
X-Git-Tag: 20090517-FFI~13471
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6d42a145c448a609462bf504e29f1af190829442;p=mit-scheme.git

Add entry points for variable caches and uuo links.
---

diff --git a/v7/src/microcode/returns.h b/v7/src/microcode/returns.h
index e19ab2454..20aba1bf7 100644
--- a/v7/src/microcode/returns.h
+++ b/v7/src/microcode/returns.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/returns.h,v 9.23 1987/05/21 18:08:32 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/returns.h,v 9.24 1987/05/28 16:07:35 cph Exp $
  *
  * Return codes.  These are placed in Return when an
  * interpreter operation needs to operate in several
@@ -113,7 +113,12 @@ MIT in each case. */
 #define RC_COMP_DEFINITION_RESTART	0x4F
 #define RC_COMP_LEXPR_INTERRUPT_RESTART 0x50
 #define RC_COMP_SAFE_REFERENCE_RESTART  0x51
+#define RC_COMP_CACHE_VARIABLE_RESTART  0x52
+#define RC_COMP_REFERENCE_TRAP_RESTART  0x53
+#define RC_COMP_ASSIGNMENT_TRAP_RESTART 0x54
+#define RC_COMP_UUO_LINK_RESTART        0x55
+#define RC_COMP_UUO_LINK_TRAP_RESTART   0x56
 
-#define MAX_RETURN_CODE			0x51
+#define MAX_RETURN_CODE			0x56
 
 /* When adding return codes, don't forget to update storage.c too. */
diff --git a/v7/src/microcode/storage.c b/v7/src/microcode/storage.c
index 179214a0e..e2b18c82f 100644
--- a/v7/src/microcode/storage.c
+++ b/v7/src/microcode/storage.c
@@ -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/storage.c,v 9.30 1987/05/21 18:07:05 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.31 1987/05/28 16:07:58 cph Exp $
 
 This file defines the storage for global variables for
 the Scheme Interpreter. */
@@ -62,6 +62,8 @@ Pointer
   Fluid_Bindings = NIL,	/* Fluid bindings AList */
   return_to_interpreter, /* Return address/code left by interpreter
 			    when calling compiled code */
+  uuo_link_trap,	/* Entry address for uuo links needing
+			   special attention */
  *last_return_code,	/* Address of the most recent return code in the stack.
 			   This is only meaningful while in compiled code.
 			   *** This must be changed when stacklets are used. ***
@@ -231,10 +233,15 @@ char *Return_Names[] = {
 /* 0x4E */		"COMPILER_UNBOUND_P_RESTART",
 /* 0x4F */		"COMPILER_DEFINITION_RESTART",
 /* 0x50 */		"COMPILER_LEXPR_GC_RESTART",
-/* 0x51 */		"COMPILER_SAFE_REFERENCE_RESTART"
+/* 0x51 */		"COMPILER_SAFE_REFERENCE_RESTART",
+/* 0x52 */		"COMPILER_CACHE_VARIABLE_RESTART",
+/* 0x53 */		"COMPILER_REFERENCE_TRAP_RESTART",
+/* 0x54 */		"COMPILER_ASSIGNMENT_TRAP_RESTART",
+/* 0x55 */		"COMPILER_UUO_LINK_RESTART",
+/* 0x56 */		"COMPILER_UUO_LINK_TRAP_RESTART"
 };
 
-#if (MAX_RETURN_CODE != 0x51)
+#if (MAX_RETURN_CODE != 0x56)
 /* Cause an error */
 #include "Returns.h and storage.c are inconsistent -- Names Table"
 #endif
diff --git a/v8/src/microcode/returns.h b/v8/src/microcode/returns.h
index 7e8f84dfe..317806b9e 100644
--- a/v8/src/microcode/returns.h
+++ b/v8/src/microcode/returns.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/returns.h,v 9.23 1987/05/21 18:08:32 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/returns.h,v 9.24 1987/05/28 16:07:35 cph Exp $
  *
  * Return codes.  These are placed in Return when an
  * interpreter operation needs to operate in several
@@ -113,7 +113,12 @@ MIT in each case. */
 #define RC_COMP_DEFINITION_RESTART	0x4F
 #define RC_COMP_LEXPR_INTERRUPT_RESTART 0x50
 #define RC_COMP_SAFE_REFERENCE_RESTART  0x51
+#define RC_COMP_CACHE_VARIABLE_RESTART  0x52
+#define RC_COMP_REFERENCE_TRAP_RESTART  0x53
+#define RC_COMP_ASSIGNMENT_TRAP_RESTART 0x54
+#define RC_COMP_UUO_LINK_RESTART        0x55
+#define RC_COMP_UUO_LINK_TRAP_RESTART   0x56
 
-#define MAX_RETURN_CODE			0x51
+#define MAX_RETURN_CODE			0x56
 
 /* When adding return codes, don't forget to update storage.c too. */