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

[cotto at svn.parrot.org]

Author: cotto
Date: Tue Mar  9 06:33:12 2010
New Revision: 44789
URL: https://trac.parrot.org/parrot/changeset/44789

Log:
[opsc] remove some unneeded substitutions

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Op.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Tue Mar  9 06:31:01 2010	(r44788)
+++ branches/ops_pct/compilers/opsc/src/Ops/Op.pm	Tue Mar  9 06:33:12 2010	(r44789)
@@ -240,12 +240,6 @@
         -> $m { $trans.restart_offset($m<offset>) ~ '; {{=0}}' }
     );
 
-    #s/{{=0,-=([^{]*?)}}/  $trans->restart_offset(-$1) . "; {{=0}}"; /me;
-    $str := subst($str,
-        /'{{=0,-=' $<offset>=[<-[{]>*?] '}}'/,
-        -> $m { $trans.restart_offset( '-' ~ $m<offset>) ~ '; {{=0}}' }
-    );
-
     #s/{{=([^*][^{]*?)}}/  $trans->goto_address($1); /me;
     $str := subst($str,
         /'{{=' $<addr>=[<-[{]>*?] '}}'/,
@@ -258,15 +252,9 @@
         -> $m { $trans.goto_offset($m<offset>) }
     );
 
-    #s/{{-=([^{]*?)}}/     $trans->goto_offset(-$1); /me;
-    $str := subst($str,
-        /'{{-=' $<offset>=[<-[{]>*?] '}}'/,
-        -> $m { $trans.goto_offset( '-' ~ $m<offset>) }
-    );
-
     #s/{{\^(-?\d+)}}/      $1                        /me;
     $str := subst($str,
-        /'{{^' $<addr>=[ '-'? <digit>+] '}}'/,
+        /'{{^' $<addr>=[ <digit>+] '}}'/,
         -> $m { $m<addr> }
     );
 
@@ -276,12 +264,6 @@
         -> $m { $trans.expr_offset($m<offset>) }
     );
 
-    #s/{{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
-    $str := subst($str,
-        /'{{^-' $<offset>=[<-[{]>*?] '}}'/,
-        -> $m { $trans.expr_offset( '-' ~ $m<offset>) }
-    );
-
     #s/{{\^([^{]*?)}}/     $trans->expr_address($1); /me;
     $str := subst($str,
         /'{{^' $<addr>=[<-[{]>*?] '}}'/,