Update bitsdigits.jl

JeffreySarnoff · Jul 4, 2019 · 0a952f2 · 0a952f2 · JeffreySarnoff · Jul 4, 2019
1 parent d653ca7
commit 0a952f2
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/values/bitsdigits.jl b/src/values/bitsdigits.jl
@@ -126,9 +126,13 @@ extrabits(x::ArbReal{P}) where {P} = extrabits(ArbReal)
 extrabits(x::ArbComplex{P}) where {P} = extrabits(ArbComplex)
 
 function setextrabits(n::Int)
-    ExtraBits.x = max(0,n)
-    working = precision(ArbFloat) + ExtraBits.x
-    DEFAULT_PRECISION.x = working
+    n >=0 || throw(DomainError("extrabits must be >= 0"))
+    priorextra = extrabits()
+    priorworking = workingprecision(ArbFloat)
+    newextra = n
+    newworking = priorworking + (newextra - priorextra)
+    ExtraBits.x = newextra
+    DEFAULT_PRECISION.x = newworking
     return ExtraBits.x
 end