[svn:parrot] r44749 - in branches/ops_pct/compilers/opsc: src/Ops/Compiler t

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Mar  7 21:24:47 2010
New Revision: 44749
URL: https://trac.parrot.org/parrot/changeset/44749

Log:
Append munched goto NEXT instead of unmunched one...

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm
   branches/ops_pct/compilers/opsc/t/03-past.t

Modified: branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Sun Mar  7 21:24:16 2010	(r44748)
+++ branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Sun Mar  7 21:24:47 2010	(r44749)
@@ -81,7 +81,7 @@
     if %flags<flow> {
         $op.push(PAST::Op.new(
             :pasttype('inline'),
-            :inline("\ngoto NEXT();\n")
+            :inline("\n" ~ '{{+=OP_SIZE}};' ~ "\n")
             ));
     }
 

Modified: branches/ops_pct/compilers/opsc/t/03-past.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/03-past.t	Sun Mar  7 21:24:16 2010	(r44748)
+++ branches/ops_pct/compilers/opsc/t/03-past.t	Sun Mar  7 21:24:47 2010	(r44749)
@@ -86,7 +86,7 @@
 ok( ($op.arg_types).join('_') eq 'i_p_nc', "First variant correct");
 
 # Check body munching.
-ok( $op.body ~~ /goto \s NEXT/, "goto NEXT appended for :flow ops");
+ok( $op.body ~~ /OP_SIZE/, "goto NEXT appended for :flow ops");
 
 # Second created op should have _pc_
 $op := @ops[2];