The microcode tables file now returns an identification string as a

value so that it can be determined what version is loaded.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index c0b011dc58956fead24f90fe47150d1f4b0a0ee7..c046c3c4776ecffde0e35b07df8b1ad5b7a06041 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,6 +37,8 @@
 
 ;;;; Machine Dependent Type Tables
 
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 1.2 1987/01/13 18:56:14 cph Exp $
+
 (declare (usual-integrations))
 
 ;;; For quick access to any given table,
@@ -51,10 +53,6 @@
 \f
 ;;; [] Fixed
 
-(vector-set! (get-fixed-objects-vector)
-            #x23 ;(fixed-objects-vector-slot 'MICROCODE-TABLE-IDENTIFICATION)
-            "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 1.1 1987/01/13 18:18:08 cph Exp $")
-
 (vector-set! (get-fixed-objects-vector)
             #x0F ;(fixed-objects-vector-slot 'MICROCODE-FIXED-OBJECTS-SLOTS)
             #(NON-OBJECT                               ;00
@@ -831,3 +829,6 @@
 (vector-set! (get-fixed-objects-vector)
             23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
             #())
+
+;;; This identification string is saved by the system.
+

diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm
index 1c3bcf478be30e91f242f365caaa3558f5173012..462883572c33e9ee933096e692b2bd4598d0ed96 100644 (file)
--- a/v7/src/runtime/utabs.scm
+++ b/v7/src/runtime/utabs.scm
@@ -275,14 +275,17 @@
 \f
 ;;;; Initialization
 
+(define microcode-tables-identification)
+
 (define (snarf-version)
   (set! :identification (microcode-identify))
   (set! :release (vector-ref :identification 0))
   (set! :version (vector-ref :identification 1))
   (set! :modification (vector-ref :identification 2))
 
-  (scode-eval (binary-fasload (microcode-tables-filename))
-             system-global-environment)
+  (set! microcode-tables-identification
+       (scode-eval (binary-fasload (microcode-tables-filename))
+                   system-global-environment))
 
   (set! fixed-objects (get-fixed-objects-vector))
 

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 9491c04129d361a96bbd82bf3dabc7cc08f162ca..c32591343d1668ac320aa288ce6e744a409b0136 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,6 +37,8 @@
 
 ;;;; Machine Dependent Type Tables
 
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 1.2 1987/01/13 18:56:14 cph Exp $
+
 (declare (usual-integrations))
 
 ;;; For quick access to any given table,
@@ -51,10 +53,6 @@
 \f
 ;;; [] Fixed
 
-(vector-set! (get-fixed-objects-vector)
-            #x23 ;(fixed-objects-vector-slot 'MICROCODE-TABLE-IDENTIFICATION)
-            "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 1.1 1987/01/13 18:18:08 cph Exp $")
-
 (vector-set! (get-fixed-objects-vector)
             #x0F ;(fixed-objects-vector-slot 'MICROCODE-FIXED-OBJECTS-SLOTS)
             #(NON-OBJECT                               ;00
@@ -831,3 +829,6 @@
 (vector-set! (get-fixed-objects-vector)
             23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
             #())
+
+;;; This identification string is saved by the system.
+