[libmath-prime-util-perl] 01/181: Microsoft VC isn't C99, sigh

[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 bd7929c0c197469d0b483dc904f6c10a702126b7
Author: Dana Jacobsen <dana at 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