[commit: ghc] wip/T16197: try to fix CI (a303695)
git at git.haskell.org
git at git.haskell.org
Thu Jan 17 13:58:45 UTC 2019
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/T16197
Link : http://ghc.haskell.org/trac/ghc/changeset/a303695b0ac8c73455d080808d437af1bed21b18/ghc
>---------------------------------------------------------------
commit a303695b0ac8c73455d080808d437af1bed21b18
Author: Alec Theriault <alec.theriault at gmail.com>
Date: Tue Jan 8 16:29:32 2019 -0800
try to fix CI
>---------------------------------------------------------------
a303695b0ac8c73455d080808d437af1bed21b18
libraries/integer-simple/GHC/Integer/Type.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/libraries/integer-simple/GHC/Integer/Type.hs b/libraries/integer-simple/GHC/Integer/Type.hs
index ed844f4..3317893 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
More information about the ghc-commits
mailing list