mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 23:50:47 +02:00
Code Activity

Pin struct unboxed_fields

Browse source 
* libguile/struct.c (set_vtable_access_fields): Pin unboxed_fields, so
that we can access it from within struct trace function.
This commit is contained in:
Andy Wingo 2025-06-30 09:45:15 +02:00
parent fecd6c00e4
commit 9eb4d960cd
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/struct.c
View file

@ -144,6 +144,8 @@ set_vtable_access_fields (SCM vtable)
scm_ash (SCM_INUM1,
scm_from_size_t (field)));
scm_gc_pin_object (SCM_I_CURRENT_THREAD, unboxed_fields);
/* Record computed size of vtable's instances. */
SCM_SET_VTABLE_FLAGS (vtable, 0);
SCM_STRUCT_DATA_SET (vtable, scm_vtable_index_size, nfields);