diff options
author | Paul Zimmermann <Paul.Zimmermann@inria.fr> | 2020-02-13 17:02:37 +0100 |
---|---|---|
committer | Paul Zimmermann <Paul.Zimmermann@inria.fr> | 2020-02-13 17:02:37 +0100 |
commit | 9453a7481a3e41ed18ce08d83bba9ad895c16d4d (patch) | |
tree | 5c8706450dfaefb255e051e740dc76f261c0e377 /src/asin.c | |
parent | e39e6b1a568068470b964b6fdbe010d51dfd43bd (diff) | |
download | mpc-git-9453a7481a3e41ed18ce08d83bba9ad895c16d4d.tar.gz |
improve corner cases in asin, added test for acos
Diffstat (limited to 'src/asin.c')
-rw-r--r-- | src/asin.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -87,7 +87,7 @@ mpc_asin (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd) mpfr_rnd_t rnd_re, rnd_im; mpc_t z1; int inex, inex_re, inex_im, loop = 0; - mpfr_exp_t saved_emin, saved_emax; + mpfr_exp_t saved_emin, saved_emax, err; /* special values */ if (mpfr_nan_p (mpc_realref (op)) || mpfr_nan_p (mpc_imagref (op))) @@ -206,11 +206,13 @@ mpc_asin (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd) rnd_im = MPC_RND_IM(rnd); p = p_re >= p_im ? p_re : p_im; mpc_init2 (z1, p); + err = 0; /* number of lost bits */ while (1) { - mpfr_exp_t ex, ey, err; + mpfr_exp_t ex, ey; loop ++; + p += err; /* add number of lost bits in previous loop */ p += (loop <= 2) ? mpc_ceil_log2 (p) + 3 : p / 2; mpfr_set_prec (mpc_realref(z1), p); mpfr_set_prec (mpc_imagref(z1), p); |