[libmath-prime-util-perl] 55/72: Make sure strtoull is used for 64-bit when possible

[Partha P. Mukherjee]

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

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

commit 8981c0a8b378170c55023d8b42309030472ff436
Author: Dana Jacobsen <dana at acm.org>
Date:   Mon Sep 30 23:29:31 2013 -0700

    Make sure strtoull is used for 64-bit when possible
---
 XS.xs | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/XS.xs b/XS.xs
index 401af40..3cf76a5 100644
--- a/XS.xs
+++ b/XS.xs
@@ -19,18 +19,15 @@
 #include "lehmer.h"
 #include "aks.h"
 
-#ifdef WIN32
-  #ifdef _MSC_VER
-    #include <stdlib.h>
-    #define PSTRTOULL(str, end, base) _strtoui64 (str, end, base)
-  #else
-    #define PSTRTOULL(str, end, base) strtoul (str, end, base)
-  #endif
-#else
+#if BITS_PER_WORD == 64 && defined(_MSC_VER)
+  #include <stdlib.h>
+  #define PSTRTOULL(str, end, base) _strtoui64 (str, end, base)
+#elif BITS_PER_WORD == 64 && (defined(__GNUC__) || QUADKIND==QUAD_IS_LONG_LONG)
   #define PSTRTOULL(str, end, base) strtoull (str, end, base)
+#else
+  #define PSTRTOULL(str, end, base) strtoul (str, end, base)
 #endif
 
-
 /* Workaround perl 5.6 UVs and bigints in later */
 #if PERL_REVISION <= 5 && PERL_VERSION <= 6 && BITS_PER_WORD == 64
  #define set_val_from_sv(val, sv) \

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git