Repository : http://darcs.haskell.org/ghc.git/
On branch : master https://github.com/ghc/ghc/commit/a4cc7b11afe212a6b9965a406c791e669ea5fc5b >--------------------------------------------------------------- commit a4cc7b11afe212a6b9965a406c791e669ea5fc5b Author: Ian Lynagh <[email protected]> Date: Sun May 19 15:39:26 2013 +0100 Remove unused __2Int_encodeDouble >--------------------------------------------------------------- rts/Linker.c | 1 - rts/StgPrimFloat.c | 23 ----------------------- rts/StgPrimFloat.h | 1 - 3 files changed, 25 deletions(-) diff --git a/rts/Linker.c b/rts/Linker.c index 06cd6d2..2ec3a48 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 e523f32..3b80d6f 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 cd5da46..4f697c6 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); _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
