perl 5.003_05: t/op/inc.t util.c

One last LONG & co. fix (yet another cut'n'paste error) and a few
minor cleanups. Nothing crucial.

diff --git a/t/op/inc.t b/t/op/inc.t
index aee91f7..e5a2a92 100755 (executable)
--- a/t/op/inc.t
+++ b/t/op/inc.t
@@ -6,11 +6,11 @@
 print "1..6\n";
 
 # Verify that addition/subtraction properly upgrade to doubles.
-# These tests are only useful on machines with 32 bit longs,
-# and one's complement negation, but shouldn't fail anywhere.
+# These tests are only significant on machines with 32 bit longs,
+# and two's complement negation, but shouldn't fail anywhere.
 
 $a = 2147483647;
-$a++;
+$c=$a++;
 if ($a == 2147483648) 
        {print "ok 1\n"}
 else

diff --git a/util.c b/util.c
index 810cda7..26040eb 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1743,6 +1743,12 @@ double f;
    ccflags.
               --Andy Dougherty      <doughera@lafcol.lafayette.edu>
 */
+
+/* Code modified to prefer proper named type ranges, I32, IV, or UV, instead
+   of LONG_(MIN/MAX).
+                           -- Kenneth Albanowski <kjahds@kjahds.com>
+*/                                      
+
 #ifndef MY_UV_MAX
 #  define MY_UV_MAX ((UV)IV_MAX * (UV)2 + (UV)1)
 #endif