mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

Fix ephemeron death for bdw

Browse source 
* src/bdw.c (gc_ephemeron_init): Fix misuse of disappearing-link API.
This commit is contained in:
Andy Wingo 2025-05-05 10:42:28 +02:00
parent c7fe77de0e
commit c86408a33c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/bdw.c
View file

@ -248,7 +248,8 @@ void gc_ephemeron_init(struct gc_mutator *mut, struct gc_ephemeron *ephemeron,
gc_ephemeron_init_internal(mut->heap, ephemeron, key, value);
if (GC_base((void*)gc_ref_value(key))) {
struct gc_ref *loc = gc_edge_loc(gc_ephemeron_key_edge(ephemeron));
GC_register_disappearing_link((void**)loc);
GC_general_register_disappearing_link((void**)loc,
gc_ref_heap_object(key));
}
}