From 14acb1b6e19df86a969a0b767e4c78d7011abf17 Mon Sep 17 00:00:00 2001 From: enge Date: Thu, 5 Jul 2012 12:09:26 +0000 Subject: acos.c: small change to reuse code git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@1232 211d60ee-9f03-0410-a15a-8952a2c7a4e4 --- src/acos.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src') diff --git a/src/acos.c b/src/acos.c index ca3d19f..e7a2691 100644 --- a/src/acos.c +++ b/src/acos.c @@ -195,8 +195,7 @@ mpc_acos (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd) mpfr_set_prec (mpc_realref(z1), p); mpfr_set_prec (pi_over_2, p); - mpfr_const_pi (pi_over_2, GMP_RNDN); - mpfr_div_2exp (pi_over_2, pi_over_2, 1, GMP_RNDN); /* Pi/2 */ + set_pi_over_2 (pi_over_2, +1, GMP_RNDN); e1 = 1; /* Exp(pi_over_2) */ inex = mpc_asin (z1, op, rnd1); /* asin(z) */ MPC_ASSERT (mpfr_sgn (mpc_imagref(z1)) * mpfr_sgn (mpc_imagref(op)) > 0); -- cgit v1.2.1