diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-01 19:35:13 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-01 19:35:13 +0000 |
| commit | 82b3b2a607dd7fc910687d7aaf85af7c027d239d (patch) | |
| tree | ec651b39c34082ebbe26c4a84e3d5d5bd31f35fb | |
| parent | 47b0050c8d9b0ff0a5effa3487c89211738a5128 (diff) | |
| download | haskell-82b3b2a607dd7fc910687d7aaf85af7c027d239d.tar.gz | |
Update to follow RTS tidyp changes
| -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 */ |