removed unnecessary CLEAR_FLAGS

used MPFR_RET_NAN


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

1 files changed, 6 insertions, 10 deletions

diff --git a/log_base_2.c b/log_base_2.c
index 4f9c69220..d67bd818e 100644
--- a/log_base_2.c
+++ b/log_base_2.c
@@ -46,36 +46,32 @@ mpfr_log2 (r, a, rnd_mode)
   /* If a is NaN, the result is NaN */
   if (MPFR_IS_NAN(a))
     {  
-      MPFR_CLEAR_FLAGS(r);
       MPFR_SET_NAN(r);
-      return 1;
+      MPFR_RET_NAN;
     }
- /* If a is negative, the result is NaN */
+
+  MPFR_CLEAR_NAN(r);
+
+  /* If a is negative, the result is NaN */
   if (MPFR_SIGN(a) < 0)
     {
       if (!MPFR_IS_INF(a) && MPFR_IS_ZERO(a)) 
       {
-        MPFR_CLEAR_FLAGS(r);
         MPFR_SET_INF(r); 
         if (MPFR_SIGN(r) > 0)
           MPFR_CHANGE_SIGN(r);
-        /* Execption GMP*/ 
         return 0; 
       }
       else
       {
-        MPFR_CLEAR_FLAGS(r);
         MPFR_SET_NAN(r);
-        return 1;
+        MPFR_RET_NAN;
       }
     }
 
-  MPFR_CLEAR_NAN(r);
-
   /* check for infinity before zero */
   if (MPFR_IS_INF(a))
     {      
-      MPFR_CLEAR_FLAGS(r);
       MPFR_SET_INF(r);
       if(MPFR_SIGN(r) < 0)
         MPFR_CHANGE_SIGN(r);