X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2Fieee-flpt.h;fp=ghc%2Fincludes%2Fieee-flpt.h;h=a1fce3a8da23cb48eb04f14446753b8da2be159a;hb=f48f5a96c6bf80d4664be3a80c2e3d711d6e1228;hp=2f74896407331ab87d5ac1f93537ba8bb482610b;hpb=b756483df16920b3ff7222c6ddd6cdf9bcf58367;p=ghc-hetmet.git

diff --git a/ghc/includes/ieee-flpt.h b/ghc/includes/ieee-flpt.h
index 2f74896..a1fce3a 100644
--- a/ghc/includes/ieee-flpt.h
+++ b/ghc/includes/ieee-flpt.h
@@ -14,11 +14,7 @@
 #endif
    /* Minimum int x such that FLT_RADIX**(x-1) is a normalised float */
 #ifndef FLT_MIN_EXP
-# 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
@@ -31,11 +27,7 @@
 #endif
    /* Minimum int x such that FLT_RADIX**(x-1) is a normalised double */
 #ifndef DBL_MIN_EXP
-# 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