[svn:parrot] r45901 - branches/string_consting/src

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Apr 22 11:33:44 2010
New Revision: 45901
URL: https://trac.parrot.org/parrot/changeset/45901

Log:
Consting PBC_backtrace

Modified:
   branches/string_consting/src/debug.c

Modified: branches/string_consting/src/debug.c
==============================================================================
--- branches/string_consting/src/debug.c	Thu Apr 22 11:33:32 2010	(r45900)
+++ branches/string_consting/src/debug.c	Thu Apr 22 11:33:44 2010	(r45901)
@@ -3245,7 +3245,7 @@
                     PMC *pline = VTABLE_get_pmc_keyed_str(interp, annot,
                             Parrot_str_new_constant(interp, "line"));
                     if ((!PMC_IS_NULL(pfile)) && (!PMC_IS_NULL(pline))) {
-                        STRING *file = VTABLE_get_string(interp, pfile);
+                        const STRING *file = VTABLE_get_string(interp, pfile);
                         INTVAL line = VTABLE_get_integer(interp, pline);
                         Parrot_io_eprintf(interp, " (%Ss:%li)", file, (long)line);
                     }
@@ -3313,7 +3313,7 @@
                     PMC *pline = VTABLE_get_pmc_keyed_str(interp, annot,
                             Parrot_str_new_constant(interp, "line"));
                     if ((!PMC_IS_NULL(pfile)) && (!PMC_IS_NULL(pline))) {
-                        STRING *file = VTABLE_get_string(interp, pfile);
+                        const STRING *file = VTABLE_get_string(interp, pfile);
                         INTVAL line = VTABLE_get_integer(interp, pline);
                         Parrot_io_eprintf(interp, " (%Ss:%li)", file, (long)line);
                     }