[svn:parrot] r47266 - branches/gc_massacre_no_constant/src

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Jun  1 20:56:37 2010
New Revision: 47266
URL: https://trac.parrot.org/parrot/changeset/47266

Log:
Get rid of pmc_new_constants usage in HLL related stuff. We mark it Parrot_gc_trace_roots anyway.

Modified:
   branches/gc_massacre_no_constant/src/hll.c

Modified: branches/gc_massacre_no_constant/src/hll.c
==============================================================================
--- branches/gc_massacre_no_constant/src/hll.c	Tue Jun  1 20:49:16 2010	(r47265)
+++ branches/gc_massacre_no_constant/src/hll.c	Tue Jun  1 20:56:37 2010	(r47266)
@@ -78,7 +78,7 @@
 
     PMC *entry_id;
 
-    PMC * const entry = Parrot_pmc_new_constant_init_int(interp,
+    PMC * const entry = Parrot_pmc_new_init_int(interp,
             enum_class_FixedPMCArray, e_HLL_MAX);
 
     if (entry_name && !STRING_IS_EMPTY(entry_name)) {
@@ -87,7 +87,7 @@
     else
         VTABLE_push_pmc(interp, hll_info, entry);
 
-    entry_id = Parrot_pmc_new_constant_init_int(interp, enum_class_Integer, id);
+    entry_id = Parrot_pmc_new_init_int(interp, enum_class_Integer, id);
     VTABLE_set_pmc_keyed_int(interp, entry, e_HLL_id, entry_id);
 
     return entry;
@@ -112,7 +112,7 @@
     interp->HLL_info      =
         Parrot_pmc_new(interp, enum_class_OrderedHash);
     interp->HLL_namespace =
-        Parrot_pmc_new_constant(interp, enum_class_ResizablePMCArray);
+        Parrot_pmc_new(interp, enum_class_ResizablePMCArray);
 
     Parrot_register_HLL(interp, CONST_STRING(interp, "parrot"));
 }
@@ -154,7 +154,7 @@
     entry    = new_hll_entry(interp, hll_name);
 
     /* register HLL name */
-    name     = Parrot_pmc_new_constant(interp, enum_class_String);
+    name     = Parrot_pmc_new(interp, enum_class_String);
 
     VTABLE_set_string_native(interp, name, hll_name);
     VTABLE_set_pmc_keyed_int(interp, entry, e_HLL_name, name);
@@ -174,7 +174,7 @@
     VTABLE_set_pmc_keyed_int(interp, interp->HLL_namespace, idx, ns_hash);
 
     /* create HLL typemap hash */
-    type_hash = Parrot_pmc_new_constant(interp, enum_class_Hash);
+    type_hash = Parrot_pmc_new(interp, enum_class_Hash);
     VTABLE_set_pointer(interp, type_hash, parrot_new_intval_hash(interp));
     VTABLE_set_pmc_keyed_int(interp, entry, e_HLL_typemap, type_hash);
 
@@ -223,7 +223,7 @@
         VTABLE_set_pmc_keyed_int(interp, new_entry, e_HLL_name, PMCNULL);
 
         /* register dynlib */
-        name    = Parrot_pmc_new_constant(interp, enum_class_String);
+        name    = Parrot_pmc_new(interp, enum_class_String);
 
         VTABLE_set_string_native(interp, name, hll_lib);
         VTABLE_set_pmc_keyed_int(interp, new_entry, e_HLL_lib, name);