[src/mul.c] fixed bug in mpfr_mul() when sizeof(mp_limb_t) < sizeof(mpfr_exp_t)

	    (same issue as in r13338)


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

1 files changed, 2 insertions, 1 deletions

diff --git a/src/mul.c b/src/mul.c
index 7954364dc..d1bd6cd87 100644
--- a/src/mul.c
+++ b/src/mul.c
@@ -1065,7 +1065,8 @@ mpfr_mul (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode)
           mpn_lshift (tmp, tmp, tn, 1); /* tn <= k, so no stack corruption */
       }
 
-  ax2 = ax + (mpfr_exp_t) (b1 - 1);
+  /* b1 is 0 or 1 (most significant bit from the raw product) */
+  ax2 = ax + ((int) b1 - 1);
   MPFR_RNDRAW (inexact, a, tmp, bq + cq, rnd_mode, sign, ax2++);
   MPFR_TMP_FREE (marker);
   MPFR_EXP (a) = ax2; /* Can't use MPFR_SET_EXP: Expo may be out of range */