diff options
| author | Don Stewart <dons@galois.com> | 2008-04-30 21:48:27 +0000 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-04-30 21:48:27 +0000 |
| commit | d8c655c1e3cac3eaf4ffa223b06fc37aba0871e5 (patch) | |
| tree | 34de5e66ceaebcb2919f3c5a353c9dca8957e94b /rts/StgPrimFloat.c | |
| parent | 510aac2a8a8e2618e4ff2069a9df398c05b130fb (diff) | |
| download | haskell-d8c655c1e3cac3eaf4ffa223b06fc37aba0871e5.tar.gz | |
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>
Diffstat (limited to 'rts/StgPrimFloat.c')
| -rw-r--r-- | rts/StgPrimFloat.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/StgPrimFloat.c b/rts/StgPrimFloat.c index 21ba9dc41c..150bdc66a2 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 */ |