[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