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

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May 31 23:42:12 2010
New Revision: 47242
URL: https://trac.parrot.org/parrot/changeset/47242

Log:
Don't mark constant PObj

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 23:41:40 2010	(r47241)
+++ branches/gc_massacre/src/gc/gc_tms.c	Mon May 31 23:42:12 2010	(r47242)
@@ -807,7 +807,7 @@
 gc_tms_mark_pobj_header(PARROT_INTERP, ARGIN_NULLOK(PObj * obj))
 {
     ASSERT_ARGS(gc_tms_mark_pobj_header)
-    if (obj) {
+    if (obj && !PObj_constant_TEST(obj)) {
         if (PObj_is_PMC_TEST(obj))
             gc_tms_mark_pmc_header(interp, (PMC *)obj);
         else