From 6b68df459aaa0a4da26f5f49c2b5b8dbdf1a7577 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 10 Nov 1992 03:05:43 +0000
Subject: [PATCH] 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.

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

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index c31dd82e1..4c6cb9ab8 100644
--- 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)
-	     #())
 
 ;;; [] 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 555e3419c..4c6cb9ab8 100644
--- 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)
-	     #())
 
 ;;; [] 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
-- 
2.25.1