From d1397eb6981f3ca066667f5324fc28feeed3117b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 13 Jan 1987 18:56:56 +0000 Subject: [PATCH] The microcode tables file now returns an identification string as a value so that it can be determined what version is loaded. --- v7/src/microcode/utabmd.scm | 9 +++++---- v7/src/runtime/utabs.scm | 7 +++++-- v8/src/microcode/utabmd.scm | 9 +++++---- 3 files changed, 15 insertions(+), 10 deletions(-) diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index c0b011dc5..c046c3c47 100644 --- 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 @@ ;;; [] 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 1c3bcf478..462883572 100644 --- a/v7/src/runtime/utabs.scm +++ b/v7/src/runtime/utabs.scm @@ -275,14 +275,17 @@ ;;;; 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 9491c0412..c32591343 100644 --- 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 @@ ;;; [] 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. + -- 2.25.1