diff options
-rw-r--r-- | gen_inverse.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gen_inverse.h b/gen_inverse.h index 2e7fba10a..c87d7bced 100644 --- a/gen_inverse.h +++ b/gen_inverse.h @@ -70,11 +70,13 @@ FUNCTION (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) MPFR_ZIV_INIT (loop, m); for(;;) { - INVERSE (z, x, GMP_RNDZ); /* error k_u < 1 ulp */ + MPFR_BLOCK_DECL (flags); + + MPFR_BLOCK (flags, INVERSE (z, x, GMP_RNDZ)); /* error k_u < 1 ulp */ /* FIXME: the following assumes that if an overflow happens with MPFR_EMAX_MAX, then necessarily an underflow happens with __gmpfr_emin */ - if (mpfr_overflow_p ()) + if (MPFR_OVERFLOW (flags)) { int s = MPFR_SIGN(z); MPFR_ZIV_FREE (loop); |