A few patches.

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

1 files changed, 9 insertions, 3 deletions

diff --git a/log.c b/log.c
index 4238b4048..024de8cce 100644
--- a/log.c
+++ b/log.c
@@ -64,16 +64,22 @@ mpfr_log(r, a, rnd_mode)
 
   /* If a is NaN, the result is NaN */
   if (MPFR_IS_NAN(a))
-    { MPFR_SET_NAN(r); return 1; }
+    { MPFR_CLEAR_FLAGS(r); MPFR_SET_NAN(r); return 1; }
   
   if (MPFR_IS_ZERO(a)) 
     {
-      MPFR_SET_INF(r); if (MPFR_SIGN(r) != -1) { MPFR_CHANGE_SIGN(r); }
+      MPFR_CLEAR_FLAGS(r);
+      MPFR_SET_INF(r); 
+      if (MPFR_SIGN(r) != -1) { MPFR_CHANGE_SIGN(r); }
+      return 1; 
     }
 
   if (MPFR_IS_INF(a))
     {
-      MPFR_SET_INF(r); if (MPFR_SIGN(r) != 1) { MPFR_CHANGE_SIGN(r); }
+      MPFR_CLEAR_FLAGS(r);
+      MPFR_SET_INF(r); 
+      if (MPFR_SIGN(r) != 1) { MPFR_CHANGE_SIGN(r); }
+      return 1; 
     }
 
   /* Now we can clear the flags without damage even if r == a */