[svn:parrot] r29831 - in branches/gsoc_pdd09/src: . gc

[Whiteknight]

Author: Whiteknight
Date: Mon Jul 28 13:49:57 2008
New Revision: 29831

Modified:
   branches/gsoc_pdd09/src/gc/gc_it.c
   branches/gsoc_pdd09/src/headers.c

Log:
[gsoc_pdd09] small whitespace fix and rearranging some stuff for debugging

Modified: branches/gsoc_pdd09/src/gc/gc_it.c
==============================================================================
--- branches/gsoc_pdd09/src/gc/gc_it.c  (original)
+++ branches/gsoc_pdd09/src/gc/gc_it.c  Mon Jul 28 13:49:57 2008
@@ -413,7 +413,10 @@
 
 =item C<static void gc_it_sweep_pmc_pools>
 
-Sweep through the PMC pools, freeing dead objects.
+Sweeps through pools that are not part of the sized header pools, such as the
+string header pool and the PMC pool. Does not sweep through related pools,
+such as the constant string header pool or the constant PMC pool because those
+should not be swept. Frees dead objects and returns them to the pool free 
lists.
 
 =cut
 
@@ -427,7 +430,8 @@
 
     if (gc_priv_data->queue)
         gc_it_trace(interp);
-    gc_it_sweep_PMC_arenas(interp, gc_priv_data, arena_base->pmc_pool);
+    //gc_it_sweep_PMC_arenas(interp, gc_priv_data, arena_base->pmc_pool);
+    gc_it_sweep_header_arenas(interp, gc_priv_data, 
arena_base->string_header_pool);
 }
 
 

Modified: branches/gsoc_pdd09/src/headers.c
==============================================================================
--- branches/gsoc_pdd09/src/headers.c   (original)
+++ branches/gsoc_pdd09/src/headers.c   Mon Jul 28 13:49:57 2008
@@ -108,7 +108,7 @@
 
     if (pool->object_size - GC_HEADER_SIZE > sizeof (PObj))
         memset(buffer + 1, 0,
-                pool->object_size - sizeof (PObj) - GC_HEADER_SIZE);
+               pool->object_size - sizeof (PObj) - GC_HEADER_SIZE);
     return buffer;
 }