cvsuser 03/07/18 09:01:11
Modified: t/op stacks.t
Log:
Some systems may distinguish between 0 and -0. Fixes bug #23028
Revision Changes Path
1.31 +12 -12 parrot/t/op/stacks.t
Index: stacks.t
===================================================================
RCS file: /cvs/public/parrot/t/op/stacks.t,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -w -r1.30 -r1.31
--- stacks.t 17 Jul 2003 00:40:21 -0000 1.30
+++ stacks.t 18 Jul 2003 16:01:11 -0000 1.31
@@ -332,9 +332,9 @@
OUTPUT
output_is(<<"CODE", <<OUTPUT, "combining pops with pushtops, pushbottoms");
[EMAIL PROTECTED] set_str_regs( sub {$_[0]} ) ]}
[EMAIL PROTECTED] set_str_regs( sub {$_[0]+1} ) ]}
pushtops
[EMAIL PROTECTED] set_str_regs( sub {-$_[0]} ) ]}
[EMAIL PROTECTED] set_str_regs( sub {-$_[0]-1} ) ]}
pushbottoms
@{[ set_str_regs( sub {0} ) ]}
@{[ print_str_regs() ]}
@@ -345,9 +345,9 @@
clears
[EMAIL PROTECTED] set_str_regs( sub {$_[0]} ) ]}
[EMAIL PROTECTED] set_str_regs( sub {$_[0]+1} ) ]}
pushbottoms
[EMAIL PROTECTED] set_str_regs( sub {-$_[0]} ) ]}
[EMAIL PROTECTED] set_str_regs( sub {-$_[0]-1} ) ]}
pushtops
@{[ set_str_regs( sub {0} ) ]}
@{[ print_str_regs() ]}
@@ -358,9 +358,9 @@
end
CODE
00000000000000000000000000000000
-161718192021222324252627282930310-1-2-3-4-5-6-7-8-9-10-11-12-13-14-15
+17181920212223242526272829303132-1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16
00000000000000000000000000000000
-0123456789101112131415-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31
+12345678910111213141516-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32
OUTPUT
($code, $output) = ();
@@ -574,9 +574,9 @@
OUTPUT
output_is(<<"CODE", <<OUTPUT, "combining popp with pushtopp, pushbottomp");
[EMAIL PROTECTED] set_pmc_regs( sub {$_[0]} ) ]}
[EMAIL PROTECTED] set_pmc_regs( sub {$_[0]+1} ) ]}
pushtopp
[EMAIL PROTECTED] set_pmc_regs( sub {-$_[0]} ) ]}
[EMAIL PROTECTED] set_pmc_regs( sub {-$_[0]-1} ) ]}
pushbottomp
@{[ set_pmc_regs( sub {0} ) ]}
@{[ print_pmc_regs() ]}
@@ -587,9 +587,9 @@
clearp
[EMAIL PROTECTED] set_pmc_regs( sub {$_[0]} ) ]}
[EMAIL PROTECTED] set_pmc_regs( sub {$_[0]+1} ) ]}
pushbottomp
[EMAIL PROTECTED] set_pmc_regs( sub {-$_[0]} ) ]}
[EMAIL PROTECTED] set_pmc_regs( sub {-$_[0]-1} ) ]}
pushtopp
@{[ set_pmc_regs( sub {0} ) ]}
@{[ print_pmc_regs() ]}
@@ -600,9 +600,9 @@
end
CODE
00000000000000000000000000000000
-161718192021222324252627282930310-1-2-3-4-5-6-7-8-9-10-11-12-13-14-15
+17181920212223242526272829303132-1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16
00000000000000000000000000000000
-0123456789101112131415-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31
+12345678910111213141516-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32
OUTPUT
output_is(<<"CODE", <<'OUTPUT', 'poptopp, aggregate PMCs');
