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 (file)
--- 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 (file)
--- 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);
 
 ##############################################################################