Silence a couple of VC++ compiler warnings

p4raw-id: //depot/perl@31309

diff --git a/ext/Math/BigInt/FastCalc/FastCalc.pm b/ext/Math/BigInt/FastCalc/FastCalc.pm
index af464f1..38b71fa 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.15';
+$VERSION = '0.15_01';
 
 bootstrap Math::BigInt::FastCalc $VERSION;
 

diff --git a/ext/Math/BigInt/FastCalc/FastCalc.xs b/ext/Math/BigInt/FastCalc/FastCalc.xs
index cd2ca4b..9c2a4d3 100644 (file)
--- a/ext/Math/BigInt/FastCalc/FastCalc.xs
+++ b/ext/Math/BigInt/FastCalc/FastCalc.xs
@@ -53,7 +53,7 @@ _new(class, x)
   INIT:
     STRLEN len;
     char* cur;
-    int part_len;
+    STRLEN part_len;
 
   CODE:
     /* create the array */
@@ -78,7 +78,7 @@ _new(class, x)
       while (len > 0)
         {
         /* use either BASE_LEN or the amount of remaining digits */
-        part_len = XS_BASE_LEN;
+        part_len = (STRLEN) XS_BASE_LEN;
         if (part_len > len)
           {
           part_len = len;