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

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Jun  2 10:13:13 2010
New Revision: 47291
URL: https://trac.parrot.org/parrot/changeset/47291

Log:
Yay! Final fix for TMS.is_pmc_ptr to properly find all roots!

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	Wed Jun  2 09:56:56 2010	(r47290)
+++ branches/gc_massacre/src/gc/gc_tms.c	Wed Jun  2 10:13:13 2010	(r47291)
@@ -808,8 +808,9 @@
 {
     ASSERT_ARGS(gc_tms_is_pmc_ptr)
     TriColor_GC      *self = (TriColor_GC *)interp->gc_sys->gc_private;
-    List_Item_Header *item = (List_Item_Header *)ptr;
-    if (!ptr || !Obj2LLH(ptr))
+    List_Item_Header *item = Obj2LLH(ptr);
+    PMC              *pmc  = (PMC *)ptr;
+    if (!ptr || !item)
         return 0;
     if (!Parrot_gc_pool_is_owned(self->pmc_allocator, Obj2LLH(ptr)))
         return 0;