From: Arthur A. Gleckler <gnu@speechcode.com>
Date: Tue, 7 Sep 2010 05:57:30 +0000 (-0700)
Subject: Conditionalized compilation of the flonum casting primitives.
X-Git-Tag: 20101212-Gtk~60
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d6bb0af867e674f75623abf11f73c18cf39e601;p=mit-scheme.git

Conditionalized compilation of the flonum casting primitives.
The primitives `cast-ieee754-double-to-integer' and
`cast-integer-to-ieee754-double' are omitted when the type
<uint64_t> is not available.
---

diff --git a/src/microcode/flonum.c b/src/microcode/flonum.c
index c72252af9..c61e00f74 100644
--- a/src/microcode/flonum.c
+++ b/src/microcode/flonum.c
@@ -266,6 +266,8 @@ DEFINE_PRIMITIVE ("FLONUM-DENORMALIZE", Prim_flonum_denormalize, 2, 2, 0)
  * to support using these primitives with non-IEEE 754 floating-point
  * numbers, we may have to adjust them.
  */
+
+#if defined UINT64_MAX || defined uint64_t
 typedef
 union
 {
@@ -296,6 +298,7 @@ DEFINE_PRIMITIVE ("CAST-INTEGER-TO-IEEE754-DOUBLE", Prim_cast_integer_to_ieee754
 
   PRIMITIVE_RETURN (double_to_flonum (cast.dbl));
 }
+#endif
 
 typedef
 union