k2r -> ansi style

removed #include <math.h> by defining auxiliary functions
fixed several tiny remaining bugs with NaN/Inf


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

1 files changed, 2 insertions, 11 deletions

diff --git a/sub_ui.c b/sub_ui.c
index 1aa473c99..4b64caff7 100644
--- a/sub_ui.c
+++ b/sub_ui.c
@@ -41,17 +41,6 @@ mpfr_sub_ui (y, x, u, rnd_mode)
   mp_limb_t up[1];
   unsigned long cnt;
 
-  if (MPFR_IS_NAN(x)) {
-    MPFR_SET_NAN(y);
-    return;
-  }
-
-  if (MPFR_IS_INF(x)) 
-    { 
-      MPFR_SET_INF(y); 
-      if (MPFR_SIGN(x) != MPFR_SIGN(y)) { MPFR_CHANGE_SIGN(y); } return; 
-    }
-
   if (u) { /* if u=0, do nothing */
     MPFR_INIT1(up, uu, BITS_PER_MP_LIMB, 1);
     count_leading_zeros(cnt, (mp_limb_t) u);
@@ -60,4 +49,6 @@ mpfr_sub_ui (y, x, u, rnd_mode)
   
     mpfr_sub (y, x, uu, rnd_mode);
   }
+  else
+    mpfr_set (y, x, rnd_mode);
 }