From d8c655c1e3cac3eaf4ffa223b06fc37aba0871e5 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Wed, 30 Apr 2008 21:48:27 +0000 Subject: [PATCH] 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> --- rts/StgPrimFloat.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 */ -- 1.7.10.4