X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2Fieee-flpt.h;h=2f74896407331ab87d5ac1f93537ba8bb482610b;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=cef274d37517ecde7d85da9cb39300624250b55a;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/includes/ieee-flpt.h b/ghc/includes/ieee-flpt.h
index cef274d..2f74896 100644
--- a/ghc/includes/ieee-flpt.h
+++ b/ghc/includes/ieee-flpt.h
@@ -5,31 +5,39 @@
 
    /* Radix of exponent representation */
 #ifndef FLT_RADIX
-#define FLT_RADIX 2
+# define FLT_RADIX 2
 #endif
 
    /* Number of base-FLT_RADIX digits in the significand of a float */
 #ifndef FLT_MANT_DIG
-#define FLT_MANT_DIG 24
+# define FLT_MANT_DIG 24
 #endif
    /* Minimum int x such that FLT_RADIX**(x-1) is a normalised float */
 #ifndef FLT_MIN_EXP
-#define FLT_MIN_EXP (-125)
+# ifdef __GLASGOW_HASKELL__
+#  define FLT_MIN_EXP (negate 125)
+# else
+#  define FLT_MIN_EXP (-125)
+# endif
 #endif
    /* Maximum int x such that FLT_RADIX**(x-1) is a representable float */
 #ifndef FLT_MAX_EXP
-#define FLT_MAX_EXP 128
+# define FLT_MAX_EXP 128
 #endif
 
    /* Number of base-FLT_RADIX digits in the significand of a double */
 #ifndef DBL_MANT_DIG
-#define DBL_MANT_DIG 53
+# define DBL_MANT_DIG 53
 #endif
    /* Minimum int x such that FLT_RADIX**(x-1) is a normalised double */
 #ifndef DBL_MIN_EXP
-#define DBL_MIN_EXP (-1021)
+# ifdef __GLASGOW_HASKELL__
+#  define DBL_MIN_EXP (negate 1021)
+# else
+#  define DBL_MIN_EXP (-1021)
+# endif
 #endif
    /* Maximum int x such that FLT_RADIX**(x-1) is a representable double */
 #ifndef DBL_MAX_EXP
-#define DBL_MAX_EXP 1024
+# define DBL_MAX_EXP 1024
 #endif