From 711d44c5b29c8c27bc300a0f94149668ff1aecc7 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 3 May 1988 01:09:33 +0000 Subject: [PATCH] Added information on FIXNUM size. --- v7/src/compiler/machines/bobcat/machin.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm index 1d16e1151..88214886d 100644 --- a/v7/src/compiler/machines/bobcat/machin.scm +++ b/v7/src/compiler/machines/bobcat/machin.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.6 1988/05/03 00:35:08 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.7 1988/05/03 01:09:33 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -38,10 +38,13 @@ MIT in each case. |# ;;; Size of words. Some of the stuff in "assmd.scm" might want to ;;; come here. +(define-integrable scheme-object-width 32) (define-integrable scheme-datum-width 24) (define-integrable scheme-type-width 8) +(define maximum-unsigned-fixnum + (expt 2 scheme-datum-width)) (define maximum-positive-fixnum - (-1+ (expt 2 (-1+ scheme-datum-width)))) + (-1+ (quotient maximum-unsigned-fixnum 2))) (define-integrable (stack->memory-offset offset) offset) -- 2.25.1