From 4c8c62209f703750a7554c1f3e9efa4d70150131 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 24 Sep 1989 14:18:07 +0000 Subject: [PATCH] Microcode's fixed-objects-vector now contains flonum-epsilon instead of flonum-exponent-bits; change microcode table code to accomodate. --- v7/src/runtime/utabs.scm | 9 +++++---- v7/src/runtime/version.scm | 4 ++-- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm index e54c3d3b4..219a0f798 100644 --- a/v7/src/runtime/utabs.scm +++ b/v7/src/runtime/utabs.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.2 1989/03/23 20:43:59 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.3 1989/09/24 14:17:55 cph Exp $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -69,8 +69,9 @@ MIT in each case. |# (microcode-identification-item 'CONSOLE-HEIGHT)) (set! microcode-id/floating-mantissa-bits (microcode-identification-item 'FLONUM-MANTISSA-LENGTH)) - (set! microcode-id/floating-exponent-bits - (microcode-identification-item 'FLONUM-EXPONENT-LENGTH)) (set! microcode-id/operating-system-name + (set! microcode-id/floating-epsilon + (microcode-identification-item 'FLONUM-EPSILON)) + (set! microcode-id/operating-system-name (microcode-identification-item 'OS-NAME-STRING)) (set! microcode-id/operating-system-variant (microcode-identification-item 'OS-VARIANT-STRING)) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index dd16878c9..b5bf6c525 100644 --- a/v7/src/runtime/version.scm +++ b/v7/src/runtime/version.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.58 1989/09/20 15:11:40 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.59 1989/09/24 14:18:07 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -45,7 +45,7 @@ MIT in each case. |# '())) (add-system! microcode-system) (add-event-receiver! event:after-restore snarf-microcode-version!) - (add-identification! "Runtime" 14 58)) + (add-identification! "Runtime" 14 59)) (define microcode-system) (define (snarf-microcode-version!) -- 2.25.1