From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 May 1987 18:08:32 +0000 (+0000)
Subject: Add special lookup for compiler to do side-effect for value.
X-Git-Tag: 20090517-FFI~13488
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c73c04ffc03e85197806bd3ac28ec4cd79903d4;p=mit-scheme.git

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 8f23e3940..e19ab2454 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.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 c396c9490..179214a0e 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.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 93c1f961b..d02fef45b 100644
--- 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
 	       ))
 
 ;;; [] 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 a8e1efbe3..e54c1f357 100644
--- 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. */
 
@@ -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 a63ff9990..7e8f84dfe 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.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 00797b7b9..08f718949 100644
--- 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
 	       ))
 
 ;;; [] 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 492a5e800..7b8f2b39c 100644
--- 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. */
 
@@ -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