[svn:parrot] rev 8622 - branches/leo-ctx5/examples/benchmarks

[leo]

Author: leo
Date: Wed Jul 13 13:32:15 2005
New Revision: 8622

Modified:
   branches/leo-ctx5/examples/benchmarks/oo6.imc
Log:
adapt one for testing very prelim: ~20% for oo5 and oo6

Modified: branches/leo-ctx5/examples/benchmarks/oo6.imc
==============================================================================
--- branches/leo-ctx5/examples/benchmarks/oo6.imc       (original)
+++ branches/leo-ctx5/examples/benchmarks/oo6.imc       Wed Jul 13 13:32:15 2005
@@ -38,12 +38,13 @@ loop:
 .end
 
 .pcc_sub i method
-    .param pmc v
+    .param pmc v     :optional
+    .param int has_v :opt_count
     .local int ofs
     ofs = classoffset self, "Foo"
     .local pmc r
     r = getattribute self, ofs
-    unless argcP goto get
+    unless has_v goto get
     assign r, v
 get:
     .pcc_begin_return
@@ -52,13 +53,14 @@ get:
 .end
 
 .pcc_sub j method
-    .param pmc v
+    .param pmc v     :optional
+    .param int has_v :opt_count
     .local int ofs
     ofs = classoffset self, "Foo"
     inc ofs
     .local pmc r
     r = getattribute self, ofs
-    unless argcP goto get
+    unless has_v goto get
     assign r, v
 get:
     .pcc_begin_return