From: Arthur A. Gleckler <gnu@speechcode.com>
Date: Thu, 9 Sep 2010 06:15:43 +0000 (-0700)
Subject: Moved declaration inside a block in order to conform to C89.
X-Git-Tag: 20101212-Gtk~58
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=780686c757d2c1c888575046f4e1c3beacb9176b;p=mit-scheme.git

Moved declaration inside a block in order to conform to C89.
(Thanks to Taylor for pointing out the need for this.)
---

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);