From 9eb37e118223a84ea08ae597a26da645565d5ba7 Mon Sep 17 00:00:00 2001
From: vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>
Date: Fri, 26 Jun 2015 00:00:58 +0000
Subject: [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
---
 src/frexp.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
 }
-- 
cgit v1.2.1