[src/mul_ui.c] adapt for 16-bit limb

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

1 files changed, 11 insertions, 0 deletions

diff --git a/src/mul_ui.c b/src/mul_ui.c
index 55bf1af8e..00f7b9f85 100644
--- a/src/mul_ui.c
+++ b/src/mul_ui.c
@@ -75,6 +75,7 @@ mpfr_mul_ui (mpfr_ptr y, mpfr_srcptr x, unsigned long int u, mpfr_rnd_t rnd_mode
   else if (MPFR_UNLIKELY (IS_POW2 (u)))
     return mpfr_mul_2si (y, x, MPFR_INT_CEIL_LOG2 (u), rnd_mode);
 
+#ifdef MPFR_LONG_WITHIN_LIMB
   yp = MPFR_MANT (y);
   xn = MPFR_LIMB_SIZE (x);
 
@@ -114,6 +115,16 @@ mpfr_mul_ui (mpfr_ptr y, mpfr_srcptr x, unsigned long int u, mpfr_rnd_t rnd_mode
 
   MPFR_SET_EXP (y, MPFR_GET_EXP (x) + cnt);
   MPFR_SET_SAME_SIGN (y, x);
+#else
+    {
+      mpfr_t uu;
+
+      mpfr_init2 (uu, sizeof (unsigned long) * CHAR_BIT);
+      mpfr_set_ui (uu, u, MPFR_RNDZ);
+      inexact = mpfr_mul (y, x, uu, rnd_mode);
+      mpfr_clear (uu);
+    }
+#endif /* MPFR_LONG_WITHIN_LIMB */
 
   MPFR_RET (inexact);
 }