diff options
author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2015-07-15 13:48:37 +0000 |
---|---|---|
committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2015-07-15 13:48:37 +0000 |
commit | 1e88edcf7cb78cc454a39e6d1f2b204c218b5b04 (patch) | |
tree | bdfaec816dbe3c07755a3be8cbc593a40e4134eb /src | |
parent | 4f5b657b3d86c3da8d21d668c8a00bce9908dbd0 (diff) | |
download | mpfr-1e88edcf7cb78cc454a39e6d1f2b204c218b5b04.tar.gz |
[src/exceptions.c] Added logging for mpfr_underflow and mpfr_overflow.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@9615 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'src')
-rw-r--r-- | src/exceptions.c | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/exceptions.c b/src/exceptions.c index 1f0eea29a..14b57e7e7 100644 --- a/src/exceptions.c +++ b/src/exceptions.c @@ -374,6 +374,11 @@ mpfr_underflow (mpfr_ptr x, mpfr_rnd_t rnd_mode, int sign) { int inex; + MPFR_LOG_FUNC + (("x[%Pu]=%.*Rg rnd=%d sign=%d", mpfr_get_prec (x), mpfr_log_prec, x, + rnd_mode, sign), + ("x[%Pu]=%.*Rg", mpfr_get_prec (x), mpfr_log_prec, x)); + MPFR_ASSERT_SIGN (sign); if (MPFR_IS_LIKE_RNDZ(rnd_mode, sign < 0)) @@ -398,7 +403,13 @@ mpfr_overflow (mpfr_ptr x, mpfr_rnd_t rnd_mode, int sign) { int inex; - MPFR_ASSERT_SIGN(sign); + MPFR_LOG_FUNC + (("x[%Pu]=%.*Rg rnd=%d sign=%d", mpfr_get_prec (x), mpfr_log_prec, x, + rnd_mode, sign), + ("x[%Pu]=%.*Rg", mpfr_get_prec (x), mpfr_log_prec, x)); + + MPFR_ASSERT_SIGN (sign); + if (MPFR_IS_LIKE_RNDZ(rnd_mode, sign < 0)) { mpfr_setmax (x, __gmpfr_emax); |