[svn:parrot] r45280 - trunk/lib/Parrot/OpTrans

[petdance at svn.parrot.org]

Author: petdance
Date: Mon Mar 29 16:04:48 2010
New Revision: 45280
URL: https://trac.parrot.org/parrot/changeset/45280

Log:
fix the way consts are written

Modified:
   trunk/lib/Parrot/OpTrans/C.pm

Modified: trunk/lib/Parrot/OpTrans/C.pm
==============================================================================
--- trunk/lib/Parrot/OpTrans/C.pm	Mon Mar 29 15:52:25 2010	(r45279)
+++ trunk/lib/Parrot/OpTrans/C.pm	Mon Mar 29 16:04:48 2010	(r45280)
@@ -1,4 +1,4 @@
-# Copyright (C) 2002-2006, Parrot Foundation.
+# Copyright (C) 2002-2010, Parrot Foundation.
 # $Id$
 
 =head1 NAME
@@ -68,7 +68,7 @@
 
 sub add_body_prelude {
     my ($self) = @_;
-    return "    Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);\n";
+    return "    const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);\n";
 }
 
 =item C<gen_goto($where)>