summaryrefslogtreecommitdiff
path: root/src/div.c
diff options
context:
space:
mode:
authorenge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4>2009-08-21 23:10:13 +0000
committerenge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4>2009-08-21 23:10:13 +0000
commitcb4a8b23d99bdb808bf01dfa5e301de34df9c225 (patch)
tree4a1cdadaf6ddad693982c95adb85ccefc356096a /src/div.c
parentc2c77918e10a3cbf2083e7147c76fe648da0dcb5 (diff)
downloadmpc-cb4a8b23d99bdb808bf01dfa5e301de34df9c225.tar.gz
misc/testgen: adapted generation of test files to new definition of div
trunk/tests/div.dat, fr_div.dat: adapted test files src/div.c: debugged division code git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@654 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'src/div.c')
-rw-r--r--src/div.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/div.c b/src/div.c
index cfc5521..4abfd0f 100644
--- a/src/div.c
+++ b/src/div.c
@@ -61,28 +61,28 @@ mpc_div_inf_fin (mpc_ptr rop, mpc_srcptr z, mpc_srcptr w)
if (a == 1)
if (b == 1) {
- mpfr_add (sign, MPC_RE (z), MPC_IM (z), GMP_RNDN);
+ mpfr_add (sign, MPC_RE (w), MPC_IM (w), GMP_RNDN);
x = MPC_MPFR_SIGN (sign);
- mpfr_sub (sign, MPC_RE (z), MPC_IM (z), GMP_RNDN);
+ mpfr_sub (sign, MPC_RE (w), MPC_IM (w), GMP_RNDN);
y = MPC_MPFR_SIGN (sign);
}
else { /* b == -1 */
- mpfr_sub (sign, MPC_RE (z), MPC_IM (z), GMP_RNDN);
+ mpfr_sub (sign, MPC_RE (w), MPC_IM (w), GMP_RNDN);
x = MPC_MPFR_SIGN (sign);
- mpfr_add (sign, MPC_RE (z), MPC_IM (z), GMP_RNDN);
+ mpfr_add (sign, MPC_RE (w), MPC_IM (w), GMP_RNDN);
y = -MPC_MPFR_SIGN (sign);
}
else /* a == -1 */
if (b == 1) {
- mpfr_sub (sign, MPC_IM (z), MPC_RE (z), GMP_RNDN);
+ mpfr_sub (sign, MPC_IM (w), MPC_RE (w), GMP_RNDN);
x = MPC_MPFR_SIGN (sign);
- mpfr_add (sign, MPC_RE (z), MPC_IM (z), GMP_RNDN);
+ mpfr_add (sign, MPC_RE (w), MPC_IM (w), GMP_RNDN);
y = MPC_MPFR_SIGN (sign);
}
else { /* b == -1 */
- mpfr_add (sign, MPC_RE (z), MPC_IM (z), GMP_RNDN);
+ mpfr_add (sign, MPC_RE (w), MPC_IM (w), GMP_RNDN);
x = -MPC_MPFR_SIGN (sign);
- mpfr_sub (sign, MPC_IM (z), MPC_RE (z), GMP_RNDN);
+ mpfr_sub (sign, MPC_IM (w), MPC_RE (w), GMP_RNDN);
y = MPC_MPFR_SIGN (sign);
}
mpfr_clear (sign);