summaryrefslogtreecommitdiff
path: root/sqrt.c
diff options
context:
space:
mode:
authorpelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4>2003-11-05 09:00:03 +0000
committerpelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4>2003-11-05 09:00:03 +0000
commitc1ff1a575e238532d7329dd5ebb15f5f48581868 (patch)
treeacffa24515dd52bde31d602617354cc5a7682160 /sqrt.c
parentbc3b76bc225273a3d94929207a38d0b4ed43a4f5 (diff)
downloadmpfr-c1ff1a575e238532d7329dd5ebb15f5f48581868.tar.gz
Add a real function for mpfr_sgn (not a call to mpfr_cmp_ui_2exp).
Add a test for mpfr_sgn. Change the proto of mpfr_add1 and mpfr_sub1 by removing the last arg. Simplify the logic of the sign in mpfr_sub1. Tiny speed up for cmp/set/sqrt. mpfr-impl auto include all the needed local header files (gmp, gmp-impl, mpfr). git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2534 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'sqrt.c')
-rw-r--r--sqrt.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/sqrt.c b/sqrt.c
index 6b947c2e1..d2d378ce8 100644
--- a/sqrt.c
+++ b/sqrt.c
@@ -42,7 +42,6 @@ mpfr_sqrt (mpfr_ptr r, mpfr_srcptr u, mp_rnd_t rnd_mode)
TMP_DECL(marker);
- MPFR_CLEAR_FLAGS(u);
if (MPFR_UNLIKELY(MPFR_IS_SINGULAR(u)))
{
if (MPFR_IS_NAN(u))
@@ -75,6 +74,7 @@ mpfr_sqrt (mpfr_ptr r, mpfr_srcptr u, mp_rnd_t rnd_mode)
MPFR_SET_NAN(r);
MPFR_RET_NAN;
}
+ MPFR_CLEAR_FLAGS(r);
MPFR_SET_POS(r);
up = MPFR_MANT(u);