Update to follow RTS tidyp changes
authorSimon Marlow <marlowsd@gmail.com>
Sat, 1 Aug 2009 19:35:13 +0000 (19:35 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Sat, 1 Aug 2009 19:35:13 +0000 (19:35 +0000)
cbits/float.c
cbits/gmp-wrappers.cmm
cbits/longlong.c

index ec82346..6dc6f9b 100644 (file)
@@ -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).
index ee34aa2..40a3c6b 100644 (file)
@@ -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                                                                    \
index 2b42380..1bf1018 100644 (file)
@@ -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 */