diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2015-06-26 00:00:58 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2015-06-26 00:00:58 +0000 |
| commit | 9eb37e118223a84ea08ae597a26da645565d5ba7 (patch) | |
| tree | f583a0a37740bcd6124177059afe9d0c7df2274f | |
| parent | 60bde30f45de2dcebc7a8506d3e767d02a6e75a7 (diff) | |
| download | mpfr-9eb37e118223a84ea08ae597a26da645565d5ba7.tar.gz | |
[src/frexp.c] Fixed a bug occurring when the current exponent range
does not contain 0.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@9592 280ebfd0-de03-0410-8827-d642c229c3f4
| -rw-r--r-- | src/frexp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/frexp.c b/src/frexp.c index 0f8de7ed5..40991fb45 100644 --- a/src/frexp.c +++ b/src/frexp.c @@ -51,6 +51,7 @@ mpfr_frexp (mpfr_exp_t *exp, mpfr_ptr y, mpfr_srcptr x, mpfr_rnd_t rnd) inex = mpfr_set (y, x, rnd); *exp = MPFR_GET_EXP (y); - MPFR_SET_EXP (y, 0); + /* Do not use MPFR_SET_EXP because the range has not been checked yet. */ + MPFR_EXP (y) = 0; return mpfr_check_range (y, inex, rnd); } |