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

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Mar  7 09:08:04 2010
New Revision: 44733
URL: https://trac.parrot.org/parrot/changeset/44733

Log:
Add Trans::C.body_prelude

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	Sun Mar  7 08:42:45 2010	(r44732)
+++ branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Sun Mar  7 09:08:04 2010	(r44733)
@@ -133,6 +133,8 @@
 method op_func($emitter) { $emitter.bs ~ 'op_func_table' }
 method getop($emitter)   { 'get_op' };
 
+method body_prelude() { 'Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);' }
+
 method emit_source_part($emitter, $fh) {
     self._emit_op_func_table($emitter, $fh);
     self._emit_op_info_table($emitter, $fh);