diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-11-16 09:40:02 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-11-16 09:40:02 +0000 |
commit | e541a0e318b9cd4508b5ff3c4e408108ae10a9af (patch) | |
tree | 1f52636f1e521b41f9de60dfe390501767dbcfbd /reldiff.c | |
parent | 78cb4a339a18ccdd50e5bd64ea20a666d61f4ecc (diff) | |
download | mpfr-e541a0e318b9cd4508b5ff3c4e408108ae10a9af.tar.gz |
removed french comment
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1500 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'reldiff.c')
-rw-r--r-- | reldiff.c | 26 |
1 files changed, 14 insertions, 12 deletions
@@ -58,19 +58,21 @@ mpfr_reldiff(a, b, c, rnd_mode) } if (MPFR_IS_ZERO(b)) /* reldiff = abs(c)/c = sign(c) */ - /* TODO: faire preciser la SEMANTIQUE DE CE FOUTOIR. */ mpfr_set_ui(a, MPFR_SIGN(c), rnd_mode); - else { - if (a == b) { - mpfr_init2 (b_copy, MPFR_PREC(b)); - mpfr_set (b_copy, b, GMP_RNDN); - } - - mpfr_sub(a, b, c, rnd_mode); - mpfr_abs(a, a, rnd_mode); /* for compatibility with MPF */ - mpfr_div(a, a, (a == b) ? b_copy : b, rnd_mode); + else + { + if (a == b) + { + mpfr_init2 (b_copy, MPFR_PREC(b)); + mpfr_set (b_copy, b, GMP_RNDN); + } - if (a == b) mpfr_clear (b_copy); - } + mpfr_sub (a, b, c, rnd_mode); + mpfr_abs (a, a, rnd_mode); /* for compatibility with MPF */ + mpfr_div (a, a, (a == b) ? b_copy : b, rnd_mode); + + if (a == b) + mpfr_clear (b_copy); + } } |