summaryrefslogtreecommitdiff
path: root/gamma.c
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2010-04-30 14:37:47 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2010-04-30 14:37:47 +0000
commitacfc55ee40c11735c67f86554adae6f06fb27bf6 (patch)
treeb3825ef6d5f8bb416694facf37f449375aacb391 /gamma.c
parent36b2d705037cc99806b571fc7222f445e7d10f81 (diff)
downloadmpfr-acfc55ee40c11735c67f86554adae6f06fb27bf6.tar.gz
Changed mp_prec_t into mpfr_prec_t.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@6767 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'gamma.c')
-rw-r--r--gamma.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/gamma.c b/gamma.c
index 3a1227113..cdc2d016e 100644
--- a/gamma.c
+++ b/gamma.c
@@ -28,7 +28,7 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
#undef IS_GAMMA
/* return a sufficient precision such that 2-x is exact, assuming x < 0 */
-static mp_prec_t
+static mpfr_prec_t
mpfr_gamma_2_minus_x_exact (mpfr_srcptr x)
{
/* Since x < 0, 2-x = 2+y with y := -x.
@@ -45,7 +45,7 @@ mpfr_gamma_2_minus_x_exact (mpfr_srcptr x)
}
/* return a sufficient precision such that 1-x is exact, assuming x < 1 */
-static mp_prec_t
+static mpfr_prec_t
mpfr_gamma_1_minus_x_exact (mpfr_srcptr x)
{
if (MPFR_IS_POS(x))
@@ -99,7 +99,7 @@ mpfr_gamma (mpfr_ptr gamma, mpfr_srcptr x, mpfr_rnd_t rnd_mode)
{
mpfr_t xp, GammaTrial, tmp, tmp2;
mpz_t fact;
- mp_prec_t realprec;
+ mpfr_prec_t realprec;
int compared, inex, is_integer;
MPFR_GROUP_DECL (group);
MPFR_SAVE_EXPO_DECL (expo);
@@ -213,7 +213,7 @@ mpfr_gamma (mpfr_ptr gamma, mpfr_srcptr x, mpfr_rnd_t rnd_mode)
if (is_integer && mpfr_fits_ulong_p (x, MPFR_RNDN))
{
unsigned long int u;
- mp_prec_t p = MPFR_PREC(gamma);
+ mpfr_prec_t p = MPFR_PREC(gamma);
u = mpfr_get_ui (x, MPFR_RNDN);
if (u < 44787929UL && bits_fac (u - 1) <= p + (rnd_mode == MPFR_RNDN))
/* bits_fac: lower bound on the number of bits of m,
@@ -266,7 +266,7 @@ mpfr_gamma (mpfr_ptr gamma, mpfr_srcptr x, mpfr_rnd_t rnd_mode)
if (MPFR_IS_NEG(x))
{
int underflow = 0, sgn, ck;
- mp_prec_t w;
+ mpfr_prec_t w;
mpfr_init2 (xp, 53);
mpfr_init2 (tmp, 53);
@@ -321,7 +321,7 @@ mpfr_gamma (mpfr_ptr gamma, mpfr_srcptr x, mpfr_rnd_t rnd_mode)
realprec = MPFR_PREC (gamma);
/* we want both 1-x and 2-x to be exact */
{
- mp_prec_t w;
+ mpfr_prec_t w;
w = mpfr_gamma_1_minus_x_exact (x);
if (realprec < w)
realprec = w;