summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2015-02-21 15:36:43 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2015-02-21 15:36:43 +0000
commit18b6f246cb44743e1de764ed715fd24255a0b9ea (patch)
tree1b8b33fc02a8e784c32194e72f729c43265196ef
parent7a0320b8cb20f3ee32aebb1c6f7fe1691c2697b0 (diff)
downloadmpfr-18b6f246cb44743e1de764ed715fd24255a0b9ea.tar.gz
[src/sum.c] Update.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/branches/new-sum@9297 280ebfd0-de03-0410-8827-d642c229c3f4
-rw-r--r--src/sum.c9
1 files changed, 8 insertions, 1 deletions
diff --git a/src/sum.c b/src/sum.c
index 1d3f44a6e..7f1319063 100644
--- a/src/sum.c
+++ b/src/sum.c
@@ -850,7 +850,14 @@ sum_aux (mpfr_ptr sum, mpfr_ptr *const x, unsigned long n, mpfr_rnd_t rnd,
MPFR_LOG_MSG (("[Step 8] tmd=%d rbit=%d sst=%d\n",
tmd, rbit != 0, sst));
-
+ inex =
+ MPFR_IS_LIKE_RNDD (rnd, pos ? 1 : -1) ? (sst ? -1 : 0) :
+ MPFR_IS_LIKE_RNDU (rnd, pos ? 1 : -1) ? (sst ? 1 : 0) :
+ (MPFR_ASSERTD (rnd == MPFR_RNDN),
+ tmd == 1 ? - sst : sst);
+ /* Note: halfway cases may have to be corrected. */
+
+ /* TODO: possible correction of the value (+/- 1 ulp)... */
} /* Step 8 block */