[commit: ghc] master: Remove unused __2Int_encodeDouble (a4cc7b1)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/a4cc7b11afe212a6b9965a406c791e669ea5fc5b

>---------------------------------------------------------------

commit a4cc7b11afe212a6b9965a406c791e669ea5fc5b
Author: Ian Lynagh <ian at well-typed.com>
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);