From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Dec 1993 21:45:03 +0000 (+0000)
Subject: Eliminate duplicate definition of FLONUM_SIZE.
X-Git-Tag: 20090517-FFI~7389
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c688ab7457b6cdcac2ba43cbed17f06a1d88425b;p=mit-scheme.git

Eliminate duplicate definition of FLONUM_SIZE.
---

diff --git a/v7/src/microcode/flonum.c b/v7/src/microcode/flonum.c
index bb79cc40d..b100e1190 100644
--- a/v7/src/microcode/flonum.c
+++ b/v7/src/microcode/flonum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: flonum.c,v 9.41 1993/12/06 21:35:01 cph Exp $
+$Id: flonum.c,v 9.42 1993/12/06 21:45:03 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -57,8 +57,7 @@ DEFUN (double_to_flonum, (value), double value)
   ALIGN_FLOAT (Free);
   Primitive_GC_If_Needed (FLONUM_SIZE + 1);
   {
-    SCHEME_OBJECT result =
-      (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, (Free - (FLONUM_SIZE + 1))));
+    SCHEME_OBJECT result = (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, Free));
     (*Free++) = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, FLONUM_SIZE));
     (*((double *) Free)) = value;
     Free += FLONUM_SIZE;