Repository : ssh://darcs.haskell.org//srv/darcs/packages/integer-simple On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ec58db71d59a9c4e61d32c09d9cc486ac175cfde >--------------------------------------------------------------- commit ec58db71d59a9c4e61d32c09d9cc486ac175cfde Author: Ian Lynagh <[email protected]> Date: Sun May 19 17:54:30 2013 +0100 More build fixes >--------------------------------------------------------------- GHC/Integer/Logarithms/Internals.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/Integer/Logarithms/Internals.hs b/GHC/Integer/Logarithms/Internals.hs index 529062a..3e3fbb1 100644 --- a/GHC/Integer/Logarithms/Internals.hs +++ b/GHC/Integer/Logarithms/Internals.hs @@ -131,9 +131,9 @@ integerLog2IsPowerOf2# _ = (# negateInt# 1#, 1# #) -- This function should probably be improved. roundingMode# :: Integer -> Int# -> Int# roundingMode# m h = - case smallInteger 1# `shiftLInteger` h of + case oneInteger `shiftLInteger` h of c -> case m `andInteger` - ((c `plusInteger` c) `minusInteger` smallInteger 1#) of + ((c `plusInteger` c) `minusInteger` oneInteger) of r -> if c `ltInteger` r then 2# _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
