Infinis, premiere tentative.

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

1 files changed, 8 insertions, 0 deletions

diff --git a/exp3.c b/exp3.c
index 741a6a268..6de20291d 100644
--- a/exp3.c
+++ b/exp3.c
@@ -174,6 +174,14 @@ mp_rnd_t rnd_mode;
   int logn;
   /* commencons par 0 */
   if (MPFR_IS_NAN(x)) { MPFR_SET_NAN(y); return 1; }
+  if (MPFR_IS_INF(x)) 
+    { 
+      if (MPFR_SIGN(x) > 0) 
+	{ MPFR_SET_INF(y); if (MPFR_SIGN(y) == -1) { MPFR_CHANGE_SIGN(y); } }
+      else 
+	{ MPFR_SET_ZERO(y);  if (MPFR_SIGN(y) == -1) { MPFR_CHANGE_SIGN(y); } }
+      /* TODO: conflits entre infinis et zeros ? */
+    }
   if (!MPFR_NOTZERO(x)) { 
     mpfr_set_ui(y, 1, GMP_RNDN); 
     return 0;