From: Don Stewart <dons@galois.com>
Date: Wed, 30 Apr 2008 21:48:27 +0000 (+0000)
Subject: Replace C99 exp2f(32) call in __2Int_encodeDouble
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d8c655c1e3cac3eaf4ffa223b06fc37aba0871e5;ds=sidebyside

Replace C99 exp2f(32) call in __2Int_encodeDouble
with constant 4294967296.

exp2f is a C99-ism not availabl everywhere. Replace it
with its result. Helps building on OpenBSD>
---

diff --git a/rts/StgPrimFloat.c b/rts/StgPrimFloat.c
index 21ba9dc..150bdc6 100644
--- a/rts/StgPrimFloat.c
+++ b/rts/StgPrimFloat.c
@@ -89,7 +89,7 @@ __2Int_encodeDouble (I_ j_high, I_ j_low, I_ e)
   ASSERT(sizeof(int          ) == 4            );
 
   r = (StgDouble)((unsigned int)j_high);
-  r *= exp2f(32);
+  r *= 4294967296; /* exp2f(32); */
   r += (StgDouble)((unsigned int)j_low);
   
   /* Now raise to the exponent */