[svn:parrot] r44051 - trunk/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Feb 16 21:33:42 2010
New Revision: 44051
URL: https://trac.parrot.org/parrot/changeset/44051

Log:
Unconsting strings in OpLib/OpCode. Fix c++ build

Modified:
   trunk/src/pmc/opcode.pmc
   trunk/src/pmc/oplib.pmc

Modified: trunk/src/pmc/opcode.pmc
==============================================================================
--- trunk/src/pmc/opcode.pmc	Tue Feb 16 21:20:53 2010	(r44050)
+++ trunk/src/pmc/opcode.pmc	Tue Feb 16 21:33:42 2010	(r44051)
@@ -25,7 +25,7 @@
     }
 
     VTABLE void set_string_native(STRING *name) {
-        const char * const cstr = Parrot_str_to_cstring(INTERP, name);
+        char * cstr = Parrot_str_to_cstring(INTERP, name);
         const INTVAL num = INTERP->op_lib->op_code(cstr, 1);
         Parrot_str_free_cstring(cstr);
         if (num == -1)

Modified: trunk/src/pmc/oplib.pmc
==============================================================================
--- trunk/src/pmc/oplib.pmc	Tue Feb 16 21:20:53 2010	(r44050)
+++ trunk/src/pmc/oplib.pmc	Tue Feb 16 21:33:42 2010	(r44051)
@@ -21,7 +21,7 @@
     /* Look up an opnumber given the name of the op. First we look for the
        specific name, then the more general short name. */
     VTABLE INTVAL get_integer_keyed_str(STRING *name) {
-        const char * const cstr = Parrot_str_to_cstring(INTERP, name);
+        char * cstr = Parrot_str_to_cstring(INTERP, name);
         INTVAL num = INTERP->op_lib->op_code(cstr, 1);
         if (num == -1)
             num = INTERP->op_lib->op_code(cstr, 0);