changed function into bernoulli.c (which was static, included 3 times) into

an internal function mpfr_bernoulli_internal


git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@6411 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 2 insertions, 3 deletions

diff --git a/li2.c b/li2.c
index fb00ea56e..4f0fa54a4 100644
--- a/li2.c
+++ b/li2.c
@@ -22,7 +22,6 @@ http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc.,
 
 #define MPFR_NEED_LONGLONG_H
 #include "mpfr-impl.h"
-#include "bernoulli.c"
 
 /* Compute the alternating series
    s = S(z) = \sum_{k=0}^infty B_{2k} (z))^{2k+1} / (2k+1)!
@@ -54,7 +53,7 @@ li2_series (mpfr_t sum, mpfr_srcptr z, mpfr_rnd_t rnd_mode)
   mpfr_init2 (v, p);
   mpfr_init2 (w, p);
 
-  B = bernoulli ((mpz_t *) 0, 0);
+  B = mpfr_bernoulli_internal ((mpz_t *) 0, 0);
   Bm = Bmax = 1;
 
   MPFR_ZIV_INIT (loop, p);
@@ -69,7 +68,7 @@ li2_series (mpfr_t sum, mpfr_srcptr z, mpfr_rnd_t rnd_mode)
       for (i = 1;; i++)
         {
           if (i >= Bmax)
-            B = bernoulli (B, Bmax++);  /* B_2i * (2i+1)!, exact */
+            B = mpfr_bernoulli_internal (B, Bmax++); /* B_2i*(2i+1)!, exact */
 
           mpfr_mul (v, u, v, MPFR_RNDU);
           mpfr_div_ui (v, v, 2 * i, MPFR_RNDU);