[svn:parrot] r47199 - branches/gc_massacre/src/gc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May 31 10:17:20 2010
New Revision: 47199
URL: https://trac.parrot.org/parrot/changeset/47199

Log:
Skip marking of 'constant' objects

Modified:
   branches/gc_massacre/src/gc/gc_tms.c

Modified: branches/gc_massacre/src/gc/gc_tms.c
==============================================================================
--- branches/gc_massacre/src/gc/gc_tms.c	Mon May 31 10:16:56 2010	(r47198)
+++ branches/gc_massacre/src/gc/gc_tms.c	Mon May 31 10:17:20 2010	(r47199)
@@ -641,6 +641,9 @@
     List_Item_Header *item = Obj2LLH(pmc);
     if (PObj_is_live_or_free_TESTALL(pmc))
         return;
+    /* "constant" objects aren't managed by GC at all. */
+    if (PObj_constant_TEST(pmc))
+        return;
     Parrot_gc_list_remove(interp, self->dead_objects, item);
     Parrot_gc_list_append(interp, self->grey_objects, item);
 }