Bug fix.

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

1 files changed, 2 insertions, 3 deletions

diff --git a/urandomb.c b/urandomb.c
index 2def51763..5d3754e01 100644
--- a/urandomb.c
+++ b/urandomb.c
@@ -53,7 +53,7 @@ mpfr_urandomb (mpfr_ptr rop, gmp_randstate_t rstate)
   while (nlimbs != 0 && rp[nlimbs - 1] == 0)
     {
       nlimbs--;
-      exp--;
+      exp -= BITS_PER_MP_LIMB;
     }
 
   if (nlimbs != 0) /* otherwise value is zero */
@@ -61,13 +61,12 @@ mpfr_urandomb (mpfr_ptr rop, gmp_randstate_t rstate)
       count_leading_zeros (cnt, rp[nlimbs - 1]); 
       if (cnt != 0)
         mpn_lshift (rp, rp, nlimbs, cnt);
-      exp -= cnt;
+      MPFR_SET_EXP (rop, exp - cnt);
 
       cnt = (mp_prec_t) nlimbs * BITS_PER_MP_LIMB - nbits;
       /* cnt is the number of non significant bits in the low limb */
       rp[0] &= ~((MP_LIMB_T_ONE << cnt) - 1);
     }
 
-  MPFR_SET_EXP (rop, exp);
   MPFR_SET_POS (rop);
 }