diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2017-02-27 12:07:15 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2017-02-27 12:07:15 +0000 |
| commit | 0952ebb85ee4acb36a3c9f9b2ca6f4d9ccf1e09f (patch) | |
| tree | cbfd5db4129da1b5d042293f1bde1fc7cf6e46d6 /src/beta.c | |
| parent | 84a0f98998e77137bd4dfa1209426d77b3aefb64 (diff) | |
| download | mpfr-0952ebb85ee4acb36a3c9f9b2ca6f4d9ccf1e09f.tar.gz | |
[src/Makefile.am] new file odd_p.c
[src/beta.c] fixed bug
[src/mpfr-impl.h] renamed mpfr_is_odd into mpfr_odd_p
[src/pow.c] moved mpfr_is_odd (renamed mpfr_odd_p) into separate file
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@11362 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'src/beta.c')
| -rw-r--r-- | src/beta.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/beta.c b/src/beta.c index 87808af70..1471812cb 100644 --- a/src/beta.c +++ b/src/beta.c @@ -109,8 +109,7 @@ mpfr_beta (mpfr_ptr r, mpfr_srcptr z, mpfr_srcptr w, mpfr_rnd_t rnd_mode) else { MPFR_SET_ZERO(r); - /* FIXME: w is infinite. This does not make sense! */ - if (mpfr_is_odd (w)) + if (mpfr_odd_p (z)) MPFR_SET_NEG(r); else MPFR_SET_POS(r); @@ -160,7 +159,7 @@ mpfr_beta (mpfr_ptr r, mpfr_srcptr z, mpfr_srcptr w, mpfr_rnd_t rnd_mode) MPFR_ASSERTN(inex == 0); inex = mpfr_ui_sub (z_plus_w, 1, z_plus_w, MPFR_RNDN); MPFR_ASSERTN(inex == 0); - if (mpfr_is_odd (z)) + if (mpfr_odd_p (z)) { inex = -mpfr_beta (r, z, z_plus_w, MPFR_INVERT_RND (rnd_mode)); MPFR_CHANGE_SIGN(r); |