Commit a303695b authored by Alec Theriault's avatar Alec Theriault Committed by Ben Gamari

try to fix CI

parent d2eb344a
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment