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

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Jun  3 10:33:15 2010
New Revision: 47334
URL: https://trac.parrot.org/parrot/changeset/47334

Log:
Reimplement TMS.free_pmc_header.

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	Thu Jun  3 10:32:37 2010	(r47333)
+++ branches/gc_massacre/src/gc/gc_tms.c	Thu Jun  3 10:33:15 2010	(r47334)
@@ -615,17 +615,14 @@
 gc_tms_free_pmc_header(PARROT_INTERP, ARGFREE(PMC *pmc))
 {
     ASSERT_ARGS(gc_tms_free_pmc_header)
-    /*
-    XXX Remove it from @objects.
     TriColor_GC *self = (TriColor_GC *)interp->gc_sys->gc_private;
     if (pmc) {
         if (PObj_on_free_list_TEST(pmc))
             return;
-        Parrot_gc_pool_free(self->pmc_allocator, Obj2LLH(pmc));
-        PObj_on_free_list_SET(pmc);
         Parrot_gc_list_remove(interp, self->objects, Obj2LLH(pmc));
+        PObj_on_free_list_SET(pmc);
+        Parrot_gc_pool_free(self->pmc_allocator, Obj2LLH(pmc));
     }
-    */
 }
 
 static void