[svn:parrot] r44726 - in branches/ops_pct/compilers/opsc/src/Ops: . Compiler

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Mar  7 07:57:22 2010
New Revision: 44726
URL: https://trac.parrot.org/parrot/changeset/44726

Log:
Fix handling op.jump

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm
   branches/ops_pct/compilers/opsc/src/Ops/Op.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 07:50:47 2010	(r44725)
+++ branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Sun Mar  7 07:57:22 2010	(r44726)
@@ -257,7 +257,7 @@
     $op<jump> := '0';
 
     if ($body ~~ / [ goto | restart ] \s+ OFFSET / ) {
-        $op<jump> := $op<jump> ~ '|PARROT_JUMP_RELATIVE';
+        $op<jump> := 'PARROT_JUMP_RELATIVE';
     }
 
     #'goto ADDRESS((foo))' -> '{{=foo}}'

Modified: branches/ops_pct/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sun Mar  7 07:50:47 2010	(r44725)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Sun Mar  7 07:57:22 2010	(r44726)
@@ -192,14 +192,7 @@
 
 =end
 
-method jump($jump?) {
-
-    if ($jump) {
-        self<JUMP> := $jump;
-    }
-
-    self<JUMP>;
-}
+method jump($jump?)   { self.attr('jump', $jump, defined($jump)) }
 
 =begin