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

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Mar  7 12:55:29 2010
New Revision: 44737
URL: https://trac.parrot.org/parrot/changeset/44737

Log:
FIx handling empty arg_types

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	Sun Mar  7 12:55:07 2010	(r44736)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sun Mar  7 12:55:29 2010	(r44737)
@@ -129,6 +129,8 @@
 
 method arg_types($args?)  {
     my $res := self.attr('arg_types', $args, defined($args));
+
+    return list() if !defined($res);
     pir::does__IPS($res, 'array') ?? $res !! list($res);
 }
 
@@ -143,9 +145,6 @@
     my $name      := self.name;
     my @arg_types := self.arg_types;
 
-    # FIXME. We should always have array here.
-    @arg_types := list(@arg_types) if !pir::does__IPS(@arg_types, 'array');
-
     #say("# $name arg_types " ~ @arg_types);
     join('_', $name, |@arg_types);
 }