X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStgPrimFloat.c;h=80f10e103cac82bbdf6342c6e35c9b536376b472;hb=b84b5969798530dbf5be9b8bb795b77e5dfbf042;hp=150bdc66a2fda2924c9054878bf23730f9632cf5;hpb=d8c655c1e3cac3eaf4ffa223b06fc37aba0871e5;p=ghc-hetmet.git

diff --git a/rts/StgPrimFloat.c b/rts/StgPrimFloat.c
index 150bdc6..80f10e1 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 *= 4294967296; /* exp2f(32); */
+  r *= 4294967296.0; /* exp2f(32); */
   r += (StgDouble)((unsigned int)j_low);
   
   /* Now raise to the exponent */