From: Chris Hanson Date: Wed, 18 Jan 1989 09:58:56 +0000 (+0000) Subject: Add definitions of `address-units-per-object' and X-Git-Tag: 20090517-FFI~12294 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c63e101e94afa291a7040337e6cbdc632d3a761;p=mit-scheme.git Add definitions of `address-units-per-object' and `address-units-per-packed-char', which are more convenient numbers to manipulate when doing index arithmetic. --- diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm index 86b267f8f..66f52c953 100644 --- a/v7/src/compiler/machines/bobcat/machin.scm +++ b/v7/src/compiler/machines/bobcat/machin.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.13 1988/11/08 08:23:25 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.14 1989/01/18 09:58:56 cph Rel $ -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 @@ -43,6 +43,15 @@ MIT in each case. |# (define-integrable scheme-datum-width 24) (define-integrable scheme-type-width 8) +;; It is currently required that both packed characters and objects be +;; integrable numbers of address units. Furthermore, the number of +;; address units per object must be an integral multiple of the number +;; of address units per character. This will cause problems on a +;; machine that is word addressed, in which case we will have to +;; rethink the character addressing strategy. +(define-integrable address-units-per-object 4) +(define-integrable address-units-per-packed-char 1) + (let-syntax ((fold (macro (expression) (eval expression system-global-environment))))