From 2d6bb0af867e674f75623abf11f73c18cf39e601 Mon Sep 17 00:00:00 2001 From: "Arthur A. Gleckler" Date: Mon, 6 Sep 2010 22:57:30 -0700 Subject: [PATCH] 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 is not available. --- src/microcode/flonum.c | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.25.1