mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

new gc

Browse source
This commit is contained in:
Han-Wen Nienhuys 2002-08-04 00:17:18 +00:00
parent c3164ca85e
commit c8a1bdc460
19 changed files with 796 additions and 2287 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/struct.c
View file

@ -378,7 +378,7 @@ scm_free_structs (void *dummy1 SCM_UNUSED,
{
SCM vtable = SCM_STRUCT_VTABLE (chain);
if (SCM_STRUCT_GC_CHAIN (vtable) != 0 && vtable != chain)
SCM_SETGCMARK (vtable);
SCM_SET_GC_MARK (vtable);
chain = SCM_STRUCT_GC_CHAIN (chain);
}
/* Free unmarked structs. */
@ -388,9 +388,9 @@ scm_free_structs (void *dummy1 SCM_UNUSED,
{
SCM obj = chain;
chain = SCM_STRUCT_GC_CHAIN (chain);
if (SCM_GCMARKP (obj))
if (SCM_GC_MARK_P (obj))
{
SCM_CLRGCMARK (obj);
SCM_CLEAR_GC_MARK (obj);
SCM_SET_STRUCT_GC_CHAIN (obj, newchain);
newchain = obj;
}