Remove __encodeDouble and __encodeFloat from the rts

They now live in the integer-gmp package.

diff --git a/rts/Linker.c b/rts/Linker.c
index 402721f..283103f 100644 (file)
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -590,8 +590,6 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(OnExitHook)                                \
       SymI_HasProto(OutOfHeapHook)                     \
       SymI_HasProto(StackOverflowHook)                 \
-      SymI_HasProto(__encodeDouble)                    \
-      SymI_HasProto(__encodeFloat)                     \
       SymI_HasProto(addDLL)                            \
       GMP_SYMS                                         \
       SymI_HasProto(__int_encodeDouble)                        \

diff --git a/rts/StgPrimFloat.c b/rts/StgPrimFloat.c
index 3db953e..743e0ea 100644 (file)
--- a/rts/StgPrimFloat.c
+++ b/rts/StgPrimFloat.c
@@ -60,28 +60,6 @@
 #define __abs(a)               (( (a) >= 0 ) ? (a) : (-(a)))
 
 StgDouble
-__encodeDouble (I_ size, StgByteArray ba, I_ e) /* result = s * 2^e */
-{
-    StgDouble r;
-    const mp_limb_t *const arr = (const mp_limb_t *)ba;
-    I_ i;
-
-    /* Convert MP_INT to a double; knows a lot about internal rep! */
-    for(r = 0.0, i = __abs(size)-1; i >= 0; i--)
-       r = (r * GMP_BASE) + arr[i];
-
-    /* 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 (size < 0)
-       r = -r;
-
-    return r;
-}
-
-StgDouble
 __2Int_encodeDouble (I_ j_high, I_ j_low, I_ e)
 {
   StgDouble r;
@@ -138,28 +116,6 @@ __int_encodeDouble (I_ j, I_ e)
   return r;
 }
 
-StgFloat
-__encodeFloat (I_ size, StgByteArray ba, I_ e) /* result = s * 2^e */
-{
-    StgFloat r;
-    const mp_limb_t *arr = (const mp_limb_t *)ba;
-    I_ i;
-
-    /* Convert MP_INT to a float; knows a lot about internal rep! */
-    for(r = 0.0, i = __abs(size)-1; i >= 0; i--)
-       r = (r * GMP_BASE) + arr[i];
-
-    /* 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 (size < 0)
-       r = -r;
-
-    return r;
-}
-
 /* Special version for small Integers */
 StgFloat
 __int_encodeFloat (I_ j, I_ e)