From 67e69632328b245daed3556f55e93e1f9552d7f6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 Dec 1993 21:35:01 +0000 Subject: [PATCH] Eliminate duplicate definition of FLONUM_SIZE. --- v7/src/microcode/flonum.c | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/v7/src/microcode/flonum.c b/v7/src/microcode/flonum.c index 58d6a5b5a..bb79cc40d 100644 --- a/v7/src/microcode/flonum.c +++ b/v7/src/microcode/flonum.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: flonum.c,v 9.40 1993/06/24 07:08:34 gjr Exp $ +$Id: flonum.c,v 9.41 1993/12/06 21:35:01 cph Exp $ Copyright (c) 1987-92 Massachusetts Institute of Technology @@ -51,17 +51,19 @@ DEFUN (arg_flonum, (arg_number), int arg_number) #define FLONUM_RESULT(x) PRIMITIVE_RETURN (double_to_flonum (x)) #define BOOLEAN_RESULT(x) PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (x)) -#define FLONUM_SIZE ((BYTES_TO_WORDS (sizeof (double))) + 1) - SCHEME_OBJECT DEFUN (double_to_flonum, (value), double value) { ALIGN_FLOAT (Free); - Primitive_GC_If_Needed (FLONUM_SIZE); - (*Free++) = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, (FLONUM_SIZE - 1))); - (*((double *) Free)) = value; - Free += (BYTES_TO_WORDS (sizeof (double))); - return (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, (Free - FLONUM_SIZE))); + Primitive_GC_If_Needed (FLONUM_SIZE + 1); + { + SCHEME_OBJECT result = + (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, (Free - (FLONUM_SIZE + 1)))); + (*Free++) = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, FLONUM_SIZE)); + (*((double *) Free)) = value; + Free += FLONUM_SIZE; + return (result); + } } #define FLONUM_BINARY_OPERATION(operator) \ -- 2.25.1