[src/mpfr-mini-gmp.c] fix for 16-bit limb

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

1 files changed, 1 insertions, 1 deletions

diff --git a/src/mpfr-mini-gmp.c b/src/mpfr-mini-gmp.c
index 15d3826ba..d397f0d40 100644
--- a/src/mpfr-mini-gmp.c
+++ b/src/mpfr-mini-gmp.c
@@ -87,7 +87,7 @@ mpz_urandomb (mpz_t rop, gmp_randstate_t state, mp_bitcnt_t nbits)
   i = n * GMP_NUMB_BITS - nbits;
   /* mask the upper i bits */
   if (i)
-    rop->_mp_d[n-1] = (rop->_mp_d[n-1] << i) >> i;
+    rop->_mp_d[n-1] = MPFR_LIMB(rop->_mp_d[n-1] << i) >> i;
   while (n > 0 && (rop->_mp_d[n-1] == 0))
     n--;
   rop->_mp_size = n;