mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-02 02:10:19 +02:00
Fix ephemeron death for bdw
* src/bdw.c (gc_ephemeron_init): Fix misuse of disappearing-link API.
This commit is contained in:
parent
c7fe77de0e
commit
c86408a33c
1 changed files with 2 additions and 1 deletions
|
@ -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));
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue