packages feed

qd 0.4 → 0.4.1

raw patch · 3 files changed

+3/−3 lines, 3 files

Files

Numeric/QD/DoubleDouble.hs view
@@ -125,7 +125,7 @@   decodeFloat !x = case toRational x of     0 -> (0, 0)     r ->  let k = floor $ fromIntegral ff - logBase (fromIntegral $ floatRadix x) (abs x)-              i = round $ (fromIntegral $ floatRadix x) ^ k * r+              i = round $ (fromIntegral $ floatRadix x) ^^ k * r               fixup m e =                 if abs m < mMin                   then fixup (m `shiftL` 1) (e - 1)
Numeric/QD/QuadDouble.hs view
@@ -132,7 +132,7 @@   decodeFloat !x = case toRational x of     0 -> (0, 0)     r ->  let k = floor $ fromIntegral ff - logBase (fromIntegral $ floatRadix x) (abs x)-              i = round $ (fromIntegral $ floatRadix x) ^ k * r+              i = round $ (fromIntegral $ floatRadix x) ^^ k * r               fixup m e =                 if abs m < mMin                   then fixup (m `shiftL` 1) (e - 1)
qd.cabal view
@@ -1,5 +1,5 @@ Name:                 qd-Version:              0.4+Version:              0.4.1 Synopsis:             double-double and quad-double number type via libqd Description:                       This package supports both a double-double datatype (approx. 32 decimal digits)