[libmath-prime-util-perl] 138/181: Reduce some variable scoping

[Partha P. Mukherjee]

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