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

[cotto at svn.parrot.org]

Author: cotto
Date: Wed Feb 11 23:18:49 2009
New Revision: 36603
URL: https://trac.parrot.org/parrot/changeset/36603

Log:
[gc] change all occurances of "high_priorty_DOD" to "high_priorty_gc"

Modified:
   trunk/include/parrot/pobj.h
   trunk/src/gc/generational_ms.c
   trunk/src/gc/mark_sweep.c
   trunk/src/packdump.c

Modified: trunk/include/parrot/pobj.h
==============================================================================
--- trunk/include/parrot/pobj.h	Wed Feb 11 23:14:49 2009	(r36602)
+++ trunk/include/parrot/pobj.h	Wed Feb 11 23:18:49 2009	(r36603)
@@ -269,7 +269,7 @@
     b_PObj_is_special_PMC_FLAG  = POBJ_FLAG(26),
 
     /* true if this is connected by some route to a needs_early_gc object */
-    PObj_high_priority_DOD_FLAG = POBJ_FLAG(27),
+    PObj_high_priority_gc_FLAG  = POBJ_FLAG(27),
     PObj_needs_early_gc_FLAG    = (POBJ_FLAG(27) | POBJ_FLAG(28)),
 
     /* True if the PMC is a class */
@@ -368,9 +368,9 @@
 #define PObj_needs_early_gc_SET(o) PObj_special_SET(needs_early_gc, o)
 #define PObj_needs_early_gc_CLEAR(o) PObj_special_CLEAR(needs_early_gc, o)
 
-#define PObj_high_priority_DOD_TEST(o)   PObj_flag_TEST(high_priority_DOD, o)
-#define PObj_high_priority_DOD_SET(o)     PObj_special_SET(high_priority_DOD, o)
-#define PObj_high_priority_DOD_CLEAR(o) PObj_special_CLEAR(high_priority_DOD, o)
+#define PObj_high_priority_gc_TEST(o)   PObj_flag_TEST(high_priority_gc, o)
+#define PObj_high_priority_gc_SET(o)     PObj_special_SET(high_priority_gc, o)
+#define PObj_high_priority_gc_CLEAR(o) PObj_special_CLEAR(high_priority_gc, o)
 
 #define PObj_custom_mark_SET(o)   PObj_special_SET(custom_mark, o)
 #define PObj_custom_mark_CLEAR(o)   PObj_special_CLEAR(custom_mark, o)

Modified: trunk/src/gc/generational_ms.c
==============================================================================
--- trunk/src/gc/generational_ms.c	Wed Feb 11 23:14:49 2009	(r36602)
+++ trunk/src/gc/generational_ms.c	Wed Feb 11 23:18:49 2009	(r36603)
@@ -1612,7 +1612,7 @@
         /* TODO propagate flag in pobject_lives */
         arena_base->gc_trace_ptr = current;
         if (!PObj_needs_early_gc_TEST(current))
-            PObj_high_priority_DOD_CLEAR(current);
+            PObj_high_priority_gc_CLEAR(current);
 
         /* mark children */
         if (PObj_custom_mark_TEST(current)) {

Modified: trunk/src/gc/mark_sweep.c
==============================================================================
--- trunk/src/gc/mark_sweep.c	Wed Feb 11 23:14:49 2009	(r36602)
+++ trunk/src/gc/mark_sweep.c	Wed Feb 11 23:18:49 2009	(r36603)
@@ -626,9 +626,9 @@
     if (PObj_needs_early_gc_TEST(obj))
         ++arena_base->num_early_PMCs_seen;
 
-    if (PObj_high_priority_DOD_TEST(obj) && arena_base->gc_trace_ptr) {
+    if (PObj_high_priority_gc_TEST(obj) && arena_base->gc_trace_ptr) {
         /* set obj's parent to high priority */
-        PObj_high_priority_DOD_SET(arena_base->gc_trace_ptr);
+        PObj_high_priority_gc_SET(arena_base->gc_trace_ptr);
         hi_prio = 1;
     }
     else
@@ -986,7 +986,7 @@
 
         /* clearing the flag is much more expensive then testing */
         if (!PObj_needs_early_gc_TEST(current))
-            PObj_high_priority_DOD_CLEAR(current);
+            PObj_high_priority_gc_CLEAR(current);
 
         /* mark properties */
         if (PMC_metadata(current))

Modified: trunk/src/packdump.c
==============================================================================
--- trunk/src/packdump.c	Wed Feb 11 23:14:49 2009	(r36602)
+++ trunk/src/packdump.c	Wed Feb 11 23:18:49 2009	(r36603)
@@ -113,7 +113,7 @@
     "data_is_PMC_array",
     "need_finalize",
     "is_special_PMC",
-    "high_priority_DOD",
+    "high_priority_gc",
     "needs_early_gc",
     "is_class",
     "is_object"