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

Add new old-gen predicate method: check a range of addresses

Browse source
This commit is contained in:
Andy Wingo 2024-12-09 14:28:19 +01:00
parent d96b53facd
commit 274cf43864
6 changed files with 58 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
api/gc-api.h
View file

@ -30,6 +30,11 @@ GC_API_ int gc_init(const struct gc_options *options,
struct gc_event_listener event_listener,
void *event_listener_data);
GC_API_ struct gc_heap* gc_mutator_heap(struct gc_mutator *mut);
GC_API_ uintptr_t gc_small_object_nursery_low_address(struct gc_heap *heap);
GC_API_ uintptr_t gc_small_object_nursery_high_address(struct gc_heap *heap);
struct gc_mutator_roots;
GC_API_ void gc_mutator_set_roots(struct gc_mutator *mut,
struct gc_mutator_roots *roots);
@ -200,6 +205,17 @@ static inline int gc_object_is_old_generation(struct gc_mutator *mut,
uint8_t byte = atomic_load_explicit(byte_loc, memory_order_relaxed);
return byte & gc_old_generation_check_alloc_table_bit_pattern();
}
case GC_OLD_GENERATION_CHECK_SMALL_OBJECT_NURSERY: {
struct gc_heap *heap = gc_mutator_heap(mut);
// Note that these addresses are fixed and that the embedder might
// want to store them somewhere or inline them into the output of
// JIT-generated code. They may also be power-of-two aligned.
uintptr_t low_addr = gc_small_object_nursery_low_address(heap);
uintptr_t high_addr = gc_small_object_nursery_high_address(heap);
uintptr_t size = high_addr - low_addr;
uintptr_t addr = gc_ref_value(obj);
return addr - low_addr < size;
}
case GC_OLD_GENERATION_CHECK_SLOW:
return gc_object_is_old_generation_slow(mut, obj);
default: