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 | |
| parent | 891857a30f9c899d33d137605b41d2698353c610 (diff) | |
| download | haskell-a4cc7b11afe212a6b9965a406c791e669ea5fc5b.tar.gz | |
Remove unused __2Int_encodeDouble
| -rw-r--r-- | rts/Linker.c | 1 | ||||
| -rw-r--r-- | rts/StgPrimFloat.c | 23 | ||||
| -rw-r--r-- | rts/StgPrimFloat.h | 1 |
3 files changed, 0 insertions, 25 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 06cd6d2025..2ec3a48eff 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1067,7 +1067,6 @@ typedef struct _RtsSymbolVal { SymI_HasProto(addDLL) \ SymI_HasProto(__int_encodeDouble) \ SymI_HasProto(__word_encodeDouble) \ - SymI_HasProto(__2Int_encodeDouble) \ SymI_HasProto(__int_encodeFloat) \ SymI_HasProto(__word_encodeFloat) \ SymI_HasProto(stg_atomicallyzh) \ 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) diff --git a/rts/StgPrimFloat.h b/rts/StgPrimFloat.h index cd5da46326..4f697c66e8 100644 --- a/rts/StgPrimFloat.h +++ b/rts/StgPrimFloat.h @@ -14,7 +14,6 @@ /* grimy low-level support functions defined in StgPrimFloat.c */ void __decodeDouble_2Int (I_ *man_sign, W_ *man_high, W_ *man_low, I_ *exp, StgDouble dbl); void __decodeFloat_Int (I_ *man, I_ *exp, StgFloat flt); -StgDouble __2Int_encodeDouble (I_ j_high, I_ j_low, I_ e); StgDouble __word_encodeDouble (W_ j, I_ e); StgFloat __word_encodeFloat (W_ j, I_ e); |