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

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May 31 11:41:38 2010
New Revision: 47211
URL: https://trac.parrot.org/parrot/changeset/47211

Log:
More checks of pointer in is_pmc_ptr.

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 11:41:04 2010	(r47210)
+++ branches/gc_massacre/src/gc/gc_tms.c	Mon May 31 11:41:38 2010	(r47211)
@@ -734,7 +734,7 @@
 {
     ASSERT_ARGS(gc_tms_is_pmc_ptr)
     TriColor_GC      *self = (TriColor_GC *)interp->gc_sys->gc_private;
-    if (!ptr)
+    if (!ptr || !Obj2LLH(ptr))
         return 0;
     return Parrot_gc_pool_is_owned(self->pmc_allocator, Obj2LLH(ptr));
 }