This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.36 in repository libmath-prime-util-perl.
commit 209e008fc9fe2ec6e4cfbb98f53787a4327339da Author: Dana Jacobsen <d...@acm.org> Date: Wed Jan 8 08:51:42 2014 -0800 Reduce some variable scoping --- factor.c | 3 +-- util.c | 5 +---- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/factor.c b/factor.c index b6ed3e0..addd4dd 100644 --- a/factor.c +++ b/factor.c @@ -754,7 +754,6 @@ typedef struct static UV squfof_unit(UV n, mult_t* mult_save) { UV imax,i,Q0,b0,Qn,bn,P,bbn,Ro,S,So,t1,t2; - int j; P = mult_save->P; bn = mult_save->bn; @@ -774,7 +773,7 @@ static UV squfof_unit(UV n, mult_t* mult_save) i++; while (1) { - j = 0; + int j = 0; if (i & 0x1) { SQUARE_SEARCH_ITERATION; } diff --git a/util.c b/util.c index b81cb66..8783c72 100644 --- a/util.c +++ b/util.c @@ -413,7 +413,6 @@ static UV count_segment_ranged(const unsigned char* sieve, UV nbytes, UV lowp, U END_DO_FOR_EACH_SIEVE_PRIME; lowp = upper+2; lo_d = lowp/30; - lo_m = lowp - lo_d*30; } if (highp < lowp) return count; @@ -425,8 +424,6 @@ static UV count_segment_ranged(const unsigned char* sieve, UV nbytes, UV lowp, U if (count_bytes > 0) { count += count_zero_bits(sieve+lo_d, count_bytes); lowp += 30*count_bytes; - lo_d = lowp/30; - lo_m = lowp - lo_d*30; } } if (highp < lowp) @@ -1167,9 +1164,9 @@ double _XS_ExponentialIntegral(double x) { /* Continued fraction, good for x < -1 */ long double lc = 0; long double ld = 1.0L / (1.0L - (long double)x); - long double old, t, n2; val = ld * (-expl(x)); for (n = 1; n <= 100000; n++) { + long double old, t, n2; t = (long double)(2*n + 1) - (long double) x; n2 = n * n; lc = 1.0L / (t - n2 * lc); -- 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