cdar-mBound 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

• cdar-mBound.cabal +1/−1
• src/Data/CDAR/Approx.hs +1/−1

@@ -2,7 +2,7 @@ -- see http://haskell.org/cabal/users-guide/  name:                cdar-mBound-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Exact real arithmetic using Centred Dyadic Approximations description:         Please see https://github.com/michalkonecny/cdar/tree/mBound#readme license:             BSD3

@@ -404,7 +404,7 @@     | abs m <= 1 = a     | otherwise = Approx mb m' e'' (s + d)     where-    m_size = 1+integerLog2 (abs m - 1) -- |m| <= 2^m_size+    m_size = 1+integerLog2 (abs m - 1) --- |m| <= 2^m_size     d = m_size - mb     m' = unsafeShiftR m d -- we have: m' * 2^d <= m     e' = 1 + (unsafeShiftR (e-1) d) -- we have: 0 <= e <= e' * 2^d