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

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Sep 20 10:59:47 2010
New Revision: 49174
URL: https://trac.parrot.org/parrot/changeset/49174

Log:
Use block/unblock GC sweep instead of mark in compact_pool which is semantically more correct.

Modified:
   branches/gc_massacre/src/gc/string_gc.c

Modified: branches/gc_massacre/src/gc/string_gc.c
==============================================================================
--- branches/gc_massacre/src/gc/string_gc.c	Mon Sep 20 10:59:20 2010	(r49173)
+++ branches/gc_massacre/src/gc/string_gc.c	Mon Sep 20 10:59:47 2010	(r49174)
@@ -821,10 +821,10 @@
 
 
     /* Bail if we're blocked */
-    if (Parrot_is_blocked_GC_mark(interp))
+    if (Parrot_is_blocked_GC_sweep(interp))
         return;
 
-    Parrot_block_GC_mark(interp);
+    Parrot_block_GC_sweep(interp);
 
     /* We're collecting */
     stats->mem_allocs_since_last_collect    = 0;
@@ -836,7 +836,7 @@
 
     if (total_size == 0) {
         free_old_mem_blocks(stats, pool, pool->top_block, total_size);
-        Parrot_unblock_GC_mark(interp);
+        Parrot_unblock_GC_sweep(interp);
         return;
     }
 
@@ -866,7 +866,7 @@
 
     free_old_mem_blocks(stats, pool, cb_data.new_block, total_size);
 
-    Parrot_unblock_GC_mark(interp);
+    Parrot_unblock_GC_sweep(interp);
 }
 
 /*