From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 2 Sep 1996 23:00:14 +0000 (+0000)
Subject: perl 5.003_05: t/op/inc.t util.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1eb770ff12717abcb232d974ac25ca599a5d2987;hp=53326d4cb95b0a426abad58608c3cd209994a30e;p=p5sagit%2Fp5-mst-13.2.git

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