[libmath-prime-util-perl] 01/33: Make sure logl(constants) are only done once

[Partha P. Mukherjee]

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 <dana at 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