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

cotto at svn.parrot.org cotto at svn.parrot.org
Sun Mar 7 03:47:48 UTC 2010


Author: cotto
Date: Sun Mar  7 03:47:43 2010
New Revision: 44723
URL: https://trac.parrot.org/parrot/changeset/44723

Log:
[opsc] store the jump flags in a printable manner

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	Sun Mar  7 02:56:59 2010	(r44722)
+++ branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Sun Mar  7 03:47:43 2010	(r44723)
@@ -252,9 +252,11 @@
     # on the mode of operation (function calls, switch statements, gotos
     # with labels, etc.).
     #
+    
+    $op<jump> := '0';
 
     if ($body ~~ / [ goto | restart ] \s+ OFFSET / ) {
-        $op<jump> := ~ 'PARROT_JUMP_RELATIVE';
+        $op<jump> := $op<jump> ~ '|PARROT_JUMP_RELATIVE';
     }
 
     #'goto ADDRESS((foo))' -> '{{=foo}}'


More information about the parrot-commits mailing list