Add new return codes for compiled code interface variable cache.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index d02fef45b834636b00812018340316f936ceae0c..b0fb66f5209217b78b50c2289e65b84bf0e85436 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.29 1987/05/21 18:06:30 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.30 1987/05/29 17:06:51 cph Exp $
 
 (declare (usual-integrations))
 
@@ -314,6 +314,11 @@
               COMPILER-DEFINITION-RESTART              ;4F
               COMPILER-LEXPR-INTERRUPT-RESTART         ;50
               COMPILER-SAFE-REFERENCE-RESTART          ;51
+              COMPILER-CACHE-VARIABLE-RESTART          ;52
+              COMPILER-REFERENCE-TRAP-RESTART          ;53
+              COMPILER-ASSIGNMENT-TRAP-RESTART         ;54
+              COMPILER-UUO-LINK-RESTART                ;55
+              COMPILER-UUO-LINK-TRAP-RESTART           ;56
               ))
 \f
 ;;; [] Primitives
@@ -855,4 +860,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.29 1987/05/21 18:06:30 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.30 1987/05/29 17:06:51 cph Exp $"

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 08f718949a97a19461f5ca95b311580968d42c89..bdd62ddde3cf51a18eef7cea1b008e913f73f2ab 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.29 1987/05/21 18:06:30 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.30 1987/05/29 17:06:51 cph Exp $
 
 (declare (usual-integrations))
 
@@ -314,6 +314,11 @@
               COMPILER-DEFINITION-RESTART              ;4F
               COMPILER-LEXPR-INTERRUPT-RESTART         ;50
               COMPILER-SAFE-REFERENCE-RESTART          ;51
+              COMPILER-CACHE-VARIABLE-RESTART          ;52
+              COMPILER-REFERENCE-TRAP-RESTART          ;53
+              COMPILER-ASSIGNMENT-TRAP-RESTART         ;54
+              COMPILER-UUO-LINK-RESTART                ;55
+              COMPILER-UUO-LINK-TRAP-RESTART           ;56
               ))
 \f
 ;;; [] Primitives
@@ -855,4 +860,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.29 1987/05/21 18:06:30 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.30 1987/05/29 17:06:51 cph Exp $"