Author: coke
Date: Fri Jan 2 06:51:02 2009
New Revision: 34812
Modified:
trunk/examples/benchmarks/arriter_o1.pir
Log:
make example compile (and work) again.
Modified: trunk/examples/benchmarks/arriter_o1.pir
==============================================================================
--- trunk/examples/benchmarks/arriter_o1.pir (original)
+++ trunk/examples/benchmarks/arriter_o1.pir Fri Jan 2 06:51:02 2009
@@ -33,7 +33,6 @@
=cut
.sub arriter :main
-.include "iterator.pasm"
# declaration of lexicals
$P20 = new 'Hash'
@@ -68,7 +67,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
@@ -77,8 +76,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
# start of opt: invariant may go out of loop
$P33 = new 'Undef'
@@ -124,8 +122,7 @@
# 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:
