summaryrefslogtreecommitdiff
path: root/cos.c
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-02-14 11:36:40 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-02-14 11:36:40 +0000
commit5bd7aef7971df1929222d93b437d9392b935c1ff (patch)
tree1c45bd97c1c8108047ad7b8e9e0f80257fdad549 /cos.c
parentc834099818b8b339bf59918257c2197e49a3ca1d (diff)
downloadmpfr-5bd7aef7971df1929222d93b437d9392b935c1ff.tar.gz
mpfr_{div,mul}_2exp -> mpfr_{div,mul}_2ui.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1699 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'cos.c')
-rw-r--r--cos.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/cos.c b/cos.c
index 197c19e6c..dce32c0a0 100644
--- a/cos.c
+++ b/cos.c
@@ -61,7 +61,7 @@ mpfr_cos (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode)
/* we need that |r| < 1 for mpfr_cos2_aux, i.e. up(x^2)/2^(2K) < 1 */
K = K0 + MAX(MPFR_EXP(r), 0);
- mpfr_div_2exp (r, r, 2 * K, GMP_RNDN); /* r = (x/2^K)^2, err <= 1 ulp */
+ mpfr_div_2ui (r, r, 2 * K, GMP_RNDN); /* r = (x/2^K)^2, err <= 1 ulp */
/* s <- 1 - r/2! + ... + (-1)^l r^l/(2l)! */
l = mpfr_cos2_aux (s, r);
@@ -69,7 +69,7 @@ mpfr_cos (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode)
for (k = 0; k < K; k++)
{
mpfr_mul (s, s, s, GMP_RNDU); /* err <= 2*olderr */
- mpfr_mul_2exp (s, s, 1, GMP_RNDU); /* err <= 4*olderr */
+ mpfr_mul_2ui (s, s, 1, GMP_RNDU); /* err <= 4*olderr */
mpfr_sub_ui (s, s, 1, GMP_RNDN);
}