diff options
author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2013-08-05 23:31:54 +0000 |
---|---|---|
committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2013-08-05 23:31:54 +0000 |
commit | b903d79d52c3405d020fc56a3669f60a1cff3393 (patch) | |
tree | 387cdde4df7b8656094f56cd5b11b4996994fabb | |
parent | c81222994964b98970322c60618075c9f18392d5 (diff) | |
download | mpfr-b903d79d52c3405d020fc56a3669f60a1cff3393.tar.gz |
[src/get_ld.c] GNU style.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@8649 280ebfd0-de03-0410-8827-d642c229c3f4
-rw-r--r-- | src/get_ld.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/get_ld.c b/src/get_ld.c index 4f5e9cfc4..63ad69656 100644 --- a/src/get_ld.c +++ b/src/get_ld.c @@ -145,12 +145,14 @@ mpfr_get_ld (mpfr_srcptr x, mpfr_rnd_t rnd_mode) MPFR_SET_POS (y); r = 0.0; - do { - s = mpfr_get_d (y, MPFR_RNDN); /* high part of y */ - r += (long double) s; - mpfr_set_d (z, s, MPFR_RNDN); /* exact */ - mpfr_sub (y, y, z, MPFR_RNDN); /* exact */ - } while (!MPFR_IS_ZERO (y)); + do + { + s = mpfr_get_d (y, MPFR_RNDN); /* high part of y */ + r += (long double) s; + mpfr_set_d (z, s, MPFR_RNDN); /* exact */ + mpfr_sub (y, y, z, MPFR_RNDN); /* exact */ + } + while (!MPFR_IS_ZERO (y)); mpfr_clear (z); mpfr_clear (y); |