summaryrefslogtreecommitdiff
path: root/src/mul.c
diff options
context:
space:
mode:
authorenge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4>2009-08-20 17:37:38 +0000
committerenge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4>2009-08-20 17:37:38 +0000
commit73998d0d8a5777463061bde77cdaa4887f55d429 (patch)
tree98d589706381195fa805d008d8f34c958e299c4d /src/mul.c
parent16566412868ceea926c54c3346021788e90d7b73 (diff)
downloadmpc-73998d0d8a5777463061bde77cdaa4887f55d429.tar.gz
mpc-impl.h: renamed MPC_IS_INF to mpc_inf_p and MPC_IS_ZERO to mpc_zero_p
added mpc_fin_p and mpc_nan_p mul.c, proj.c: used renamed macroes git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@652 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'src/mul.c')
-rw-r--r--src/mul.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/mul.c b/src/mul.c
index 9accfb9..e777dd4 100644
--- a/src/mul.c
+++ b/src/mul.c
@@ -38,9 +38,9 @@ mpc_mul (mpc_ptr a, mpc_srcptr b, mpc_srcptr c, mpc_rnd_t rnd)
/* Conforming to ISO C99 standard (G.5.1 multiplicative operators),
infinities have special treatment if both parts are NaN when computed
naively. */
- if (MPC_IS_INF (b))
+ if (mpc_inf_p (b))
return mul_infinite (a, b, c);
- if (MPC_IS_INF (c))
+ if (mpc_inf_p (c))
return mul_infinite (a, c, b);
/* NaN contamination of both part in result */
@@ -187,12 +187,12 @@ mul_infinite (mpc_ptr a, mpc_srcptr u, mpc_srcptr v)
0 : 1;
int vi = mpfr_zero_p (MPC_IM (v)) || mpfr_nan_p (MPC_IM (v)) ?
0 : 1;
- if (MPC_IS_INF (u))
+ if (mpc_inf_p (u))
{
ur = mpfr_inf_p (MPC_RE (u)) ? 1 : 0;
ui = mpfr_inf_p (MPC_IM (u)) ? 1 : 0;
}
- if (MPC_IS_INF (v))
+ if (mpc_inf_p (v))
{
vr = mpfr_inf_p (MPC_RE (v)) ? 1 : 0;
vi = mpfr_inf_p (MPC_IM (v)) ? 1 : 0;
@@ -462,7 +462,7 @@ mpc_mul_karatsuba (mpc_ptr rop, mpc_srcptr op1, mpc_srcptr op2, mpc_rnd_t rnd)
of the inexact flag for u, which was rounded away from ac-bd */
if (inexact != 0)
inexact = mpfr_sgn (u);
-
+
if (mul_i == 0)
{
inex_re = mpfr_set (MPC_RE(result), u, MPC_RND_RE(rnd));