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

* gc.c (scm_gc_sweep): Call struct free slot.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-06-23 11:15:58 +00:00
parent 3f737ec81d
commit f0cb1733dd
1 changed files with 3 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/gc.c
View file

@ -1115,20 +1115,9 @@ scm_gc_sweep ()
if ((SCM_CDR (vcell) == 0) || (SCM_CDR (vcell) == 1))
{
SCM *p = (SCM *) SCM_GCCDR (scmptr);
if (((SCM*) vcell)[scm_struct_i_flags]
& SCM_STRUCTF_LIGHT)
{
SCM layout = ((SCM*)vcell)[scm_vtable_index_layout];
m += (SCM_LENGTH (layout) / 2) * sizeof (SCM);
free ((char *) p);
}
else
{
m += p[scm_struct_i_n_words] * sizeof (SCM) + 7;
/* I feel like I'm programming in BCPL here... */
free ((char *) p[scm_struct_i_ptr]);
}
scm_struct_free_t free
= (scm_struct_free_t) ((SCM*) vcell)[scm_struct_i_free];
m += free ((SCM *) vcell, (SCM *) SCM_GCCDR (scmptr));
}
}
break;