[libmath-prime-util-perl] 72/181: Wrap large constants in UVCONST for 64-bit Perl on 32-bit machines

Partha P. Mukherjee ppm-guest at moszumanska.debian.org
Thu May 21 18:51:08 UTC 2015


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 4518c3649d308829134724ad13ee5dc73d6bc0c6
Author: Dana Jacobsen <dana at acm.org>
Date:   Mon Dec 30 17:03:57 2013 -0800

    Wrap large constants in UVCONST for 64-bit Perl on 32-bit machines
---
 factor.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/factor.c b/factor.c
index 112a151..7b11512 100644
--- a/factor.c
+++ b/factor.c
@@ -381,9 +381,9 @@ UV* _divisor_list(UV n, UV *num_divisors)
  */
 static const UV sigma_overflow[5] =
 #if BITS_PER_WORD == 64
-         {3000000000000000000, 3000000000, 2487240, 64260, 7026};
+         {UVCONST(3000000000000000000),UVCONST(3000000000),2487240,64260,7026};
 #else
-         {          845404560,      52560,    1548,   252,   84};
+         {UVCONST(          845404560),             52560,    1548,  252,  84};
 #endif
 UV divisor_sum(UV n, UV k)
 {

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



More information about the Pkg-perl-cvs-commits mailing list