Placate clang (#8444, #8445)
authorAustin Seipp <austin@well-typed.com>
Fri, 25 Oct 2013 08:39:19 +0000 (03:39 -0500)
committerAustin Seipp <austin@well-typed.com>
Fri, 25 Oct 2013 14:14:29 +0000 (09:14 -0500)
Once again the whitespace rules (and the rules concerning expansion of
tokens) have bitten us.

Authored-by: Authored-by: Luke Iannini <lukexi@me.com>
Signed-off-by: Austin Seipp <austin@well-typed.com>
compiler/deSugar/DsBinds.lhs
compiler/utils/FastString.lhs
includes/MachDeps.h

index cbdc98f..46ab91c 100644 (file)
@@ -810,7 +810,7 @@ wrapInEqRCase e mkBody = do
   cov <- newSysLocalDs (mkCoercionType Representational ty1 ty2)
   body' <- mkBody (mkCoVarCo cov)
   return $
-        ASSERT (tc == coercibleTyCon)
+        ASSERT(tc == coercibleTyCon)
         mkWildCase
                 e
                 (exprType e)
index 4c03cc7..a4908b5 100644 (file)
@@ -241,7 +241,7 @@ string_table = unsafePerformIO $ do
   tab <- IO $ \s1# -> case newArray# hASH_TBL_SIZE_UNBOXED (panic "string_table") s1# of
                           (# s2#, arr# #) ->
                               (# s2#, FastStringTable uid arr# #)
-  forM_ [0..hASH_TBL_SIZE-1] $ \i -> do
+  forM_ [0.. hASH_TBL_SIZE-1] $ \i -> do
      bucket <- newIORef []
      updTbl tab i bucket
 
@@ -544,7 +544,7 @@ nilFS = mkFastString ""
 
 getFastStringTable :: IO [[FastString]]
 getFastStringTable = do
-  buckets <- forM [0..hASH_TBL_SIZE-1] $ \idx -> do
+  buckets <- forM [0.. hASH_TBL_SIZE-1] $ \idx -> do
     bucket <- lookupTbl string_table idx
     readIORef bucket
   return buckets
index 4c86e19..f176ef8 100644 (file)
 #ifndef WORD_SIZE_IN_BITS
 #if SIZEOF_HSWORD == 4
 #define WORD_SIZE_IN_BITS       32
+#define WORD_SIZE_IN_BITS_FLOAT 32.0
 #else 
 #define WORD_SIZE_IN_BITS       64
+#define WORD_SIZE_IN_BITS_FLOAT 64.0
 #endif
 #endif