This is an automated email from the git hooks/post-receive script. ppm-guest pushed a commit to annotated tag v0.11 in repository libmath-prime-util-perl.
commit 22003b3313d5a1caf083cc42d70a5f9386b1c1c8 Author: Dana Jacobsen <d...@acm.org> Date: Thu Jul 19 09:58:16 2012 -0700 Compile issues, especially MSC --- Changes | 1 + XS.xs | 2 +- ptypes.h | 12 ++++++++++++ 3 files changed, 14 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 6075455..f40dbf0 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,7 @@ Revision history for Perl extension Math::Prime::Util. 0.11 19 July 2012 - Turn of threading tests on Cygwin, as threads now gives random panics. - Use pow instead of exp2 -- some systems don't have exp2. + - Fix compile issues on MSC, thanks to Sisyphus. 0.10 16 July 2012 diff --git a/XS.xs b/XS.xs index 3927039..22292f8 100644 --- a/XS.xs +++ b/XS.xs @@ -273,10 +273,10 @@ _XS_factor(IN UV n) n = tofac_stack[ntofac]; /* Set n to the other one */ } else { /* trial divisions */ - if (verbose) printf("doing trial on %"UVuf"\n", n); UV f = tlim; UV m = tlim % 30; UV limit = (UV) (sqrt(n)+0.1); + if (verbose) printf("doing trial on %"UVuf"\n", n); while (f <= limit) { if ( (n%f) == 0 ) { do { diff --git a/ptypes.h b/ptypes.h index e7f604a..9cbee9a 100644 --- a/ptypes.h +++ b/ptypes.h @@ -1,8 +1,20 @@ #ifndef MPU_PTYPES_H #define MPU_PTYPES_H +#ifndef _MSC_VER #define __STDC_LIMIT_MACROS #include <stdint.h> +#else + /* No stdint.h for MS C, so we lose the chance to possibly optimize + * some operations on 64-bit machines running a 32-bit Perl. It's probably + * a rare enough case that we don't need to be too concerned. If we do want, + * see: http://gauss.cs.ucsb.edu/~aydin/CombBLAS/html/stdint_8h_source.html + * for some ideas. + * + * Thanks to Sisyphus for bringing the MSC issue to my attention (and even + * submitting a working patch!). + */ +#endif #include "EXTERN.h" #include "perl.h" -- 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