projects / mit-scheme.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 903eda2)
Update this to match microcode.
authorChris Hanson <org/chris-hanson/cph>
Sun, 13 Dec 1987 22:47:00 +0000 (22:47 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sun, 13 Dec 1987 22:47:00 +0000 (22:47 +0000)
v7/src/microcode/utabmd.scm patch | blob | history
v8/src/microcode/utabmd.scm patch | blob | history

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index cc3312c3b023659211971777bceede83ebbf0ad2..398e8729d02f39d389cd8e9db61d3d6730554342 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.39 1987/11/17 08:19:44 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.40 1987/12/13 22:47:00 cph Rel $
 
 (declare (usual-integrations))
 
@@ -517,27 +517,31 @@
 
 (vector-set! (get-fixed-objects-vector)
             22 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATIONS-VECTOR)
-            #(HALT                              ;00
-              DISK-RESTORE                      ;01
-              BROKEN-HEART                      ;02
-              NON-POINTER-RELOCATION            ;03
-              BAD-ROOT                          ;04
-              NON-EXISTENT-CONTINUATION         ;05
-              BAD-STACK                         ;06
-              STACK-OVERFLOW                    ;07
-              STACK-ALLOCATION-FAILED           ;08
-              NO-ERROR-HANDLER                  ;09
-              NO-INTERRUPT-HANDLER              ;0A
-              UNIMPLEMENTED-CONTINUATION        ;0B
-              EXIT                              ;0C
-              BAD-PRIMITIVE-DURING-ERROR        ;0D
-              EOF                               ;0E
-              BAD-PRIMITIVE                     ;0F
-              TERMINATION-HANDLER               ;10
-              END-OF-CONTINUATION               ;11
-              INVALID-TYPE-CODE                 ;12
-              COMPILER-DEATH                    ;13
-              GC-OUT-OF-SPACE                   ;14
+            #(HALT                             ;00
+              DISK-RESTORE                     ;01
+              BROKEN-HEART                     ;02
+              NON-POINTER-RELOCATION           ;03
+              BAD-ROOT                         ;04
+              NON-EXISTENT-CONTINUATION        ;05
+              BAD-STACK                        ;06
+              STACK-OVERFLOW                   ;07
+              STACK-ALLOCATION-FAILED          ;08
+              NO-ERROR-HANDLER                 ;09
+              NO-INTERRUPT-HANDLER             ;0A
+              UNIMPLEMENTED-CONTINUATION       ;0B
+              EXIT                             ;0C
+              BAD-PRIMITIVE-DURING-ERROR       ;0D
+              EOF                              ;0E
+              BAD-PRIMITIVE                    ;0F
+              TERMINATION-HANDLER              ;10
+              END-OF-CONTINUATION              ;11
+              INVALID-TYPE-CODE                ;12
+              COMPILER-DEATH                   ;13
+              GC-OUT-OF-SPACE                  ;14
+              NO-SPACE                         ;15
+              SIGNAL                           ;16
+              TOUCH                            ;17
+              SAVE-AND-EXIT                    ;18
               ))
 
 (vector-set! (get-fixed-objects-vector)
@@ -562,4 +566,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.39 1987/11/17 08:19:44 jinx Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.40 1987/12/13 22:47:00 cph Rel $"
\ No newline at end of file
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 744faa88dc0d33ba2baf6c7f16499fe31137c524..8cee1e066dc9836d9d0a731153d74763a7abc79f 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.39 1987/11/17 08:19:44 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.40 1987/12/13 22:47:00 cph Rel $
 
 (declare (usual-integrations))
 
@@ -517,27 +517,31 @@
 
 (vector-set! (get-fixed-objects-vector)
             22 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATIONS-VECTOR)
-            #(HALT                              ;00
-              DISK-RESTORE                      ;01
-              BROKEN-HEART                      ;02
-              NON-POINTER-RELOCATION            ;03
-              BAD-ROOT                          ;04
-              NON-EXISTENT-CONTINUATION         ;05
-              BAD-STACK                         ;06
-              STACK-OVERFLOW                    ;07
-              STACK-ALLOCATION-FAILED           ;08
-              NO-ERROR-HANDLER                  ;09
-              NO-INTERRUPT-HANDLER              ;0A
-              UNIMPLEMENTED-CONTINUATION        ;0B
-              EXIT                              ;0C
-              BAD-PRIMITIVE-DURING-ERROR        ;0D
-              EOF                               ;0E
-              BAD-PRIMITIVE                     ;0F
-              TERMINATION-HANDLER               ;10
-              END-OF-CONTINUATION               ;11
-              INVALID-TYPE-CODE                 ;12
-              COMPILER-DEATH                    ;13
-              GC-OUT-OF-SPACE                   ;14
+            #(HALT                             ;00
+              DISK-RESTORE                     ;01
+              BROKEN-HEART                     ;02
+              NON-POINTER-RELOCATION           ;03
+              BAD-ROOT                         ;04
+              NON-EXISTENT-CONTINUATION        ;05
+              BAD-STACK                        ;06
+              STACK-OVERFLOW                   ;07
+              STACK-ALLOCATION-FAILED          ;08
+              NO-ERROR-HANDLER                 ;09
+              NO-INTERRUPT-HANDLER             ;0A
+              UNIMPLEMENTED-CONTINUATION       ;0B
+              EXIT                             ;0C
+              BAD-PRIMITIVE-DURING-ERROR       ;0D
+              EOF                              ;0E
+              BAD-PRIMITIVE                    ;0F
+              TERMINATION-HANDLER              ;10
+              END-OF-CONTINUATION              ;11
+              INVALID-TYPE-CODE                ;12
+              COMPILER-DEATH                   ;13
+              GC-OUT-OF-SPACE                  ;14
+              NO-SPACE                         ;15
+              SIGNAL                           ;16
+              TOUCH                            ;17
+              SAVE-AND-EXIT                    ;18
               ))
 
 (vector-set! (get-fixed-objects-vector)
@@ -562,4 +566,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.39 1987/11/17 08:19:44 jinx Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.40 1987/12/13 22:47:00 cph Rel $"
\ No newline at end of file
MIT/GNU Scheme, Pucked