don't throw InexactError on parsing/conversion (#94)

* don't throw InexactError on parsing/conversion

* 1e10000 now parses to Inf

Author: stevengj

src/DecFP.jl

@@ -39,9 +39,13 @@ macro xchk(x, exc, args...)
     end
     quote
         ret = $(esc(x))
-        f = unsafe_load(flags[])
-        unsafe_store!(flags[], 0)
-        f & $mask != 0 && throw($exc($(map(esc,args)...)))
+        if $exc === nothing
+            unsafe_store!(flags[], 0)
+        else
+            f = unsafe_load(flags[])
+            unsafe_store!(flags[], 0)
+            f & $mask != 0 && throw($exc($(map(esc,args)...)))
+        end
         ret
     end
 end
@@ -213,7 +217,7 @@ for w in (32,64,128)
             if isnan(x) && !isnanstr(s)
                 throw(ArgumentError("invalid number format $s"))
             end
-            return @xchk(x, InexactError, :parse, $BID, s)
+            return @xchk(x, nothing)
         end
 
         $BID(x::AbstractString) = parse($BID, x)
@@ -422,7 +426,7 @@ for w in (32,64,128)
             @eval promote_rule(::Type{$BID}, ::Type{$BID′}) = $BID
         end
         if w != w′
-            @eval Base.convert(::Type{$BID}, x::$BID′) = @xchk(ccall(($(string("__bid",w′,"_to_","bid",w)), libbid), $BID, ($BID′,), x), InexactError, :convert, $BID, x, mask=INEXACT)
+            @eval Base.convert(::Type{$BID}, x::$BID′) = @xchk(ccall(($(string("__bid",w′,"_to_","bid",w)), libbid), $BID, ($BID′,), x), nothing)
         end
 
         # promote binary*decimal -> decimal, for consistency with other operations above

test/runtests.jl

@@ -193,7 +193,7 @@ for T in (Dec32, Dec64, Dec128)
     TI = eval(Symbol(string("UInt", sizeof(T)*8)))
     @test bswap(xd) == reinterpret(T, bswap(reinterpret(TI, xd)))
 
-    @test_throws InexactError parse(T, "1e10000")
+    @test parse(T, "1e10000") == T(Inf)
     @test_throws DomainError asin(xd)
     @test_throws DomainError sqrt(yd)
     @test_throws DomainError acosh(zd)
@@ -222,3 +222,6 @@ end
 
 @test Float64(d64"1e100") == 1e100
 
+# issue #93
+@test parse(Dec64, "3935767060.093896713") == d64"3.935767060093897e9" ==
+      Dec64(d128"3935767060.093896713")