From 93c561a9799b0367d60bd96c425d35c1cbb25360 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 23 Feb 1993 02:38:22 +0000
Subject: [PATCH] Add new errors.

---
 v7/src/microcode/errors.h   | 14 ++++++++++----
 v7/src/microcode/utabmd.scm |  9 ++++++---
 v8/src/microcode/utabmd.scm |  9 ++++++---
 3 files changed, 22 insertions(+), 10 deletions(-)

diff --git a/v7/src/microcode/errors.h b/v7/src/microcode/errors.h
index 12883fb09..7065c33bf 100644
--- a/v7/src/microcode/errors.h
+++ b/v7/src/microcode/errors.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/errors.h,v 9.37 1991/01/24 04:40:51 cph Exp $
+$Id: errors.h,v 9.38 1993/02/23 02:38:22 gjr Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -103,13 +103,16 @@ MIT in each case. */
 #define ERR_FASLOAD_BAND			0x39
 #define ERR_FASLOAD_COMPILED_MISMATCH		0x3A
 #define ERR_UNKNOWN_PRIMITIVE_CONTINUATION	0x3B
+#define ERR_ILLEGAL_CONTINUATION		0x3C
+#define ERR_STACK_HAS_SLIPPED			0x3D
+#define ERR_CANNOT_RECURSE			0x3E
 
 /*
   If you add any error codes here, add them to
   the table below and to utabmd.scm as well.
  */
 
-#define MAX_ERROR				0x3B
+#define MAX_ERROR				0x3E
 
 #define ERROR_NAME_TABLE						\
 {									\
@@ -172,7 +175,10 @@ MIT in each case. */
 /* 0x38 */		"FASDUMP-ENVIRONMENT",				\
 /* 0x39 */		"FASLOAD-BAND",					\
 /* 0x3A */		"FASLOAD-COMPILED-MISMATCH",			\
-/* 0x3B */		"UNKNOWN-PRIMITIVE-CONTINUATION"		\
+/* 0x3B */		"UNKNOWN-PRIMITIVE-CONTINUATION",		\
+/* 0x3C */		"ILLEGAL-CONTINUATION",				\
+/* 0x3D */		"STACK-HAS-SLIPPED",				\
+/* 0x3E */		"CANNOT-RECURSE"				\
 }
 
 /* Termination codes: the interpreter halts on these */
diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index d0f8a4aef..a9e389db3 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $
+;;; $Id: utabmd.scm,v 9.66 1993/02/23 02:38:17 gjr Exp $
 ;;;
-;;;	Copyright (c) 1987-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -539,6 +539,9 @@
 	       FASLOAD-BAND				;39
 	       FASLOAD-COMPILED-MISMATCH		;3A
 	       UNKNOWN-PRIMITIVE-CONTINUATION		;3B
+	       ILLEGAL-CONTINUATION			;3C
+	       STACK-HAS-SLIPPED			;3D
+	       CANNOT-RECURSE				;3E
 	       ))
 
 ;;; [] Terminations
@@ -699,4 +702,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $"
\ No newline at end of file
+"$Id: utabmd.scm,v 9.66 1993/02/23 02:38:17 gjr Exp $"
\ No newline at end of file
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index d0f8a4aef..a9e389db3 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $
+;;; $Id: utabmd.scm,v 9.66 1993/02/23 02:38:17 gjr Exp $
 ;;;
-;;;	Copyright (c) 1987-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -539,6 +539,9 @@
 	       FASLOAD-BAND				;39
 	       FASLOAD-COMPILED-MISMATCH		;3A
 	       UNKNOWN-PRIMITIVE-CONTINUATION		;3B
+	       ILLEGAL-CONTINUATION			;3C
+	       STACK-HAS-SLIPPED			;3D
+	       CANNOT-RECURSE				;3E
 	       ))
 
 ;;; [] Terminations
@@ -699,4 +702,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $"
\ No newline at end of file
+"$Id: utabmd.scm,v 9.66 1993/02/23 02:38:17 gjr Exp $"
\ No newline at end of file
-- 
2.25.1