Temporary optimization (patch from Patrick Pelissier).

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

1 files changed, 3 insertions, 1 deletions

diff --git a/mul.c b/mul.c
index e34238478..0a3cbc93b 100644
--- a/mul.c
+++ b/mul.c
@@ -350,7 +350,9 @@ mpfr_mul (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mp_rnd_t rnd_mode)
     }
   else
 #endif
-    if (MPFR_UNLIKELY (bn > MPFR_MUL_THRESHOLD))
+    /* Mulder mulhigh. Disable if squaring, since it is not tuned for
+       such a case */
+    if (MPFR_UNLIKELY (bn > MPFR_MUL_THRESHOLD && b != c))
       {
         mp_limb_t *bp, *cp;
         mp_size_t n;