From: Chris Hanson Date: Tue, 13 Jan 1987 18:56:56 +0000 (+0000) Subject: The microcode tables file now returns an identification string as a X-Git-Tag: 20090517-FFI~13742 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d1397eb6981f3ca066667f5324fc28feeed3117b;p=mit-scheme.git 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 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. +