diff options
author | enge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2012-06-25 15:50:58 +0000 |
---|---|---|
committer | enge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2012-06-25 15:50:58 +0000 |
commit | b03221371ac8a8906efef56991861b79b0fb0eef (patch) | |
tree | f37d4c1b89f4162f6453d4182067e18803d5a4f3 /src | |
parent | 03dd33b6234ee020f7cf9640285507674935ee5c (diff) | |
download | mpc-b03221371ac8a8906efef56991861b79b0fb0eef.tar.gz |
conj.dat, fr_sub.dat: complete branch test coverage
fr_sub.c: correct return value
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@1161 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'src')
-rw-r--r-- | src/fr_sub.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/fr_sub.c b/src/fr_sub.c index b39336c..91338a4 100644 --- a/src/fr_sub.c +++ b/src/fr_sub.c @@ -1,6 +1,6 @@ /* mpc_fr_sub -- Substract a complex number from a floating-point number. -Copyright (C) 2008, 2009, 2011 INRIA +Copyright (C) 2008, 2009, 2011, 2012 INRIA This file is part of GNU MPC. @@ -26,9 +26,8 @@ mpc_fr_sub (mpc_ptr a, mpfr_srcptr b, mpc_srcptr c, mpc_rnd_t rnd) { int inex_re, inex_im; - inex_re = mpfr_sub (mpc_realref(a), b, mpc_realref(c), MPC_RND_RE(rnd)); - inex_im = mpfr_set (mpc_imagref (a), mpc_imagref (c), INV_RND (MPC_RND_IM (rnd))); - MPFR_CHANGE_SIGN (mpc_imagref (a)); + inex_re = mpfr_sub (mpc_realref (a), b, mpc_realref (c), MPC_RND_RE (rnd)); + inex_im = mpfr_neg (mpc_imagref (a), mpc_imagref (c), MPC_RND_IM (rnd)); return MPC_INEX(inex_re, inex_im); } |