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

[bacek at svn.parrot.org]

Author: bacek
Date: Wed May  5 12:06:17 2010
New Revision: 46307
URL: https://trac.parrot.org/parrot/changeset/46307

Log:
Small tweaks to emit code closer to ops2c

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	Wed May  5 11:50:58 2010	(r46306)
+++ branches/ops_pct/compilers/opsc/src/Ops/Trans/C.pm	Wed May  5 12:06:17 2010	(r46307)
@@ -53,7 +53,7 @@
     for $ops_file.ops -> $op {
         #say("# preparing " ~ $op);
         my $func_name := $op.func_name( self );
-        my $definition := "opcode_t *\n$func_name (opcode_t *cur_opcode, PARROT_INTERP)";
+        my $definition := "opcode_t *\n$func_name(opcode_t *cur_opcode, PARROT_INTERP)";
         my $prototype := $emitter.sym_export
                 ~ " opcode_t * $func_name(opcode_t *, PARROT_INTERP);\n";
 
@@ -134,7 +134,7 @@
 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 body_prelude() { '    const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);' }
 
 method emit_source_part($emitter, $fh) {
     self._emit_op_func_table($emitter, $fh);