[svn:parrot] r38039 - in trunk: compilers/pirc/src include/parrot

cotto at svn.parrot.org cotto at svn.parrot.org
Fri Apr 10 22:15:41 UTC 2009


Author: cotto
Date: Fri Apr 10 22:15:40 2009
New Revision: 38039
URL: https://trac.parrot.org/parrot/changeset/38039

Log:
[PMC] PMC_str_val is history

Modified:
   trunk/compilers/pirc/src/bcgen.c
   trunk/include/parrot/pobj.h

Modified: trunk/compilers/pirc/src/bcgen.c
==============================================================================
--- trunk/compilers/pirc/src/bcgen.c	Fri Apr 10 22:12:37 2009	(r38038)
+++ trunk/compilers/pirc/src/bcgen.c	Fri Apr 10 22:15:40 2009	(r38039)
@@ -10,6 +10,7 @@
 
 #include "parrot/interpreter.h"
 #include "../../../src/pmc/pmc_sub.h"
+#include "../../../src/pmc/pmc_namespace.h"
 
 /* #include "parrot/embed.h" */
 
@@ -988,8 +989,9 @@
 
     switch (ns->entry_type) {
         case MULTI_TYPE_IDENT: {
-            PMC *namespace_pmc         = constant_pmc_new(bc->interp, enum_class_String);
-            PMC_str_val(namespace_pmc) = add_string_const_from_cstring(bc, ns->entry.ident);
+            PMC *namespace_pmc = constant_pmc_new(bc->interp, enum_class_String);
+            PARROT_NAMESPACE(namespace_pmc)->name = 
+                add_string_const_from_cstring(bc, ns->entry.ident);
             break;
         }
         case MULTI_TYPE_KEYED:

Modified: trunk/include/parrot/pobj.h
==============================================================================
--- trunk/include/parrot/pobj.h	Fri Apr 10 22:12:37 2009	(r38038)
+++ trunk/include/parrot/pobj.h	Fri Apr 10 22:15:40 2009	(r38039)
@@ -57,7 +57,6 @@
 #define PObj_buflen(pmc)      (pmc)->cache._b._buflen
 #define PMC_struct_val(pmc)   (pmc)->cache._ptrs._struct_val
 #define PMC_int_val(pmc)      (pmc)->cache._i._int_val
-#define PMC_str_val(pmc)      (pmc)->cache._string_val
 
 /* See src/gc/resources.c. the basic idea is that buffer memory is
    set up as follows:


More information about the parrot-commits mailing list