[src/sqr.c] use special code for 1 and 2 limbs

[mbench] added mpfr_sqr


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

1 files changed, 8 insertions, 6 deletions

diff --git a/src/mul.c b/src/mul.c
index 02880b1ad..ca974be95 100644
--- a/src/mul.c
+++ b/src/mul.c
@@ -205,9 +205,10 @@ mpfr_mul (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode)
 
 /* Multiply 2 mpfr_t */
 
-/* special code for prec(a) < GMP_NUMB_BITS and
-   prec(b), prec(c) <= GMP_NUMB_BITS */
-static int
+/* Special code for prec(a) < GMP_NUMB_BITS and
+   prec(b), prec(c) <= GMP_NUMB_BITS.
+   We export it since it is called from mpfr_sqr too. */
+int
 mpfr_mul_1 (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode,
               mpfr_prec_t p)
 {
@@ -301,9 +302,10 @@ mpfr_mul_1 (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode,
     }
 }
 
-/* special code for GMP_NUMB_BITS < prec(a) < 2*GMP_NUMB_BITS and
-   GMP_NUMB_BITS < prec(b), prec(c) <= 2*GMP_NUMB_BITS */
-static int
+/* Special code for GMP_NUMB_BITS < prec(a) < 2*GMP_NUMB_BITS and
+   GMP_NUMB_BITS < prec(b), prec(c) <= 2*GMP_NUMB_BITS.
+   It is exported since called from mpfr_sqr too. */
+int
 mpfr_mul_2 (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode,
               mpfr_prec_t p)
 {