diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-05-19 17:54:30 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-05-19 17:54:30 +0100 |
| commit | 06bc377d33bd4bed8f0fe7a769c34cf7c6e0d643 (patch) | |
| tree | 8b8103f9f20773c9e9e4850cf316904d71bb81fc /libraries/integer-simple | |
| parent | 52719ad07501f791ae21518cd092fd10c30f54bf (diff) | |
| download | haskell-06bc377d33bd4bed8f0fe7a769c34cf7c6e0d643.tar.gz | |
More build fixes
Diffstat (limited to 'libraries/integer-simple')
| -rw-r--r-- | libraries/integer-simple/GHC/Integer/Logarithms/Internals.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/integer-simple/GHC/Integer/Logarithms/Internals.hs b/libraries/integer-simple/GHC/Integer/Logarithms/Internals.hs index 529062aa6d..3e3fbb1ee5 100644 --- a/libraries/integer-simple/GHC/Integer/Logarithms/Internals.hs +++ b/libraries/integer-simple/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# |