diff options
author | hanrot <hanrot@280ebfd0-de03-0410-8827-d642c229c3f4> | 2000-12-15 12:21:35 +0000 |
---|---|---|
committer | hanrot <hanrot@280ebfd0-de03-0410-8827-d642c229c3f4> | 2000-12-15 12:21:35 +0000 |
commit | 3c2c727027d3df312553e61e1c15aa023dc79e68 (patch) | |
tree | 8ec10351b9797d6f2d0817d0051a646c41c869aa /exp.c | |
parent | c4ccb81bce61a549654e1a7e465ed7fc99835e16 (diff) | |
download | mpfr-3c2c727027d3df312553e61e1c15aa023dc79e68.tar.gz |
Patches for compiler warnings.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@864 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'exp.c')
-rw-r--r-- | exp.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -29,6 +29,10 @@ MA 02111-1307, USA. */ #define LOG2 0.69314718055994528622 /* log(2) rounded to zero on 53 bits */ +extern int mpfr_exp2 _PROTO((mpfr_ptr, mpfr_srcptr, mp_rnd_t)); +extern int mpfr_exp3 _PROTO((mpfr_ptr, mpfr_srcptr, mp_rnd_t)); + + /* use Brent's formula exp(x) = (1+r+r^2/2!+r^3/3!+...)^(2^K)*2^n where x = n*log(2)+(2^K)*r number of operations = O(K+prec(r)/K) @@ -43,8 +47,7 @@ mpfr_exp(y, x, rnd_mode) mp_rnd_t rnd_mode; #endif { - int n, expx, K, precy, q, k, l, expr, err; - mpfr_t r, s, t; + int expx, precy; if (MPFR_IS_NAN(x)) { MPFR_SET_NAN(y); return 1; } if (MPFR_IS_INF(x)) |