From: Steve Hay <SteveHay@planit.com>
Date: Tue, 6 Mar 2007 09:20:51 +0000 (+0000)
Subject: Reinstate part of #28744 that was accidentally reverted in #30454
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c0b8e732f4cf9c020efd23b58905fa8c6fbf52a;p=p5sagit%2Fp5-mst-13.2.git

Reinstate part of #28744 that was accidentally reverted in #30454
to suppress a couple of warnings (at least on Win32)

p4raw-id: //depot/perl@30482
---

diff --git a/ext/Math/BigInt/FastCalc/FastCalc.pm b/ext/Math/BigInt/FastCalc/FastCalc.pm
index 23b9645..160a218 100644
--- a/ext/Math/BigInt/FastCalc/FastCalc.pm
+++ b/ext/Math/BigInt/FastCalc/FastCalc.pm
@@ -11,7 +11,7 @@ use vars qw/@ISA $VERSION $BASE $BASE_LEN/;
 
 @ISA = qw(DynaLoader);
 
-$VERSION = '0.12';
+$VERSION = '0.12_01';
 
 bootstrap Math::BigInt::FastCalc $VERSION;
 
diff --git a/ext/Math/BigInt/FastCalc/FastCalc.xs b/ext/Math/BigInt/FastCalc/FastCalc.xs
index 152eb0b..3e53876 100644
--- a/ext/Math/BigInt/FastCalc/FastCalc.xs
+++ b/ext/Math/BigInt/FastCalc/FastCalc.xs
@@ -381,15 +381,15 @@ _len(class,x)
   INIT:
     AV*	a;
     SV*	temp;
-    NV	elems;
+    IV	elems;
     STRLEN len;
 
   CODE:
     a = (AV*)SvRV(x);			/* ref to aray, don't check ref */
-    elems = (NV) av_len(a);		/* number of elems in array */
+    elems = av_len(a);			/* number of elems in array */
     temp = *av_fetch(a, elems, 0);	/* fetch last element */
     SvPV(temp, len);			/* convert to string & store length */
-    len += XS_BASE_LEN * elems;
+    len += (IV) XS_BASE_LEN * elems;
     ST(0) = newSViv(len);
 
 ##############################################################################