From: Duncan Coutts <duncan@well-typed.com>
Date: Thu, 11 Jun 2009 16:01:00 +0000 (+0000)
Subject: Remove unused foreign imports of __encodeFloat/Double
X-Git-Tag: 2009-06-25~24
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=f473a3b8817dce18cfb0c43c15795cdf559c6b7e;p=ghc-base.git

Remove unused foreign imports of __encodeFloat/Double
---

diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index 0d535c5..9249507 100644
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -905,21 +905,12 @@ powerDouble  (D# x) (D# y) = D# (x **## y)
 \end{code}
 
 \begin{code}
-foreign import ccall unsafe "__encodeFloat"
-        encodeFloat# :: Int# -> ByteArray# -> Int -> Float
-foreign import ccall unsafe "__int_encodeFloat"
-        int_encodeFloat# :: Int# -> Int -> Float
-
-
 foreign import ccall unsafe "isFloatNaN" isFloatNaN :: Float -> Int
 foreign import ccall unsafe "isFloatInfinite" isFloatInfinite :: Float -> Int
 foreign import ccall unsafe "isFloatDenormalized" isFloatDenormalized :: Float -> Int
 foreign import ccall unsafe "isFloatNegativeZero" isFloatNegativeZero :: Float -> Int
 
 
-foreign import ccall unsafe "__encodeDouble"
-        encodeDouble# :: Int# -> ByteArray# -> Int -> Double
-
 foreign import ccall unsafe "isDoubleNaN" isDoubleNaN :: Double -> Int
 foreign import ccall unsafe "isDoubleInfinite" isDoubleInfinite :: Double -> Int
 foreign import ccall unsafe "isDoubleDenormalized" isDoubleDenormalized :: Double -> Int