Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c46611f5c7bc8c1a73029fe9250fe5f7314190f7 >--------------------------------------------------------------- commit c46611f5c7bc8c1a73029fe9250fe5f7314190f7 Author: Daniel Fischer <[email protected]> Date: Thu Oct 6 11:16:39 2011 +0200 Remove now unnecessary helper function >--------------------------------------------------------------- GHC/Float.lhs | 9 --------- 1 files changed, 0 insertions(+), 9 deletions(-) diff --git a/GHC/Float.lhs b/GHC/Float.lhs index 542dd9c..68eed2c 100644 --- a/GHC/Float.lhs +++ b/GHC/Float.lhs @@ -860,15 +860,6 @@ fromRat' x = r (x', p') = if x0 >= xMax then (x0 / toRational b, p0+1) else (x0, p0) r = encodeFloat (round x') p' --- We don't need this helper anymore, TODO: remove? --- Scale x until xMin <= x < xMax, or p (the exponent) <= minExp. -scaleRat :: Rational -> Int -> Rational -> Rational -> Int -> Rational -> (Rational, Int) -scaleRat b minExp xMin xMax p x - | x >= xMax = scaleRat b minExp xMin xMax (p+1) (x/b) - | p <= minExp = (x, p) - | x < xMin = scaleRat b minExp xMin xMax (p-1) (x*b) - | otherwise = (x, p) - -- Exponentiation with a cache for the most common numbers. minExpt, maxExpt :: Int minExpt = 0 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
