From 4ecf62f1852636f6525cb2be6e782aceccf41547 Mon Sep 17 00:00:00 2001
From: Austin Seipp <austin@well-typed.com>
Date: Sat, 26 Oct 2013 02:03:24 -0500
Subject: [PATCH] Placate clang.
I forgot to push this as part of #8444.
Signed-off-by: Austin Seipp <austin@well-typed.com>
---
GHC/Integer/Type.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/GHC/Integer/Type.hs b/GHC/Integer/Type.hs
index 387b8e2..144a52c 100644
--- a/GHC/Integer/Type.hs
+++ b/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)
--
GitLab