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 <d...@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 _______________________________________________ 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