Change 33065 by [EMAIL PROTECTED] on 2008/01/24 21:11:11
Don't want about imprecision when decrementing IV_MIN.
Based on a patch by Jerry D. Hedden, but only instead only disable
warnings for the specific operations that we know will warn.
Affected files ...
... //depot/perl/t/op/64bitint.t#15 edit
Differences ...
==== //depot/perl/t/op/64bitint.t#15 (text) ====
Index: perl/t/op/64bitint.t
--- perl/t/op/64bitint.t#14~16829~ 2002-05-28 05:26:34.000000000 -0700
+++ perl/t/op/64bitint.t 2008-01-24 13:11:11.000000000 -0800
@@ -172,13 +172,19 @@
print "ok 28\n";
$a = -9223372036854775808;
- $c = $a--;
+ {
+ no warnings 'imprecision';
+ $c = $a--;
+ }
print "not "
unless $a == -9223372036854775809 && $c == -9223372036854775808;
print "ok 29\n";
$a = -9223372036854775808;
- $c = --$a;
+ {
+ no warnings 'imprecision';
+ $c = --$a;
+ }
print "not "
unless $a == -9223372036854775809 && $c == $a;
print "ok 30\n";
@@ -191,14 +197,20 @@
$a = 9223372036854775808;
$a = -$a;
- $c = $a--;
+ {
+ no warnings 'imprecision';
+ $c = $a--;
+ }
print "not "
unless $a == -9223372036854775809 && $c == -9223372036854775808;
print "ok 32\n";
$a = 9223372036854775808;
$a = -$a;
- $c = --$a;
+ {
+ no warnings 'imprecision';
+ $c = --$a;
+ }
print "not "
unless $a == -9223372036854775809 && $c == $a;
print "ok 33\n";
@@ -212,14 +224,20 @@
$a = 9223372036854775808;
$b = -$a;
- $c = $b--;
+ {
+ no warnings 'imprecision';
+ $c = $b--;
+ }
print "not "
unless $b == -$a-1 && $c == -$a;
print "ok 35\n";
$a = 9223372036854775808;
$b = -$a;
- $c = --$b;
+ {
+ no warnings 'imprecision';
+ $c = --$b;
+ }
print "not "
unless $b == -$a-1 && $c == $b;
print "ok 36\n";
End of Patch.
