fma.c: fix warning with mpfr-2.4.2

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

1 files changed, 2 insertions, 2 deletions

diff --git a/src/fma.c b/src/fma.c
index d4be40f..b0857f9 100644
--- a/src/fma.c
+++ b/src/fma.c
@@ -166,10 +166,10 @@ mpc_fma (mpc_ptr r, mpc_srcptr a, mpc_srcptr b, mpc_srcptr c, mpc_rnd_t rnd)
       diffim -= mpfr_get_exp (mpc_imagref(ab));
       diffre = (diffre > 0 ? diffre + 1 : 1);
       diffim = (diffim > 0 ? diffim + 1 : 1);
-      okre = diffre > wpre ? 0 : mpfr_can_round (mpc_realref(ab),
+      okre = diffre > (mpfr_exp_t) wpre ? 0 : mpfr_can_round (mpc_realref(ab),
                                  wpre - diffre, GMP_RNDN, GMP_RNDZ,
                                  pre + (MPC_RND_RE (rnd) == GMP_RNDN));
-      okim = diffim > wpim ? 0 : mpfr_can_round (mpc_imagref(ab),
+      okim = diffim > (mpfr_exp_t) wpim ? 0 : mpfr_can_round (mpc_imagref(ab),
                                  wpim - diffim, GMP_RNDN, GMP_RNDZ,
                                  pim + (MPC_RND_IM (rnd) == GMP_RNDN));
       if (okre && okim)