get_ld.c: fixed bugs in the case HAVE_LDOUBLE_IEEE_EXT_LITTLE (one found

by Steve Kargl, and another one concerning the mpfr_set_emax value).

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@6101 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 6 insertions, 3 deletions

diff --git a/get_ld.c b/get_ld.c
index 46cefb34e..2c860aa07 100644
--- a/get_ld.c
+++ b/get_ld.c
@@ -107,14 +107,17 @@ mpfr_get_ld (mpfr_srcptr x, mp_rnd_t rnd_mode)
 {
   mpfr_long_double_t ld;
   mpfr_t tmp;
+  int inex;
   MPFR_SAVE_EXPO_DECL (expo);
 
   MPFR_SAVE_EXPO_MARK (expo);
-  mpfr_set_emin (-16382-63);
-  mpfr_set_emax (16383);
 
   mpfr_init2 (tmp, MPFR_LDBL_MANT_DIG);
-  mpfr_subnormalize(tmp, mpfr_set (tmp, x, rnd_mode), rnd_mode);
+  inex = mpfr_set (tmp, x, rnd_mode);
+
+  mpfr_set_emin (-16382-63);
+  mpfr_set_emax (16384);
+  mpfr_subnormalize (tmp, mpfr_check_range (tmp, inex, rnd_mode), rnd_mode);
   mpfr_prec_round (tmp, 64, MPFR_RNDZ); /* exact */
   if (MPFR_UNLIKELY (MPFR_IS_SINGULAR (tmp)))
     ld.ld = (long double) mpfr_get_d (tmp, rnd_mode);