Change 31309: Silence a couple of VC++ compiler warnings

[Steve Hay]

Change 31309 by [EMAIL PROTECTED] on 2007/05/30 07:38:30

        Silence a couple of VC++ compiler warnings

Affected files ...

... //depot/perl/ext/Math/BigInt/FastCalc/FastCalc.pm#9 edit
... //depot/perl/ext/Math/BigInt/FastCalc/FastCalc.xs#7 edit

Differences ...

==== //depot/perl/ext/Math/BigInt/FastCalc/FastCalc.pm#9 (text) ====
Index: perl/ext/Math/BigInt/FastCalc/FastCalc.pm
--- perl/ext/Math/BigInt/FastCalc/FastCalc.pm#8~31284~  2007-05-28 
02:45:39.000000000 -0700
+++ perl/ext/Math/BigInt/FastCalc/FastCalc.pm   2007-05-30 00:38:30.000000000 
-0700
@@ -11,7 +11,7 @@
 
 @ISA = qw(DynaLoader);
 
-$VERSION = '0.15';
+$VERSION = '0.15_01';
 
 bootstrap Math::BigInt::FastCalc $VERSION;
 

==== //depot/perl/ext/Math/BigInt/FastCalc/FastCalc.xs#7 (text) ====
Index: perl/ext/Math/BigInt/FastCalc/FastCalc.xs
--- perl/ext/Math/BigInt/FastCalc/FastCalc.xs#6~31284~  2007-05-28 
02:45:39.000000000 -0700
+++ perl/ext/Math/BigInt/FastCalc/FastCalc.xs   2007-05-30 00:38:30.000000000 
-0700
@@ -53,7 +53,7 @@
   INIT:
     STRLEN len;
     char* cur;
-    int part_len;
+    STRLEN part_len;
 
   CODE:
     /* create the array */
@@ -78,7 +78,7 @@
       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;
End of Patch.