Infinis, premiere tentative.

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

1 files changed, 6 insertions, 1 deletions

diff --git a/sqrt.c b/sqrt.c
index 7e083e1a0..6eb4efc37 100644
--- a/sqrt.c
+++ b/sqrt.c
@@ -50,7 +50,12 @@ mpfr_sqrt (r, u, rnd_mode)
   TMP_DECL (marker); TMP_DECL(marker0); 
 
   if (MPFR_IS_NAN(u) || MPFR_SIGN(u) == -1) { MPFR_SET_NAN(r); return 0; }
-  
+  if (MPFR_IS_INF(u)) 
+    { 
+      MPFR_SET_INF(r); 
+      if (MPFR_SIGN(r) != 1) { MPFR_CHANGE_SIGN(r); }
+    }
+
   prec = MPFR_PREC(r);
 
   if (!MPFR_NOTZERO(u))