[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