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

* gc.c (scm_gc_mark): Mark 1 procedure slot in entities instead of

Browse source 
4.
This commit is contained in:
Mikael Djurfeldt 1999-08-29 03:26:21 +00:00
parent 195847fa2a
commit 73e10adf20
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/gc.c
View file

@ -665,10 +665,7 @@ gc_mark_nimp:
if (vtable_data[scm_struct_i_flags] & SCM_STRUCTF_ENTITY) 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_procedure]);
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]);
scm_gc_mark (mem[scm_struct_i_setter]); scm_gc_mark (mem[scm_struct_i_setter]);
} }
if (len) if (len)