Zorgs.

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

1 files changed, 2 insertions, 1 deletions

diff --git a/set_d.c b/set_d.c
index ac387aa57..1bc1dbdc4 100644
--- a/set_d.c
+++ b/set_d.c
@@ -276,6 +276,7 @@ mpfr_set_d (r, d, rnd_mode)
     }
 
   sizer = (MPFR_PREC(r)-1)/BITS_PER_MP_LIMB + 1;
+
   if (sizer < MPFR_LIMBS_PER_DOUBLE) 
     {
       tmp = TMP_ALLOC(sizeof(mpfr_ptr)); 
@@ -290,7 +291,7 @@ mpfr_set_d (r, d, rnd_mode)
 
   /* warning: __mpfr_extract_double requires at least two limbs */
   if (sizer < MPFR_LIMBS_PER_DOUBLE)
-    MPFR_EXP(tmp) = __mpfr_extract_double (MPFR_MANT(tmp), d, 0);
+    MPFR_EXP(tmp) = __mpfr_extract_double (MPFR_MANT(tmp), d, 1);
   else
     MPFR_EXP(tmp) = __mpfr_extract_double (MPFR_MANT(tmp) + sizer - MPFR_LIMBS_PER_DOUBLE, d, 1);