+ Remove MPFR_CLEAR_NAN and MPFR_CLEAR_INF. Only use MPFR_CLEAR_FLAGS.

  MPFR_SET_INF, MPFR_SET_ZERO and MPFR_SET_ZERO must clear the flags before setting them.
+ Add a new test in tacosh.c : check Inf / Nan flags.
+ Use MPFR_IS_SINGULAR in all the remaining files.
+ Fix the use of MPFR_CLEAR_FLAGS.
+ mpfr-impl.h auto include gmp.h, gmp-impl.h, mpfr.h and limits.h.
+ Rename _PROTO to _MPFR_PROTO, and remove _GMP_PROTO.
+ Add MPFR_INT_SIGN macro.
+ Encapsulate a few more the sign.


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

1 files changed, 8 insertions, 11 deletions

diff --git a/div.c b/div.c
index 810e8355b..1e169cc3d 100644
--- a/div.c
+++ b/div.c
@@ -58,7 +58,6 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode)
 	  MPFR_SET_NAN(q);
 	  MPFR_RET_NAN;
 	}
-      MPFR_CLEAR_NAN(q);
       sign_quotient = MPFR_MULT_SIGN( MPFR_SIGN(u) , MPFR_SIGN(v) );
       MPFR_SET_SIGN(q, sign_quotient);
       if (MPFR_IS_INF(u))
@@ -74,14 +73,11 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode)
 	      MPFR_RET(0);
 	    }
 	}
-      else 
-	if (MPFR_IS_INF(v)) 
-	  {
-	    MPFR_CLEAR_INF(q);
-	    MPFR_SET_ZERO(q);
-	    MPFR_RET(0);
-	  }
-      MPFR_CLEAR_INF(q); /* clear Inf flag */
+      else if (MPFR_IS_INF(v)) 
+	{
+	  MPFR_SET_ZERO(q);
+	  MPFR_RET(0);
+	}
       if (MPFR_IS_ZERO(v))
 	{
 	  if (MPFR_IS_ZERO(u))
@@ -95,7 +91,7 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode)
 	      MPFR_RET(0);
 	    }
 	}
-      if (MPFR_IS_ZERO(u))
+      else if (MPFR_IS_ZERO(u))
 	{
 	  MPFR_SET_ZERO(q);
 	  MPFR_RET(0);
@@ -103,7 +99,8 @@ mpfr_div (mpfr_ptr q, mpfr_srcptr u, mpfr_srcptr v, mp_rnd_t rnd_mode)
       /* Never reach this !*/
       MPFR_ASSERTN(1);
     }
-  
+  MPFR_CLEAR_FLAGS(q);
+
   sign_quotient = MPFR_MULT_SIGN( MPFR_SIGN(u) , MPFR_SIGN(v) );
   MPFR_SET_SIGN(q, sign_quotient);