From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 29 Jun 1993 22:23:57 +0000 (+0000)
Subject: Change flonum addressing units.
X-Git-Tag: 20090517-FFI~8258
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8feae32b043354bce8a16a0d9aa03e0060b3b152;p=mit-scheme.git

Change flonum addressing units.
---

diff --git a/v7/src/compiler/machines/alpha/machin.scm b/v7/src/compiler/machines/alpha/machin.scm
index e168f6159..e22a6e607 100644
--- a/v7/src/compiler/machines/alpha/machin.scm
+++ b/v7/src/compiler/machines/alpha/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.5 1993/06/29 22:21:47 gjr Exp $
+$Id: machin.scm,v 1.6 1993/06/29 22:23:57 gjr Exp $
 
 Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.)
 
@@ -52,9 +52,12 @@ case.
 (define-integrable type-scale-factor
   (expt 2 (- 8 scheme-type-width)))
 
-(define-integrable flonum-size 1)
+(define-integrable float-width 64)
 (define-integrable float-alignment 64)
 
+(define-integrable address-units-per-float
+  (quotient float-width addressing-granularity))
+
 ;;; 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