From: Steve Hay <SteveHay@planit.com>
Date: Wed, 30 May 2007 07:38:30 +0000 (+0000)
Subject: Silence a couple of VC++ compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a436f3ee716c2e3dc505c8a92070f805fc2451bb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;