diff options
| author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2006-01-18 10:17:30 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2006-01-18 10:17:30 +0000 |
| commit | 2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd (patch) | |
| tree | 7eb8585134ed0353c36bc3190364faced8afe252 | |
| parent | 27d64e2b4a082e58338bb99f4e756469d857a70d (diff) | |
| download | guile-2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd.tar.gz | |
("sweep_card"): don't count scm_tc_free_cell for
free_count.
| -rw-r--r-- | libguile/ChangeLog | 5 | ||||
| -rw-r--r-- | libguile/gc-card.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 482263449..e7f6572a3 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -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> * regex-posix.c (s_scm_regexp_exec): list the offending pattern diff --git a/libguile/gc-card.c b/libguile/gc-card.c index b97989916..9fad48416 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -215,6 +215,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) switch SCM_TYP16 (scmptr) { case scm_tc_free_cell: + free_count --; break; default: { |