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

[cotto at svn.parrot.org]

Author: cotto
Date: Thu May 13 08:28:16 2010
New Revision: 46578
URL: https://trac.parrot.org/parrot/changeset/46578

Log:
[opsc] be more careful about honoring the skiptable (aka ops.skip)

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Thu May 13 08:26:47 2010	(r46577)
+++ branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Thu May 13 08:28:16 2010	(r46578)
@@ -43,22 +43,25 @@
         }
         for @($ops) -> $op {
             my $full_name := $op.full_name;
-            if $OPLIB && ! $skiptable.exists($full_name) {
-                if $optable.exists($full_name) {
+            if $OPLIB {
+                if  !$skiptable.exists($full_name) &&
+                     $optable.exists($full_name) {
                     $op<code> := $optable{$full_name};
                     $op<experimental> := 0;
+                    $past<ops>.push($op);
                 }
-                else {
+                elsif !$skiptable.exists($full_name) {
                     $op<code> := $CODE++;
                     $op<experimental> := 1;
+                    $past<ops>.push($op);
                 }
             }
             else {
                 $op<code> := $CODE++;
                 $op<experimental> := 0;
+                $past<ops>.push($op);
             }
 
-            $past<ops>.push($op);
         }
     }