sqr.c: housekeeping

git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@1233 211d60ee-9f03-0410-a15a-8952a2c7a4e4

1 files changed, 1 insertions, 1 deletions

diff --git a/src/sqr.c b/src/sqr.c
index 770cadc..f1ce1ba 100644
--- a/src/sqr.c
+++ b/src/sqr.c
@@ -311,7 +311,7 @@ mpc_sqr (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd)
    mpfr_clear_underflow ();
    inex_im = mpfr_mul (rop->im, x, op->im, MPC_RND_IM (rnd));
    if (!mpfr_underflow_p ())
-      inex_im |= mpfr_mul_2exp (rop->im, rop->im, 1, MPC_RND_IM (rnd));
+      inex_im |= mpfr_mul_2ui (rop->im, rop->im, 1, MPC_RND_IM (rnd));
       /* We must not multiply by 2 if rop->im has been set to the smallest
          representable number. */
    if (saved_underflow)