Do not set MICROCODE-TERMINATION-PROCEDURES slot of fixed objects

vector in this file; the runtime system will take care of it.  This
was a problem because the existing termination procedures were being
erased at DISK-RESTORE.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index c31dd82e150e53d6692e2149957a21643e6d6ebe..4c6cb9ab878928b57af6cd89ce35fde1f89e95f1 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.63 1992/07/21 04:27:49 cph Exp $
+;;; $Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987-92 Massachusetts Institute of Technology
 ;;;
@@ -573,10 +573,6 @@
               TRAP                             ;19
               BAD-BACK-OUT                     ;20
               ))
-
-(vector-set! (get-fixed-objects-vector)
-            23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
-            #())
 \f
 ;;; [] System-call names
 
@@ -702,4 +698,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.63 1992/07/21 04:27:49 cph Exp $"
\ No newline at end of file
+"$Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $"
\ No newline at end of file

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 555e3419c040dbb4534dd3211d234b04a18b5eed..4c6cb9ab878928b57af6cd89ce35fde1f89e95f1 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.63 1992/07/21 04:27:49 cph Exp $
+;;; $Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987-92 Massachusetts Institute of Technology
 ;;;
@@ -573,10 +573,6 @@
               TRAP                             ;19
               BAD-BACK-OUT                     ;20
               ))
-
-(vector-set! (get-fixed-objects-vector)
-            23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
-            #())
 \f
 ;;; [] System-call names
 
@@ -702,4 +698,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.63 1992/07/21 04:27:49 cph Exp $"
\ No newline at end of file
+"$Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $"
\ No newline at end of file