From 780686c757d2c1c888575046f4e1c3beacb9176b Mon Sep 17 00:00:00 2001 From: "Arthur A. Gleckler" Date: Wed, 8 Sep 2010 23:15:43 -0700 Subject: [PATCH] Moved declaration inside a block in order to conform to C89. (Thanks to Taylor for pointing out the need for this.) --- src/microcode/flonum.c | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/src/microcode/flonum.c b/src/microcode/flonum.c index 83c18f19d..c060622f4 100644 --- a/src/microcode/flonum.c +++ b/src/microcode/flonum.c @@ -281,12 +281,13 @@ DEFINE_PRIMITIVE ("CAST-IEEE754-DOUBLE-TO-INTEGER", Prim_cast_ieee754_double_to_ PRIMITIVE_HEADER (1); #if defined UINT64_MAX || defined uint64_t CHECK_ARG (1, FLONUM_P); + { + double_uint64_t_cast cast; - double_uint64_t_cast cast; - - cast.dbl = FLONUM_TO_DOUBLE (ARG_REF (1)); + cast.dbl = FLONUM_TO_DOUBLE (ARG_REF (1)); - PRIMITIVE_RETURN (uintmax_to_integer (cast.u64)); + PRIMITIVE_RETURN (uintmax_to_integer (cast.u64)); + } #else error_unimplemented_primitive (); PRIMITIVE_RETURN (UNSPECIFIC); @@ -298,12 +299,13 @@ DEFINE_PRIMITIVE ("CAST-INTEGER-TO-IEEE754-DOUBLE", Prim_cast_integer_to_ieee754 PRIMITIVE_HEADER (1); #if defined UINT64_MAX || defined uint64_t CHECK_ARG (1, INTEGER_P); + { + double_uint64_t_cast cast; - double_uint64_t_cast cast; - - cast.u64 = integer_to_uintmax (ARG_REF (1)); + cast.u64 = integer_to_uintmax (ARG_REF (1)); - PRIMITIVE_RETURN (double_to_flonum (cast.dbl)); + PRIMITIVE_RETURN (double_to_flonum (cast.dbl)); + } #else error_unimplemented_primitive (); PRIMITIVE_RETURN (UNSPECIFIC); -- 2.25.1