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

Merge remote-tracking branch 'whippet/main' into wip-whippet

Browse source
This commit is contained in:
Andy Wingo 2025-05-04 12:11:13 +02:00
commit fd921be76c
5 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/whippet/src/pcc.c
View file

@ -965,6 +965,14 @@ void gc_collect(struct gc_mutator *mut, enum gc_collection_kind kind) {
trigger_collection(mut, kind);
}
int gc_heap_contains(struct gc_heap *heap, struct gc_ref ref) {
GC_ASSERT(gc_ref_is_heap_object(ref));
return (GC_GENERATIONAL
? (new_space_contains(heap, ref) || old_space_contains(heap, ref))
: copy_space_contains(heap_mono_space(heap), ref))
|| large_object_space_contains(heap_large_object_space(heap), ref);
}
static void* allocate_large(struct gc_mutator *mut, size_t size) {
struct gc_heap *heap = mutator_heap(mut);
struct large_object_space *space = heap_large_object_space(heap);