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

* struct.c (scm_make_struct): Allocate one word more for

Browse source 
entities and initialize the new slot.
This commit is contained in:
Mikael Djurfeldt 1999-03-11 11:47:49 +00:00
parent 64c4580bd8
commit 25c9482661
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/struct.c
View file

@ -358,12 +358,13 @@ scm_make_struct (vtable, tail_array_size, init)
if (SCM_STRUCT_DATA (vtable)[scm_struct_i_flags] & SCM_STRUCTF_ENTITY) if (SCM_STRUCT_DATA (vtable)[scm_struct_i_flags] & SCM_STRUCTF_ENTITY)
{ {
data = scm_alloc_struct (basic_size + tail_elts, data = scm_alloc_struct (basic_size + tail_elts,
scm_struct_n_extra_words + 4, scm_struct_n_extra_words + 5,
"make-struct"); "make-struct");
data[scm_struct_i_proc + 0] = SCM_BOOL_F; data[scm_struct_i_proc + 0] = SCM_BOOL_F;
data[scm_struct_i_proc + 1] = SCM_BOOL_F; data[scm_struct_i_proc + 1] = SCM_BOOL_F;
data[scm_struct_i_proc + 2] = SCM_BOOL_F; data[scm_struct_i_proc + 2] = SCM_BOOL_F;
data[scm_struct_i_proc + 3] = SCM_BOOL_F; data[scm_struct_i_proc + 3] = SCM_BOOL_F;
data[scm_struct_i_setter] = SCM_BOOL_F;
} }
else else
data = scm_alloc_struct (basic_size + tail_elts, data = scm_alloc_struct (basic_size + tail_elts,