diff options
| -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) |