mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

(sweep_card): use SCM_GC_SET_CELL_WORD for setting

Browse source 
free cells.
This commit is contained in:
Han-Wen Nienhuys 2004-03-18 00:19:52 +00:00
parent e1350d6afa
commit 726f82e747
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2004-03-18 Han-Wen Nienhuys <hanwen@xs4all.nl>
* gc-card.c (sweep_card): use SCM_GC_SET_CELL_WORD for setting
free cells.
2004-03-14 Kevin Ryde <user42@zip.com.au>
* stime.c: Define _GNU_SOURCE for strptime prototype from glibc.

5
libguile/gc-card.c
View file

@ -291,8 +291,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
abort();
}
SCM_SET_CELL_TYPE (scmptr, scm_tc_free_cell);
SCM_GC_SET_CELL_WORD (scmptr, 0, scm_tc_free_cell);
SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (*free_list));
*free_list = scmptr;
free_count ++;
@ -327,7 +326,7 @@ scm_i_init_card_freelist (scm_t_cell * card, SCM *free_list,
for (; p > card; p -= span)
{
const SCM scmptr = PTR2SCM (p);
SCM_SET_CELL_TYPE (scmptr, scm_tc_free_cell);
SCM_GC_SET_CELL_WORD (scmptr, 0, scm_tc_free_cell);
SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (*free_list));
*free_list = scmptr;
}