From 9eb4d960cdffbda6c824d1d4d90dba2df0ff9ae6 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 30 Jun 2025 09:45:15 +0200 Subject: [PATCH] Pin struct unboxed_fields * libguile/struct.c (set_vtable_access_fields): Pin unboxed_fields, so that we can access it from within struct trace function. --- libguile/struct.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/libguile/struct.c b/libguile/struct.c index 8d7b00161..a7a719a4f 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -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);