From 2016964946f0bff4753295bd4918f98cc1195a7c Mon Sep 17 00:00:00 2001
From: Duncan Coutts <duncan@well-typed.com>
Date: Thu, 11 Jun 2009 15:48:52 +0000
Subject: [PATCH] Remove __encodeDouble and __encodeFloat from the rts They
 now live in the integer-gmp package.

---
 rts/Linker.c       |    2 --
 rts/StgPrimFloat.c |   44 --------------------------------------------
 2 files changed, 46 deletions(-)

diff --git a/rts/Linker.c b/rts/Linker.c
index 402721f..283103f 100644
--- 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
--- 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)
-- 
1.7.10.4