[svn:parrot] r44697 - in branches/ops_pct/compilers/opsc/src/Ops: . Trans

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Mar  6 12:53:34 2010
New Revision: 44697
URL: https://trac.parrot.org/parrot/changeset/44697

Log:
Pass emitter into emit_source_part

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm
   branches/ops_pct/compilers/opsc/src/Ops/Trans.pm
   branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm	Sat Mar  6 12:43:44 2010	(r44696)
+++ branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm	Sat Mar  6 12:53:34 2010	(r44697)
@@ -92,7 +92,7 @@
 method emit_c_source_file($fh) {
     self._emit_source_preamble($fh);
 
-    self.trans.emit_source_part($fh);
+    self.trans.emit_source_part(self, $fh);
     self.trans.emit_op_lookup(self, $fh);
 
     self._emit_op_lib_descriptor($fh);

Modified: branches/ops_pct/compilers/opsc/src/Ops/Trans.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Trans.pm	Sat Mar  6 12:43:44 2010	(r44696)
+++ branches/ops_pct/compilers/opsc/src/Ops/Trans.pm	Sat Mar  6 12:53:34 2010	(r44697)
@@ -28,7 +28,7 @@
 
 method source_preamble() { '' }
 
-method emit_source_part($fh) { die('...') }
+method emit_source_part($emitter, $fh) { die('...') }
 
 # Default op lookup do nothing. But op_deinit referenced anyway.
 method emit_op_lookup($fh) {

Modified: branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Sat Mar  6 12:43:44 2010	(r44696)
+++ branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Sat Mar  6 12:53:34 2010	(r44697)
@@ -84,7 +84,7 @@
 method op_func($emitter) { $emitter.bs ~ 'op_func_table' }
 method getop($emitter)   { 'get_op' };
 
-method emit_source_part($fh) {
+method emit_source_part($emitter, $fh) {
 }