This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.003_05: t/op/inc.t util.c
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Mon, 2 Sep 1996 23:00:14 +0000 (23:00 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Mon, 2 Sep 1996 23:00:14 +0000 (23:00 +0000)
One last LONG & co. fix (yet another cut'n'paste error) and a few
minor cleanups. Nothing crucial.

t/op/inc.t
util.c

index aee91f7..e5a2a92 100755 (executable)
@@ -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