[libmath-prime-util-perl] 23/181: Fix some compiler warnings
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:51:02 UTC 2015
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 eac8b272d1ed3c0ad660b548139d749d4167e211
Author: Dana Jacobsen <dana at acm.org>
Date: Wed Dec 18 23:53:57 2013 -0800
Fix some compiler warnings
---
XS.xs | 1 -
factor.c | 4 ++--
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/XS.xs b/XS.xs
index 33b4eaa..4803cef 100644
--- a/XS.xs
+++ b/XS.xs
@@ -958,7 +958,6 @@ forcomposites (SV* block, IN SV* svbeg, IN SV* svend = 0)
if (beg > end)
XSRETURN_UNDEF;
- /* TODO: segment sieve and walk composites */
SAVESPTR(GvSV(PL_defgv));
svarg = newSVuv(0);
#if USE_MULTICALL
diff --git a/factor.c b/factor.c
index 20a8c09..78a4eba 100644
--- a/factor.c
+++ b/factor.c
@@ -347,8 +347,8 @@ UV* _divisor_list(UV n, UV *num_divisors)
New(0, divs, ndivisors, UV);
(void) _divisors_from_factors(1, nfactors, factors, exponents, divs);
{ /* Sort (Shell sort is easy and efficient) */
- static UV gaps[] = {301, 132, 57, 23, 10, 4, 1, 0};
- UV gap, gapi = 0;
+ static int gaps[] = {301, 132, 57, 23, 10, 4, 1, 0};
+ int gap, gapi = 0;
for (gap = gaps[gapi]; gap > 0; gap = gaps[++gapi]) {
for (i = gap; i < ndivisors; i++) {
UV v = divs[i];
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git
More information about the Pkg-perl-cvs-commits
mailing list