[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