[svn:parrot] r36600 - in trunk: include/parrot src src/gc

[cotto at svn.parrot.org]

Author: cotto
Date: Wed Feb 11 22:19:21 2009
New Revision: 36600
URL: https://trac.parrot.org/parrot/changeset/36600

Log:
[gc] change interp->DOD_registry to gc_registry

Modified:
   trunk/include/parrot/interpreter.h
   trunk/src/gc/mark_sweep.c
   trunk/src/inter_create.c
   trunk/src/pmc.c

Modified: trunk/include/parrot/interpreter.h
==============================================================================
--- trunk/include/parrot/interpreter.h	Wed Feb 11 22:14:01 2009	(r36599)
+++ trunk/include/parrot/interpreter.h	Wed Feb 11 22:19:21 2009	(r36600)
@@ -382,7 +382,7 @@
     /* 8:   PMC *PBC_Libs                Hash of load_bytecode cde */
     /* 9:   PMC *Executable              String PMC with name from argv[0]. */
 
-    PMC *DOD_registry;                        /* root set of registered PMCs */
+    PMC *gc_registry;                         /* root set of registered PMCs */
 
     PMC *HLL_info;                            /* HLL names and types */
     PMC *HLL_namespace;                       /* cache of HLL toplevel ns */

Modified: trunk/src/gc/mark_sweep.c
==============================================================================
--- trunk/src/gc/mark_sweep.c	Wed Feb 11 22:14:01 2009	(r36599)
+++ trunk/src/gc/mark_sweep.c	Wed Feb 11 22:19:21 2009	(r36600)
@@ -341,8 +341,8 @@
     pobject_lives(interp, (PObj *)interp->class_hash);
 
     /* Mark the registry */
-    PARROT_ASSERT(interp->DOD_registry);
-    pobject_lives(interp, (PObj *)interp->DOD_registry);
+    PARROT_ASSERT(interp->gc_registry);
+    pobject_lives(interp, (PObj *)interp->gc_registry);
 
     /* Mark the MMD cache. */
     if (interp->op_mmd_cache)

Modified: trunk/src/inter_create.c
==============================================================================
--- trunk/src/inter_create.c	Wed Feb 11 22:14:01 2009	(r36599)
+++ trunk/src/inter_create.c	Wed Feb 11 22:19:21 2009	(r36600)
@@ -232,7 +232,7 @@
     interp->profile         = NULL;
 
     /* create the root set registry */
-    interp->DOD_registry    = pmc_new(interp, enum_class_AddrRegistry);
+    interp->gc_registry     = pmc_new(interp, enum_class_AddrRegistry);
 
     /* create exceptions list */
     interp->current_runloop_id    = 0;

Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c	Wed Feb 11 22:14:01 2009	(r36599)
+++ trunk/src/pmc.c	Wed Feb 11 22:19:21 2009	(r36600)
@@ -769,9 +769,9 @@
     /* Better not trigger a DOD run with a potentially unanchored PMC */
     Parrot_block_GC_mark(interp);
 
-    PARROT_ASSERT(interp->DOD_registry);
+    PARROT_ASSERT(interp->gc_registry);
 
-    VTABLE_set_pmc_keyed(interp, interp->DOD_registry, pmc, PMCNULL);
+    VTABLE_set_pmc_keyed(interp, interp->gc_registry, pmc, PMCNULL);
     Parrot_unblock_GC_mark(interp);
 }
 
@@ -790,9 +790,9 @@
 gc_unregister_pmc(PARROT_INTERP, ARGIN(PMC *pmc))
 {
     ASSERT_ARGS(gc_unregister_pmc)
-    PARROT_ASSERT(interp->DOD_registry);
+    PARROT_ASSERT(interp->gc_registry);
 
-    VTABLE_delete_keyed(interp, interp->DOD_registry, pmc);
+    VTABLE_delete_keyed(interp, interp->gc_registry, pmc);
 }