Add entry points for variable caches and uuo links.

diff --git a/v7/src/microcode/returns.h b/v7/src/microcode/returns.h
index e19ab2454116e34844e6498e328c9a7a9bab6dc0..20aba1bf7ba342e22a64cfaca9aa29ff3d4534bf 100644 (file)
--- 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 179214a0edbc73f62caa9f4dc373bee6569a2108..e2b18c82f958c06d8d4946c45ded6448884bef6a 100644 (file)
--- 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 7e8f84dfef5b1164a19c9e994fb8862829290abf..317806b9e8474b6f07c6d7546694da9a343f4082 100644 (file)
--- 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. */