develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r34949 - branches/pdd09gc_part1/src/gc

From:
Whiteknight
Date:
January 4, 2009 16:11
Subject:
[svn:parrot] r34949 - branches/pdd09gc_part1/src/gc
Message ID:
20090105001144.BBF96CB9F9@x12.develooper.com
Author: Whiteknight
Date: Sun Jan  4 16:11:43 2009
New Revision: 34949

Modified:
   branches/pdd09gc_part1/src/gc/dod.c

Log:
[pdd09gc_part01] pulled out some stuff that I don't support like PMC_next_for_GC and dod_trace_ptr, which can be dealt with later

Modified: branches/pdd09gc_part1/src/gc/dod.c
==============================================================================
--- branches/pdd09gc_part1/src/gc/dod.c	(original)
+++ branches/pdd09gc_part1/src/gc/dod.c	Sun Jan  4 16:11:43 2009
@@ -94,6 +94,7 @@
     if (PObj_needs_early_DOD_TEST(obj))
         ++arena_base->num_early_PMCs_seen;
 
+#if 0
     if (PObj_high_priority_DOD_TEST(obj) && arena_base->dod_trace_ptr) {
         /* set obj's parent to high priority */
         PObj_high_priority_DOD_SET(arena_base->dod_trace_ptr);
@@ -136,7 +137,8 @@
             arena_base->dod_mark_ptr = PMC_next_for_GC(obj) = obj;
         }
     }
-    else if (PObj_custom_mark_TEST(obj)) {
+#endif
+    /* else */ if (PObj_custom_mark_TEST(obj)) {
         PObj_get_FLAGS(obj) |= PObj_custom_GC_FLAG;
         VTABLE_mark(interp, obj);
     }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About