diff options
author | Ian Lynagh <igloo@earth.li> | 2011-09-13 19:48:38 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-09-13 19:48:38 +0100 |
commit | 77d0c63890fb8626131788b9f9dea3b056520cc7 (patch) | |
tree | 175b40b40ad000dc4fef8ced8639ac98231991d9 | |
parent | 97bf1c52c82a907ed005981e79f5386d8aec4718 (diff) | |
download | haskell-77d0c63890fb8626131788b9f9dea3b056520cc7.tar.gz |
NOINLINE a couple more functions
We don't need them to be inlined at all, following changes in how
GHC handles Integers.
-rw-r--r-- | libraries/integer-gmp/GHC/Integer/Type.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/integer-gmp/GHC/Integer/Type.lhs b/libraries/integer-gmp/GHC/Integer/Type.lhs index d74b2f7d08..eef256b274 100644 --- a/libraries/integer-gmp/GHC/Integer/Type.lhs +++ b/libraries/integer-gmp/GHC/Integer/Type.lhs @@ -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 |