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

* gc.c (scm_gc_mark): Mark entity procedures.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-12-16 08:06:11 +00:00
parent afdfe3f41a
commit aa0761ec4f
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/gc.c
View file

@ -639,6 +639,13 @@ gc_mark_nimp:
that it removes the mark */ that it removes the mark */
mem = (SCM *)SCM_GCCDR (ptr); mem = (SCM *)SCM_GCCDR (ptr);
if (vtable_data[scm_struct_i_flags] & SCM_STRUCTF_ENTITY)
{
scm_gc_mark (mem[scm_struct_i_proc + 0]);
scm_gc_mark (mem[scm_struct_i_proc + 1]);
scm_gc_mark (mem[scm_struct_i_proc + 2]);
scm_gc_mark (mem[scm_struct_i_proc + 3]);
}
if (len) if (len)
{ {
for (x = 0; x < len - 2; x += 2, ++mem) for (x = 0; x < len - 2; x += 2, ++mem)