Add special lookup for compiler to do side-effect for value.

diff --git a/v7/src/microcode/returns.h b/v7/src/microcode/returns.h
index 8f23e3940d03089db9b6209cb3556ef8515a7ee8..e19ab2454116e34844e6498e328c9a7a9bab6dc0 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.22 1987/04/16 02:28:30 jinx Exp $
+/* $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 $
  *
  * Return codes.  These are placed in Return when an
  * interpreter operation needs to operate in several
@@ -112,7 +112,8 @@ MIT in each case. */
 #define RC_COMP_UNBOUND_P_RESTART      0x4E
 #define RC_COMP_DEFINITION_RESTART     0x4F
 #define RC_COMP_LEXPR_INTERRUPT_RESTART 0x50
+#define RC_COMP_SAFE_REFERENCE_RESTART  0x51
 
-#define MAX_RETURN_CODE                        0x50
+#define MAX_RETURN_CODE                        0x51
 
 /* 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 c396c94900a4e151ad6154bb14eb38fd0bf112ba..179214a0edbc73f62caa9f4dc373bee6569a2108 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.29 1987/04/21 15:00:46 cph Exp $
+/* $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 $
 
 This file defines the storage for global variables for
 the Scheme Interpreter. */
@@ -230,10 +230,11 @@ char *Return_Names[] = {
 /* 0x4D */             "COMPILER_UNASSIGNED_P_RESTART",
 /* 0x4E */             "COMPILER_UNBOUND_P_RESTART",
 /* 0x4F */             "COMPILER_DEFINITION_RESTART",
-/* 0x50 */             "COMPILER_LEXPR_GC_RESTART"
+/* 0x50 */             "COMPILER_LEXPR_GC_RESTART",
+/* 0x51 */             "COMPILER_SAFE_REFERENCE_RESTART"
 };
 
-#if (MAX_RETURN_CODE != 0x50)
+#if (MAX_RETURN_CODE != 0x51)
 /* Cause an error */
 #include "Returns.h and storage.c are inconsistent -- Names Table"
 #endif

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 93c1f961b53491e64a47707fa76ca4f4e20dab0b..d02fef45b834636b00812018340316f936ceae0c 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.28 1987/05/15 18:20:45 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.29 1987/05/21 18:06:30 cph Exp $
 
 (declare (usual-integrations))
 
@@ -313,6 +313,7 @@
               COMPILER-UNBOUND?-RESTART                ;4E
               COMPILER-DEFINITION-RESTART              ;4F
               COMPILER-LEXPR-INTERRUPT-RESTART         ;50
+              COMPILER-SAFE-REFERENCE-RESTART          ;51
               ))
 \f
 ;;; [] Primitives
@@ -854,4 +855,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.28 1987/05/15 18:20:45 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.29 1987/05/21 18:06:30 cph Exp $"

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index a8e1efbe3aefc14f06f2c12215c962291e73dc85..e54c1f357ed8cf067aae0fd42c5da19c4f9c7c7f 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.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/Attic/version.h,v 9.52 1987/05/15 18:20:28 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.53 1987/05/21 18:06:14 cph Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     52
+#define SUBVERSION     53
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/returns.h b/v8/src/microcode/returns.h
index a63ff99902349e2561a6456105072cc54d608be5..7e8f84dfef5b1164a19c9e994fb8862829290abf 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.22 1987/04/16 02:28:30 jinx Exp $
+/* $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 $
  *
  * Return codes.  These are placed in Return when an
  * interpreter operation needs to operate in several
@@ -112,7 +112,8 @@ MIT in each case. */
 #define RC_COMP_UNBOUND_P_RESTART      0x4E
 #define RC_COMP_DEFINITION_RESTART     0x4F
 #define RC_COMP_LEXPR_INTERRUPT_RESTART 0x50
+#define RC_COMP_SAFE_REFERENCE_RESTART  0x51
 
-#define MAX_RETURN_CODE                        0x50
+#define MAX_RETURN_CODE                        0x51
 
 /* When adding return codes, don't forget to update storage.c too. */

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 00797b7b90492751d3f2e3882c8265dc7233015d..08f718949a97a19461f5ca95b311580968d42c89 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.28 1987/05/15 18:20:45 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.29 1987/05/21 18:06:30 cph Exp $
 
 (declare (usual-integrations))
 
@@ -313,6 +313,7 @@
               COMPILER-UNBOUND?-RESTART                ;4E
               COMPILER-DEFINITION-RESTART              ;4F
               COMPILER-LEXPR-INTERRUPT-RESTART         ;50
+              COMPILER-SAFE-REFERENCE-RESTART          ;51
               ))
 \f
 ;;; [] Primitives
@@ -854,4 +855,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.28 1987/05/15 18:20:45 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.29 1987/05/21 18:06:30 cph Exp $"

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 492a5e800d795258c83c77a837427053a84c8285..7b8f2b39ca667368817145b639230ab6529a14ab 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.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/version.h,v 9.52 1987/05/15 18:20:28 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.53 1987/05/21 18:06:14 cph Exp $
 
 This file contains version information for the microcode. */
 \f
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION                9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     52
+#define SUBVERSION     53
 #endif
 
 #ifndef UCODE_TABLES_FILENAME