mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

("sweep_card"): don't count scm_tc_free_cell for

Browse source 
free_count.
This commit is contained in:
Han-Wen Nienhuys 2006-01-18 10:17:30 +00:00
parent 27d64e2b4a
commit 2ca2ffe6b2
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2006-01-18 Han-Wen Nienhuys <hanwen@xs4all.nl>
* gc-card.c ("sweep_card"): don't count scm_tc_free_cell for
free_count.
2005-11-29 Han-Wen Nienhuys <hanwen@xs4all.nl> 2005-11-29 Han-Wen Nienhuys <hanwen@xs4all.nl>
* regex-posix.c (s_scm_regexp_exec): list the offending pattern * regex-posix.c (s_scm_regexp_exec): list the offending pattern

1
libguile/gc-card.c
View file

@ -215,6 +215,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
switch SCM_TYP16 (scmptr) switch SCM_TYP16 (scmptr)
{ {
case scm_tc_free_cell: case scm_tc_free_cell:
free_count --;
break; break;
default: default:
{ {