From f473a3b8817dce18cfb0c43c15795cdf559c6b7e Mon Sep 17 00:00:00 2001 From: Duncan Coutts Date: Thu, 11 Jun 2009 16:01:00 +0000 Subject: [PATCH] Remove unused foreign imports of __encodeFloat/Double --- GHC/Float.lhs | 9 --------- 1 file changed, 9 deletions(-) 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 -- 1.7.10.4