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 bd7929c0c197469d0b483dc904f6c10a702126b7 Author: Dana Jacobsen <d...@acm.org> Date: Mon Dec 9 18:54:08 2013 -0800 Microsoft VC isn't C99, sigh --- primality.c | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/primality.c b/primality.c index 80f6252..68d6a5d 100644 --- a/primality.c +++ b/primality.c @@ -141,14 +141,6 @@ static int monty_mr64(const uint64_t n, const UV* bases, int cnt) } return 1; } -#else -#if defined(__GNUC__) -#define UNUSEDVAR __attribute__ ((unused)) -#else -#define UNUSEDVAR -#endif -static int monty_mr64(const UNUSEDVAR uint64_t n, const UNUSEDVAR UV* bases, int UNUSEDVAR cnt) -{ croak("configuration error in primality.c"); } #endif /******************************************************************************/ @@ -217,8 +209,10 @@ int _XS_miller_rabin(UV const n, const UV *bases, int nbases) MPUassert(n > 3, "MR called with n <= 3"); if ((n & 1) == 0) return 0; - if (USE_MONT_PRIMALITY && n >= UVCONST(4294967295)) +#if USE_MONT_PRIMALITY + if (n >= UVCONST(4294967295)) return monty_mr64((uint64_t)n, bases, nbases); +#endif while (!(d&1)) { s++; d >>= 1; } -- 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