Infinis, premiere tentative.

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@793 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 13 insertions, 1 deletions

diff --git a/reldiff.c b/reldiff.c
index 4c018a133..dd5b7fb56 100644
--- a/reldiff.c
+++ b/reldiff.c
@@ -37,10 +37,22 @@ mpfr_reldiff(a, b, c, rnd_mode)
 #endif
 {
   if (MPFR_IS_NAN(b) || MPFR_IS_NAN(c)) { MPFR_SET_NAN(a); return; }
+  if (MPFR_IS_INF(b)) 
+    { 
+      if (MPFR_IS_INF(c) && (MPFR_SIGN(c) == MPFR_SIGN(b)))
+	{ MPFR_SET_ZERO(a); return; }
+      else { MPFR_SET_NAN(a); return; }
+    }
+
+  if (MPFR_IS_INF(c)) 
+    {
+      MPFR_SET_INF(a); 
+      if (MPFR_SIGN(a) == MPFR_SIGN(c)) { MPFR_CHANGE_SIGN(a); }
+    }
 
   if (!MPFR_NOTZERO(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 {
     mpfr_sub(a, b, c, rnd_mode);
     mpfr_abs(a, a, rnd_mode); /* for compatibility with MPF */