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

[cotto at svn.parrot.org]

Author: cotto
Date: Tue Mar  9 02:12:46 2010
New Revision: 44786
URL: https://trac.parrot.org/parrot/changeset/44786

Log:
[opsc] fix ops2c.nqp, fix an incorrect comment

Modified:
   branches/ops_pct/compilers/opsc/ops2c.nqp
   branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm

Modified: branches/ops_pct/compilers/opsc/ops2c.nqp
==============================================================================
--- branches/ops_pct/compilers/opsc/ops2c.nqp	Tue Mar  9 02:02:55 2010	(r44785)
+++ branches/ops_pct/compilers/opsc/ops2c.nqp	Tue Mar  9 02:12:46 2010	(r44786)
@@ -20,8 +20,12 @@
 
 
 my $trans := Ops::Trans::C.new();
+my $lib := Ops::OpLib.new(
+    :num_file('src/ops/ops.num'),
+    :skip_file('src/ops/ops.skip'),
+);
 
-my $f := Ops::File.new(|@files);
+my $f := Ops::File.new(|@files, :oplib($lib));
 my $emitter := Ops::Emitter.new(
     :ops_file($f), :trans($trans), :script('ops2c'),
     :flags(

Modified: branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Tue Mar  9 02:02:55 2010	(r44785)
+++ branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Tue Mar  9 02:12:46 2010	(r44786)
@@ -309,7 +309,7 @@
                 -> $m { '{{+=' ~ $m<addr> ~ '}}' }
             );
 
-    #'expr OFFSET((foo))' -> '{{^=foo}}'
+    #'expr OFFSET((foo))' -> '{{+=foo}}'
     $body := subst($body,
                 /expr \s+ OFFSET '((' $<addr>=[.*?] '))'/,
                 -> $m { '{{^=' ~ $m<addr> ~ '}}' }