This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.22
in repository libmath-prime-util-perl.

commit b7bf6f65e667fa7b57bcdddd31364f9ee9191aa3
Author: Dana Jacobsen <d...@acm.org>
Date:   Mon Feb 25 15:04:31 2013 -0800

    Squash some compiler warnings
---
 XS.xs    |  7 ++++---
 aks.c    |  9 ++++-----
 factor.c |  4 ++--
 util.c   | 12 +++++++-----
 4 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/XS.xs b/XS.xs
index a712910..8c53bb2 100644
--- a/XS.xs
+++ b/XS.xs
@@ -360,7 +360,7 @@ _XS_totient(IN UV lo, IN UV hi = 0)
 
       if (hi < lo) XSRETURN_EMPTY;
       if (lo < 2) {
-        if (lo <= 0 && hi >= 0) XPUSHs(sv_2mortal(newSVuv(0)));
+        if (lo <= 0           ) XPUSHs(sv_2mortal(newSVuv(0)));
         if (lo <= 1 && hi >= 1) XPUSHs(sv_2mortal(newSVuv(1)));
         lo = 2;
       }
@@ -404,8 +404,9 @@ _XS_totient(IN UV lo, IN UV hi = 0)
 
 void
 _XS_moebius(IN UV lo, IN UV hi = 0)
-  PPCODE:
+  PREINIT:
     UV i;
+  PPCODE:
     if (hi != lo && hi != 0) {   /* mobius in a range */
       IV* mu = _moebius_range(lo, hi);
       MPUassert( mu != 0, "_moebius_range returned 0" );
@@ -415,7 +416,7 @@ _XS_moebius(IN UV lo, IN UV hi = 0)
       Safefree(mu);
     } else {
       UV factors[MPU_MAX_FACTORS+1];
-      UV i, nfactors, lastf;
+      UV nfactors, lastf;
       UV n = lo;
 
       if (n <= 1)
diff --git a/aks.c b/aks.c
index 3097ecb..4e534ce 100644
--- a/aks.c
+++ b/aks.c
@@ -25,6 +25,7 @@
 #define SQRTN_SHORTCUT 1
 
 #include "ptypes.h"
+#include "aks.h"
 #include "util.h"
 #include "sieve.h"
 #include "factor.h"
@@ -109,8 +110,7 @@ static void poly_print(UV* poly, UV r)
 
 static void poly_mod_mul(UV* px, UV* py, UV* res, UV r, UV mod)
 {
-  int i, j;
-  UV pxi, pyj, rindex;
+  UV i, j, pxi, pyj, rindex;
 
   memset(res, 0, r * sizeof(UV));
   for (i = 0; i < r; i++) {
@@ -131,8 +131,7 @@ static void poly_mod_mul(UV* px, UV* py, UV* res, UV r, UV 
mod)
 }
 static void poly_mod_sqr(UV* px, UV* res, UV r, UV mod)
 {
-  int d, s;
-  UV sum, rindex;
+  UV d, s, sum, rindex;
   UV degree = r-1;
 
   memset(res, 0, r * sizeof(UV)); /* zero out sums */
@@ -177,7 +176,7 @@ static int test_anr(UV a, UV n, UV r)
 {
   UV* pn;
   UV* res;
-  int i;
+  UV i;
   int retval = 1;
 
   Newz(0, pn, r, UV);
diff --git a/factor.c b/factor.c
index d4dddaa..d2da1d9 100644
--- a/factor.c
+++ b/factor.c
@@ -959,8 +959,8 @@ int racing_squfof_factor(UV n, UV *factors, UV rounds)
     3*11,     3,     5*11,   5,   7*11,   7,   11,     1   };
   const UV big2 = UV_MAX >> 2;
   mult_t mult_save[NSQUFOF_MULT];
-  int i, still_racing;
-  UV nn64, mult, f64;
+  int still_racing;
+  UV i, nn64, mult, f64;
   UV rounds_done = 0;
 
   /* Caller should have handled these trivial cases */
diff --git a/util.c b/util.c
index 37ed751..b6aa33e 100644
--- a/util.c
+++ b/util.c
@@ -667,8 +667,10 @@ IV* _moebius_range(UV lo, UV hi)
   }
   for (i = lo; i <= hi; i++) {
     IV m = mu[i-lo];
-    if (m != i && m != -i)  m *= -1;
-    mu[i-lo] = (m>0) - (m<0);
+    if (m != 0) {
+      if (m != i && -m != i)  m *= -1;
+      mu[i-lo] = (m>0) - (m<0);
+    }
   }
   return mu;
 }
@@ -909,14 +911,13 @@ static const long double riemann_zeta_table[] = {
 long double ld_riemann_zeta(long double x) {
   long double const tol = 1e-17;
   long double term;
-  int k;
   KAHAN_INIT(sum);
 
   if (x < 0.5) croak("Invalid input to RiemannZeta:  x must be >= 0.5");
 
   if (x == (unsigned int)x) {
-    k = x - 2;
-    if ((k >= 0) && (k < NPRECALC_ZETA))
+    int k = x - 2;
+    if ((k >= 0) && (k < (int)NPRECALC_ZETA))
       return riemann_zeta_table[k];
   }
 
@@ -964,6 +965,7 @@ long double ld_riemann_zeta(long double x) {
      * values using double precision, it's awful.
      * Back to the defining equation.
      */
+    int k;
     for (k = 5; k <= 1000000; k++) {
       term = powl(k, -x);
       KAHAN_SUM(sum, term);

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

Reply via email to