From 2116d36094bfcb143d236f79880b5f6d963287e7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 26 Jun 2011 02:25:07 -0700 Subject: [PATCH] Fix out-of-place declarations. --- 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 1d50db419..b329015a0 100644 --- a/src/microcode/flonum.c +++ b/src/microcode/flonum.c @@ -332,22 +332,24 @@ DEFINE_PRIMITIVE ("CAST-IEEE754-SINGLE-TO-INTEGER", Prim_cast_ieee754_single_to_ { PRIMITIVE_HEADER (1); CHECK_ARG (1, FLONUM_P); + { + float_uint32_t_cast cast; - float_uint32_t_cast cast; - - cast.f = (float) FLONUM_TO_DOUBLE (ARG_REF (1)); + cast.f = (float) FLONUM_TO_DOUBLE (ARG_REF (1)); - PRIMITIVE_RETURN (uintmax_to_integer (cast.u32)); + PRIMITIVE_RETURN (uintmax_to_integer (cast.u32)); + } } DEFINE_PRIMITIVE ("CAST-INTEGER-TO-IEEE754-SINGLE", Prim_cast_integer_to_ieee754_single, 1, 1, 0) { PRIMITIVE_HEADER (1); CHECK_ARG (1, INTEGER_P); + { + float_uint32_t_cast cast; - float_uint32_t_cast cast; - - cast.u32 = integer_to_uintmax (ARG_REF (1)); + cast.u32 = integer_to_uintmax (ARG_REF (1)); - PRIMITIVE_RETURN (double_to_flonum ((double) cast.f)); + PRIMITIVE_RETURN (double_to_flonum ((double) cast.f)); + } } -- 2.25.1