From 1eb770ff12717abcb232d974ac25ca599a5d2987 Mon Sep 17 00:00:00 2001 From: Perl 5 Porters Date: Mon, 2 Sep 1996 23:00:14 +0000 Subject: [PATCH] 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. --- t/op/inc.t | 6 +++--- util.c | 6 ++++++ 2 files changed, 9 insertions(+), 3 deletions(-) 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 */ + +/* Code modified to prefer proper named type ranges, I32, IV, or UV, instead + of LONG_(MIN/MAX). + -- Kenneth Albanowski +*/ + #ifndef MY_UV_MAX # define MY_UV_MAX ((UV)IV_MAX * (UV)2 + (UV)1) #endif -- 2.7.4