summaryrefslogtreecommitdiff
path: root/reldiff.c
diff options
context:
space:
mode:
authorzimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4>2001-11-16 09:40:02 +0000
committerzimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4>2001-11-16 09:40:02 +0000
commite541a0e318b9cd4508b5ff3c4e408108ae10a9af (patch)
tree1f52636f1e521b41f9de60dfe390501767dbcfbd /reldiff.c
parent78cb4a339a18ccdd50e5bd64ea20a666d61f4ecc (diff)
downloadmpfr-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.c26
1 files changed, 14 insertions, 12 deletions
diff --git a/reldiff.c b/reldiff.c
index ea21a60b1..5687d4a54 100644
--- a/reldiff.c
+++ b/reldiff.c
@@ -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);
+ }
}