mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

gc_object_set_remembered returns nonzero on success

Browse source
This commit is contained in:
Andy Wingo 2024-10-01 14:36:55 +02:00
parent 4aa5d04f08
commit cc04761271
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
benchmarks/simple-gc-embedder.h
View file

@ -102,11 +102,18 @@ static inline void gc_object_forward_nonatomic(struct gc_ref ref,
*tag_word(ref) = gc_ref_value(new_ref);
}
static inline void gc_object_set_remembered(struct gc_ref ref) {
static inline int gc_object_set_remembered(struct gc_ref ref) {
uintptr_t *loc = tag_word(ref);
uintptr_t tag = *loc;
while (!(tag & gcobj_remembered_bit))
atomic_compare_exchange_weak(loc, &tag, tag | gcobj_remembered_bit);
uintptr_t tag = atomic_load_explicit(loc, memory_order_relaxed);
while (1) {
if (tag & gcobj_remembered_bit)
return 0;
if (atomic_compare_exchange_weak_explicit(loc, &tag,
tag | gcobj_remembered_bit,
memory_order_acq_rel,
memory_order_acquire))
return 1;
}
}
static inline int gc_object_is_remembered_nonatomic(struct gc_ref ref) {