[svn:parrot] r44698 - branches/ops_pct/compilers/opsc/src/Ops

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Mar  6 12:53:58 2010
New Revision: 44698
URL: https://trac.parrot.org/parrot/changeset/44698

Log:
Workadound scalar/list in Op.size

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Op.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sat Mar  6 12:53:34 2010	(r44697)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sat Mar  6 12:53:58 2010	(r44698)
@@ -124,6 +124,7 @@
 method args($args?) { self.attr('args', $args, defined($args)) }
 
 method arg_types($args?) { self.attr('arg_types', $args, defined($args)) }
+method arg_dirs($args?) { self.attr('arg_dirs', $args, defined($args)) }
 
 
 method full_name() {
@@ -277,7 +278,7 @@
 =end
 
 method size() {
-    return +self.arg_types + 1;
+    return pir::does__IPs(self.arg_types, 'array') ?? +self.arg_types + 1 !! 2;
 }
 
 =begin