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

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Mar 6 22:47:33 UTC 2010


Author: bacek
Date: Sat Mar  6 22:47:32 2010
New Revision: 44713
URL: https://trac.parrot.org/parrot/changeset/44713

Log:
Emit functions definitions in Trans::C

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

Modified: branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Sat Mar  6 22:38:34 2010	(r44712)
+++ branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Sat Mar  6 22:47:32 2010	(r44713)
@@ -109,6 +109,7 @@
 method emit_source_part($emitter, $fh) {
     self._emit_op_func_table($emitter, $fh);
     self._emit_op_info_table($emitter, $fh);
+    self._emit_op_function_definitions($emitter, $fh);
 }
 
 method _emit_op_func_table($emitter, $fh) {
@@ -211,6 +212,19 @@
 |);
 }
 
+method _emit_op_function_definitions($emitter, $fh) {
+    $fh.print(q|
+/*
+** Op Function Definitions:
+*/
+
+|);
+
+    for self<op_funcs> -> $op {
+        $fh.print($op);
+    }
+}
+
 method emit_op_lookup($emitter, $fh) {
 
     if $emitter.flags<dynamic> {


More information about the parrot-commits mailing list