diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-10-26 02:03:24 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-10-26 02:03:29 -0500 |
| commit | 994ea5b6db55fb32199fc49ab83b62cb21cedd69 (patch) | |
| tree | 1cd367d335f0723d7762c34db87389db776c00e7 /libraries/integer-simple/GHC | |
| parent | d75ca3bcfb7a37b42570754be7ba671321d57770 (diff) | |
| download | haskell-994ea5b6db55fb32199fc49ab83b62cb21cedd69.tar.gz | |
Placate clang.
I forgot to push this as part of #8444.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'libraries/integer-simple/GHC')
| -rw-r--r-- | libraries/integer-simple/GHC/Integer/Type.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/integer-simple/GHC/Integer/Type.hs b/libraries/integer-simple/GHC/Integer/Type.hs index 387b8e20e3..144a52c701 100644 --- a/libraries/integer-simple/GHC/Integer/Type.hs +++ b/libraries/integer-simple/GHC/Integer/Type.hs @@ -854,7 +854,7 @@ doubleFromPositive None = 0.0## doubleFromPositive (Some w ds) = case splitHalves w of (# h, l #) -> - (doubleFromPositive ds *## (2.0## **## WORD_SIZE_IN_BITS.0##)) + (doubleFromPositive ds *## (2.0## **## WORD_SIZE_IN_BITS_FLOAT##)) +## (int2Double# (word2Int# h) *## (2.0## **## int2Double# (highHalfShift ()))) +## int2Double# (word2Int# l) @@ -865,7 +865,7 @@ floatFromPositive None = 0.0# floatFromPositive (Some w ds) = case splitHalves w of (# h, l #) -> - (floatFromPositive ds `timesFloat#` (2.0# `powerFloat#` WORD_SIZE_IN_BITS.0#)) + (floatFromPositive ds `timesFloat#` (2.0# `powerFloat#` WORD_SIZE_IN_BITS_FLOAT#)) `plusFloat#` (int2Float# (word2Int# h) `timesFloat#` (2.0# `powerFloat#` int2Float# (highHalfShift ()))) `plusFloat#` int2Float# (word2Int# l) |