diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2019-01-08 16:29:32 -0800 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-01-16 14:17:11 -0500 |
| commit | a303695b0ac8c73455d080808d437af1bed21b18 (patch) | |
| tree | 03b81806df5c95447f54406010f5326eec810d87 /libraries/integer-simple | |
| parent | d2eb344a38f6c727040ba76e584aeaca8e8aefb3 (diff) | |
| download | haskell-a303695b0ac8c73455d080808d437af1bed21b18.tar.gz | |
try to fix CI
Diffstat (limited to 'libraries/integer-simple')
| -rw-r--r-- | libraries/integer-simple/GHC/Integer/Type.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/integer-simple/GHC/Integer/Type.hs b/libraries/integer-simple/GHC/Integer/Type.hs index ed844f4efa..33178932b6 100644 --- a/libraries/integer-simple/GHC/Integer/Type.hs +++ b/libraries/integer-simple/GHC/Integer/Type.hs @@ -329,6 +329,7 @@ popCountPositive p = word2Int# (go 0## p) go acc# None = acc# go acc# (Some d ds) = go (popCnt# d `plusWord#` acc#) ds +{-# NOINLINE bitInteger #-} -- | 'Integer' for which only /n/-th bit is set. Undefined behaviour -- for negative /n/ values. bitInteger :: Int# -> Integer @@ -343,6 +344,7 @@ bitPositive i# then Some 0## (bitPositive (i# -# WORD_SIZE_IN_BITS#)) else Some (uncheckedShiftL# 1## i#) None +{-# NOINLINE testBitInteger #-} testBitInteger :: Integer -> Int# -> Bool testBitInteger (!_) i# | isTrue# (i# <# 0#) = False testBitInteger Naught _ = False |