Add new errors.

diff --git a/v7/src/microcode/errors.h b/v7/src/microcode/errors.h
index 12883fb094508e87669a3b83a03e16ef2108cb20..7065c33bf13da76e689f79a9d22a0f3cbde1b93e 100644 (file)
--- 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
 \f
 #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"                                \
 }
 \f
 /* Termination codes: the interpreter halts on these */

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index d0f8a4aefe40fba5946860497df5cf2075d76135..a9e389db325e7d7be9b3f056f38da15f30f74c48 100644 (file)
--- 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
               ))
 \f
 ;;; [] 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 d0f8a4aefe40fba5946860497df5cf2075d76135..a9e389db325e7d7be9b3f056f38da15f30f74c48 100644 (file)
--- 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
               ))
 \f
 ;;; [] 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