diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2012-04-27 13:24:54 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2012-04-27 13:24:54 +0000 |
| commit | 873818817bcc94fc58f393642ff2b14dee87766d (patch) | |
| tree | 352234d45f0651c157d76a630cb1de4e30fd7140 /src/gamma.c | |
| parent | 83dae5f891090f615f3b891c3729b0a598f3f9ab (diff) | |
| download | mpfr-873818817bcc94fc58f393642ff2b14dee87766d.tar.gz | |
[src/gamma.c] Use the new MPFR_DBGRES macro.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@8167 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'src/gamma.c')
| -rw-r--r-- | src/gamma.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gamma.c b/src/gamma.c index a346f8b1b..5f7ab2d8a 100644 --- a/src/gamma.c +++ b/src/gamma.c @@ -310,8 +310,8 @@ mpfr_gamma (mpfr_ptr gamma, mpfr_srcptr x, mpfr_rnd_t rnd_mode) w += 17; /* to get tmp2 small enough */ mpfr_set_prec (tmp, w); mpfr_set_prec (tmp2, w); - ck = mpfr_ui_sub (tmp, 2, x, MPFR_RNDN); - MPFR_ASSERTD (ck == 0); (void) ck; /* use ck to avoid a warning */ + MPFR_DBGRES (ck = mpfr_ui_sub (tmp, 2, x, MPFR_RNDN)); + MPFR_ASSERTD (ck == 0); /* tmp = 2-x exactly */ mpfr_const_pi (tmp2, MPFR_RNDN); mpfr_mul (tmp2, tmp2, tmp, MPFR_RNDN); /* Pi*(2-x) */ mpfr_sin (tmp, tmp2, MPFR_RNDN); /* sin(Pi*(2-x)) */ |