[svn:parrot] r37061 - trunk/src

[cotto at svn.parrot.org]

Author: cotto
Date: Sun Mar  1 12:40:57 2009
New Revision: 37061
URL: https://trac.parrot.org/parrot/changeset/37061

Log:
[PMC] remove a couple more PMC_str_val instances

Modified:
   trunk/src/packdump.c
   trunk/src/packout.c

Modified: trunk/src/packdump.c
==============================================================================
--- trunk/src/packdump.c	Sun Mar  1 10:36:30 2009	(r37060)
+++ trunk/src/packdump.c	Sun Mar  1 12:40:57 2009	(r37061)
@@ -297,7 +297,7 @@
                                 namespace_description = Parrot_str_new(interp, "'", 1);
                                 namespace_description = Parrot_str_append(interp,
                                         namespace_description,
-                                        PMC_str_val(sub->namespace_name));
+                                        VTABLE_get_string(interp, sub->namespace_name));
                                 namespace_description = Parrot_str_append(interp,
                                         namespace_description,
                                         Parrot_str_new(interp, "'", 1));

Modified: trunk/src/packout.c
==============================================================================
--- trunk/src/packout.c	Sun Mar  1 10:36:30 2009	(r37060)
+++ trunk/src/packout.c	Sun Mar  1 12:40:57 2009	(r37061)
@@ -220,8 +220,8 @@
     ASSERT_ARGS(PackFile_find_in_const)
     int i;
     for (i = 0; i < ct->const_count; i++)
-        if (type == PFC_STRING && ct->constants[i]->u.string ==
-            PMC_str_val(key))
+        if (type == PFC_STRING && Parrot_str_equal(interp,
+                    ct->constants[i]->u.string, VTABLE_get_string(interp, key)))
             return i;
         else if (type == PFC_NUMBER && ct->constants[i]->u.number ==
                  VTABLE_get_integer(interp, key))