* Fix signed/unsigned bug in bernoulli function.

diff --git a/ginac/numeric.cpp b/ginac/numeric.cpp
index f62b0d2541538bf4b8e427f8f63291b2e1e1f271..8825bdb992f6a78825fef3b9ace567a3b0e64591 100644 (file)
--- a/ginac/numeric.cpp
+++ b/ginac/numeric.cpp
@@ -1708,7 +1708,7 @@ const numeric bernoulli(const numeric &nn)
        results.reserve(n/2);
        for (unsigned p=next_r; p<=n;  p+=2) {
                cln::cl_I  c = 1;  // seed for binonmial coefficients
-               cln::cl_RA b = cln::cl_RA(1-p)/2;
+               cln::cl_RA b = cln::cl_RA(p-1)/-2;
                const unsigned p3 = p+3;
                const unsigned pm = p-2;
                unsigned i, k, p_2;