diff options
| -rw-r--r-- | libraries/integer-gmp/cbits/float.c | 2 | ||||
| -rw-r--r-- | libraries/integer-gmp/cbits/gmp-wrappers.cmm | 4 | ||||
| -rw-r--r-- | libraries/integer-gmp/cbits/longlong.c | 4 |
3 files changed, 6 insertions, 4 deletions
diff --git a/libraries/integer-gmp/cbits/float.c b/libraries/integer-gmp/cbits/float.c index ec82346455..6dc6f9be92 100644 --- a/libraries/integer-gmp/cbits/float.c +++ b/libraries/integer-gmp/cbits/float.c @@ -14,6 +14,8 @@ #include <math.h> +#define IEEE_FLOATING_POINT 1 + /* * Encoding and decoding Doubles. Code based on the HBC code * (lib/fltcode.c). diff --git a/libraries/integer-gmp/cbits/gmp-wrappers.cmm b/libraries/integer-gmp/cbits/gmp-wrappers.cmm index ee34aa2730..40a3c6bef9 100644 --- a/libraries/integer-gmp/cbits/gmp-wrappers.cmm +++ b/libraries/integer-gmp/cbits/gmp-wrappers.cmm @@ -121,7 +121,7 @@ integer_cmm_word2Integerzh * 'long long' primops for converting to/from Integers. */ -#ifdef SUPPORT_LONG_LONGS +#if WORD_SIZE_IN_BITS < 64 integer_cmm_int64ToIntegerzh { @@ -224,7 +224,7 @@ integer_cmm_word64ToIntegerzh RET_NP(s,p); } -#endif /* SUPPORT_LONG_LONGS */ +#endif /* WORD_SIZE_IN_BITS < 64 */ #define GMP_TAKE2_RET1(name,mp_fun) \ name \ diff --git a/libraries/integer-gmp/cbits/longlong.c b/libraries/integer-gmp/cbits/longlong.c index 2b42380d1e..1bf101819c 100644 --- a/libraries/integer-gmp/cbits/longlong.c +++ b/libraries/integer-gmp/cbits/longlong.c @@ -25,7 +25,7 @@ expect intensive use of either Int64 or Word64 types. #include "Rts.h" -#ifdef SUPPORT_LONG_LONGS +#if WORD_SIZE_IN_BITS < 64 HsWord64 hs_integerToWord64 (HsInt sa, StgByteArray /* Really: mp_limb_t* */ da) { @@ -63,4 +63,4 @@ HsInt64 hs_integerToInt64 (HsInt sa, StgByteArray /* Really: mp_limb_t* */ da) return res; } -#endif /* SUPPORT_LONG_LONGS */ +#endif /* WORD_SIZE_IN_BITS < 64 */ |