diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-05-19 15:39:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-05-19 15:39:26 +0100 |
| commit | a4cc7b11afe212a6b9965a406c791e669ea5fc5b (patch) | |
| tree | 35efe524a05ddce35361ea413f0b83f7706f0498 /rts/StgPrimFloat.c | |
| parent | 891857a30f9c899d33d137605b41d2698353c610 (diff) | |
| download | haskell-a4cc7b11afe212a6b9965a406c791e669ea5fc5b.tar.gz | |
Remove unused __2Int_encodeDouble
Diffstat (limited to 'rts/StgPrimFloat.c')
| -rw-r--r-- | rts/StgPrimFloat.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/rts/StgPrimFloat.c b/rts/StgPrimFloat.c index e523f328c3..3b80d6f388 100644 --- a/rts/StgPrimFloat.c +++ b/rts/StgPrimFloat.c @@ -43,29 +43,6 @@ #define __abs(a) (( (a) >= 0 ) ? (a) : (-(a))) -StgDouble -__2Int_encodeDouble (I_ j_high, I_ j_low, I_ e) -{ - StgDouble r; - - /* assuming 32 bit ints */ - ASSERT(sizeof(int ) == 4 ); - - r = (StgDouble)((unsigned int)j_high); - r *= 4294967296.0; /* exp2f(32); */ - r += (StgDouble)((unsigned int)j_low); - - /* Now raise to the exponent */ - if ( r != 0.0 ) /* Lennart suggests this avoids a bug in MIPS's ldexp */ - r = ldexp(r, e); - - /* sign is encoded in the size */ - if (j_high < 0) - r = -r; - - return r; -} - /* Special version for words */ StgDouble __word_encodeDouble (W_ j, I_ e) |