diff options
Diffstat (limited to 'libraries/ghc-bignum/src/GHC/Num/Integer.hs')
| -rw-r--r-- | libraries/ghc-bignum/src/GHC/Num/Integer.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/ghc-bignum/src/GHC/Num/Integer.hs b/libraries/ghc-bignum/src/GHC/Num/Integer.hs index 4d72c258c7..ed9b684d39 100644 --- a/libraries/ghc-bignum/src/GHC/Num/Integer.hs +++ b/libraries/ghc-bignum/src/GHC/Num/Integer.hs @@ -617,6 +617,7 @@ integerSetBit !i (W# n) = integerSetBit# i n -- -- @since 1.3 integerClearBit# :: Integer -> Word# -> Integer +{-# INLINE integerClearBit# #-} integerClearBit# n@(IS x) i | isTrue# (i `ltWord#` (WORD_SIZE_IN_BITS## `minusWord#` 1##)) = IS (x `andI#` notI# (uncheckedIShiftL# 1# (word2Int# i))) @@ -644,6 +645,7 @@ integerClearBit# (IN x) i = IN (bigNatAddWord# -- -- @since 1.3 integerClearBit :: Integer -> Word -> Integer +{-# INLINE integerClearBit #-} integerClearBit !i (W# n) = integerClearBit# i n -- | Reverse the /n/-th bit. |