NOINLINE a couple more functions
authorIan Lynagh <igloo@earth.li>
Tue, 13 Sep 2011 18:48:38 +0000 (19:48 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 13 Sep 2011 18:48:38 +0000 (19:48 +0100)
We don't need them to be inlined at all, following changes in how
GHC handles Integers.

GHC/Integer/Type.lhs

index d74b2f7..eef256b 100644 (file)
@@ -72,11 +72,11 @@ data Integer
    = S# Int#                            -- small integers
    | J# Int# ByteArray#                 -- large integers
 
-{-# INLINE [0] smallInteger #-}
+{-# NOINLINE smallInteger #-}
 smallInteger :: Int# -> Integer
 smallInteger i = S# i
 
-{-# INLINE [0] wordToInteger #-}
+{-# NOINLINE wordToInteger #-}
 wordToInteger :: Word# -> Integer
 wordToInteger w = case word2Integer# w of (# s, d #) -> J# s d