[ops2c] remove some unneeded regexes

git-svn-id: https://svn.parrot.org/parrot/trunk@44788 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Mar 9, 2010 · 754ade4 · 754ade4
1 parent f24f290
commit 754ade4
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/lib/Parrot/Op.pm b/lib/Parrot/Op.pm
@@ -315,15 +315,12 @@ sub _substitute {
 
     s/{{=0,=([^{]*?)}}/   $trans->restart_address($1) . "; {{=0}}"; /me;
     s/{{=0,\+=([^{]*?)}}/ $trans->restart_offset($1)  . "; {{=0}}"; /me;
-    s/{{=0,-=([^{]*?)}}/  $trans->restart_offset(-$1) . "; {{=0}}"; /me;
 
     s/{{\+=([^{]*?)}}/    $trans->goto_offset($1);  /me;
-    s/{{-=([^{]*?)}}/     $trans->goto_offset(-$1); /me;
     s/{{=([^*][^{]*?)}}/  $trans->goto_address($1); /me;
 
-    s/{{\^(-?\d+)}}/      $1                        /me;
+    s/{{\^(\d+)}}/        $1                        /me;
     s/{{\^\+([^{]*?)}}/   $trans->expr_offset($1);  /me;
-    s/{{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
     s/{{\^([^{]*?)}}/     $trans->expr_address($1); /me;
 
     return $_;