From e343b7fb1293e21141cc9e107f90578e4415526d Mon Sep 17 00:00:00 2001
From: enge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4>
Date: Thu, 5 Jul 2012 12:18:00 +0000
Subject: sqr.c: housekeeping

git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@1233 211d60ee-9f03-0410-a15a-8952a2c7a4e4
---
 src/sqr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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)
-- 
cgit v1.2.1