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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Mar  6 01:39:39 2010
New Revision: 44678
URL: https://trac.parrot.org/parrot/changeset/44678

Log:
Prepare ops in trans. Emit trans-specific header part

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

Modified: branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm	Sat Mar  6 01:39:15 2010	(r44677)
+++ branches/ops_pct/compilers/opsc/src/Ops/Emitter.pm	Sat Mar  6 01:39:39 2010	(r44678)
@@ -26,6 +26,9 @@
     self<include> := "parrot/oplib/$base_ops_h";
     self<header>  := (~%flags<dir>) ~ "include/" ~ self<include>;
 
+    # Prepare ops
+    $trans.prepare_ops(self, $ops_file);
+
     self;
 };
 
@@ -49,6 +52,9 @@
 
     self._emit_preamble($fh);
 
+    # Emit runcore specific part.
+    self.trans.emit_c_header_part($fh);
+
     self._emit_guard_suffix($fh);
 
     self._emit_coda($fh);