diff options
author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2015-02-21 15:36:43 +0000 |
---|---|---|
committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2015-02-21 15:36:43 +0000 |
commit | 18b6f246cb44743e1de764ed715fd24255a0b9ea (patch) | |
tree | 1b8b33fc02a8e784c32194e72f729c43265196ef | |
parent | 7a0320b8cb20f3ee32aebb1c6f7fe1691c2697b0 (diff) | |
download | mpfr-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.c | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -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 */ |