Add Perl 5 and PIR versions of itmark

sorear · Oct 30, 2010 · eb2e899 · eb2e899
1 parent 08e051c
commit eb2e899
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/perf/itmark.p5 b/perf/itmark.p5
@@ -0,0 +1,7 @@
+my @arr;
+my $i = 0;
+while ($i < 10000) { push @arr, $i; $i++ }
+for my $x (@arr) {
+    for my $y (@arr) {
+    }
+}
diff --git a/perf/itmark.pir b/perf/itmark.pir
@@ -0,0 +1,19 @@
+.sub 'main' :main
+    $P0 = new 'ResizablePMCArray'
+    $I0 = 0
+  l1:
+    push $P0, $I0
+    inc $I0
+    unless $I0 == 10000 goto l1
+
+    $P1 = iter $P0
+  l2:
+    $P2 = shift $P1
+    $P3 = iter $P0
+  l3:
+    $P4 = shift $P3
+    if $P3 goto l3
+    if $P1 goto l2
+
+    .return()
+.end