summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-09-13 19:48:38 +0100
committerIan Lynagh <igloo@earth.li>2011-09-13 19:48:38 +0100
commit77d0c63890fb8626131788b9f9dea3b056520cc7 (patch)
tree175b40b40ad000dc4fef8ced8639ac98231991d9
parent97bf1c52c82a907ed005981e79f5386d8aec4718 (diff)
downloadhaskell-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.lhs4
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