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 c72252af9914529e9c7c5f5b29e77b288526f88c..c61e00f747268bed2160514d0b538de3593ad8e0 100644 (file)
--- 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