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

Small refactor to whippet embedder

Browse source 
* libguile/whippet-embedder.h (gc_atomic_forward_retry_busy): Use
scm_tc3_mask instead of 7.
This commit is contained in:
Andy Wingo 2025-07-03 10:11:25 +02:00
parent 8623e252bf
commit 5ef7dd088f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/whippet-embedder.h
View file

@ -199,7 +199,7 @@ gc_atomic_forward_retry_busy (struct gc_atomic_forward *fwd) {
scm_t_bits tag = atomic_load_explicit (loc, memory_order_acquire); scm_t_bits tag = atomic_load_explicit (loc, memory_order_acquire);
if (tag == scm_cell_type_busy) if (tag == scm_cell_type_busy)
return 0; return 0;
if ((tag & 7) == scm_tc3_forwarded) { if ((tag & scm_tc3_mask) == scm_tc3_forwarded) {
fwd->state = GC_FORWARDING_STATE_FORWARDED; fwd->state = GC_FORWARDING_STATE_FORWARDED;
fwd->data = tag; fwd->data = tag;
} else { } else {