From 443840184b38dbf1223e2bc09e565aaa901a1564 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 9 Mar 2005 19:17:19 +0000 Subject: [PATCH] (scm_i_sweep_card): Do not increase/decrease scm_gc_running_p. Sweeping can happen in parallel with allocation. --- libguile/gc-card.c | 3 --- 1 file changed, 3 deletions(-) diff --git a/libguile/gc-card.c b/libguile/gc-card.c index 421df620d..3fe6e3c40 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -91,8 +91,6 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) int offset =SCM_MAX (SCM_GC_CARD_N_HEADER_CELLS, span); int free_count = 0; - ++ scm_gc_running_p; - /* I tried something fancy with shifting by one bit every word from the bitvec in turn, but it wasn't any faster, but quite a bit @@ -263,7 +261,6 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) free_count ++; } - --scm_gc_running_p; return free_count; } #undef FUNC_NAME