Author: coke
Date: Fri Jan 2 06:46:52 2009
New Revision: 34811
Modified:
trunk/examples/benchmarks/arriter.pir
Log:
Make this example compile again.
(Looks like it even works, too.)
Modified: trunk/examples/benchmarks/arriter.pir
==============================================================================
--- trunk/examples/benchmarks/arriter.pir (original)
+++ trunk/examples/benchmarks/arriter.pir Fri Jan 2 06:46:52 2009
@@ -22,7 +22,6 @@
=cut
.sub arriter :main
-.include "iterator.pasm"
# declaration of lexicals
$P20 = new 'Hash'
@@ -57,7 +56,7 @@
# set up all 5 element permutations of qw( A B C D E F G H I J )
$P29 = new 'Undef'
- .lex "e", P29
+ .lex "e", $P29
$P29 = 0
for_2_start:
unless $P29 <= 3 goto for_2_end
@@ -66,8 +65,7 @@
for_3_start:
unless $P30 < 10 goto for_3_end
find_lex $P31 , "@k"
- $P32 = new Iterator, $P31
- $P32 = .ITERATE_FROM_START
+ $P32 = iter $P31
iter_1_start:
unless $P32 goto iter_1_end
$P33 = new 'Undef'
@@ -107,10 +105,7 @@
print $I0
print "\n"
- # XXX why does this not work ?
- #$P42 = new Iterator, $P41
- $P42 = new Iterator, $P22
- $P42 = .ITERATE_FROM_START
+ $P42 = iter $P22
$P43 = find_lex "%ha"
$I1 = 0
iter_2_start:
