From 372fd1a2e03ef448bddaf4c4dbe911dfd69f93f1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 May 1987 17:06:51 +0000
Subject: [PATCH] Add new return codes for compiled code interface variable
 cache.

---
 v7/src/microcode/utabmd.scm | 9 +++++++--
 v8/src/microcode/utabmd.scm | 9 +++++++--
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index d02fef45b..b0fb66f52 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.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
 	       ))
 
 ;;; [] 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 08f718949..bdd62ddde 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.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
 	       ))
 
 ;;; [] 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 $"
-- 
2.25.1