mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

(scm_i_sweep_card): Do not increase/decrease scm_gc_running_p.

Browse source 
Sweeping can happen in parallel with allocation.
This commit is contained in:
Marius Vollmer 2005-03-09 19:17:19 +00:00
parent b2a339f6e5
commit 443840184b
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/gc-card.c
View file

@ -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 offset =SCM_MAX (SCM_GC_CARD_N_HEADER_CELLS, span);
int free_count = 0; int free_count = 0;
++ scm_gc_running_p;
/* /*
I tried something fancy with shifting by one bit every word from 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 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 ++; free_count ++;
} }
--scm_gc_running_p;
return free_count; return free_count;
} }
#undef FUNC_NAME #undef FUNC_NAME