This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.37 in repository libmath-prime-util-perl.
commit a13a9398306ffceb99507cb27cf0119974723550 Author: Dana Jacobsen <d...@acm.org> Date: Wed Jan 15 08:59:15 2014 -0800 Make sure logl(constants) are only done once --- util.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/util.c b/util.c index 39e3e22..3a3b8fb 100644 --- a/util.c +++ b/util.c @@ -1125,12 +1125,15 @@ long double chebyshev_function(UV n, int which) UV seg_base, seg_low, seg_high; unsigned char* segment; void* ctx; + long double logl2 = logl(2); + long double logl3 = logl(3); + long double logl5 = logl(5); if (!which) { - KAHAN_SUM(sum,logl(2)); KAHAN_SUM(sum,logl(3)); KAHAN_SUM(sum,logl(5)); + KAHAN_SUM(sum,logl2); KAHAN_SUM(sum,logl3); KAHAN_SUM(sum,logl5); } else { - KAHAN_SUM(sum, logl(2) * floorl(logn/logl(2) + 1e-15)); - KAHAN_SUM(sum, logl(3) * floorl(logn/logl(3) + 1e-15)); - KAHAN_SUM(sum, logl(5) * floorl(logn/logl(5) + 1e-15)); + KAHAN_SUM(sum, logl2 * floorl(logn/logl2 + 1e-15)); + KAHAN_SUM(sum, logl3 * floorl(logn/logl3 + 1e-15)); + KAHAN_SUM(sum, logl5 * floorl(logn/logl5 + 1e-15)); } ctx = start_segment_primes(7, n, &segment); while (next_segment_primes(ctx, &seg_base, &seg_low, &seg_high)) { -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits