Remove unused __2Int_encodeDouble
authorIan Lynagh <ian@well-typed.com>
Sun, 19 May 2013 14:39:26 +0000 (15:39 +0100)
committerIan Lynagh <ian@well-typed.com>
Sun, 19 May 2013 14:39:26 +0000 (15:39 +0100)
rts/Linker.c
rts/StgPrimFloat.c
rts/StgPrimFloat.h

index 06cd6d2..2ec3a48 100644 (file)
@@ -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)                                   \
index e523f32..3b80d6f 100644 (file)
 
 #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)
index cd5da46..4f697c6 100644 (file)
@@ -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);