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

pcc: abstract space into which small objects are allocated

Browse source 
This may be the nursery, in future.
This commit is contained in:
Andy Wingo 2024-12-11 15:02:50 +01:00
parent 095d2ff953
commit c7645975bf
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/pcc.c
View file

@ -76,6 +76,10 @@ struct gc_trace_worker_data {
static inline struct copy_space* heap_copy_space(struct gc_heap *heap) { static inline struct copy_space* heap_copy_space(struct gc_heap *heap) {
return &heap->copy_space; return &heap->copy_space;
} }
static inline struct copy_space* heap_allocation_space(struct gc_heap *heap) {
// The space into which small objects are allocated.
return heap_copy_space(heap);
}
static inline struct large_object_space* heap_large_object_space(struct gc_heap *heap) { static inline struct large_object_space* heap_large_object_space(struct gc_heap *heap) {
return &heap->large_object_space; return &heap->large_object_space;
} }
@ -191,7 +195,7 @@ static void add_mutator(struct gc_heap *heap, struct gc_mutator *mut) {
} }
static void remove_mutator(struct gc_heap *heap, struct gc_mutator *mut) { static void remove_mutator(struct gc_heap *heap, struct gc_mutator *mut) {
copy_space_allocator_finish(&mut->allocator, heap_copy_space(heap)); copy_space_allocator_finish(&mut->allocator, heap_allocation_space(heap));
MUTATOR_EVENT(mut, mutator_removed); MUTATOR_EVENT(mut, mutator_removed);
mut->heap = NULL; mut->heap = NULL;
heap_lock(heap); heap_lock(heap);
@ -461,7 +465,7 @@ collect(struct gc_mutator *mut, enum gc_collection_kind requested_kind) {
static void trigger_collection(struct gc_mutator *mut, static void trigger_collection(struct gc_mutator *mut,
enum gc_collection_kind requested_kind) { enum gc_collection_kind requested_kind) {
struct gc_heap *heap = mutator_heap(mut); struct gc_heap *heap = mutator_heap(mut);
copy_space_allocator_finish(&mut->allocator, heap_copy_space(heap)); copy_space_allocator_finish(&mut->allocator, heap_allocation_space(heap));
heap_lock(heap); heap_lock(heap);
int prev_kind = -1; int prev_kind = -1;
while (mutators_are_stopping(heap)) while (mutators_are_stopping(heap))
@ -542,7 +546,7 @@ int* gc_safepoint_flag_loc(struct gc_mutator *mut) {
void gc_safepoint_slow(struct gc_mutator *mut) { void gc_safepoint_slow(struct gc_mutator *mut) {
struct gc_heap *heap = mutator_heap(mut); struct gc_heap *heap = mutator_heap(mut);
copy_space_allocator_finish(&mut->allocator, heap_copy_space(heap)); copy_space_allocator_finish(&mut->allocator, heap_allocation_space(heap));
heap_lock(heap); heap_lock(heap);
while (mutators_are_stopping(mutator_heap(mut))) while (mutators_are_stopping(mutator_heap(mut)))
pause_mutator_for_collection(heap, mut); pause_mutator_for_collection(heap, mut);
@ -735,7 +739,7 @@ void gc_finish_for_thread(struct gc_mutator *mut) {
static void deactivate_mutator(struct gc_heap *heap, struct gc_mutator *mut) { static void deactivate_mutator(struct gc_heap *heap, struct gc_mutator *mut) {
GC_ASSERT(mut->next == NULL); GC_ASSERT(mut->next == NULL);
copy_space_allocator_finish(&mut->allocator, heap_copy_space(heap)); copy_space_allocator_finish(&mut->allocator, heap_allocation_space(heap));
heap_lock(heap); heap_lock(heap);
heap->inactive_mutator_count++; heap->inactive_mutator_count++;
if (all_mutators_stopped(heap)) if (all_mutators_stopped(heap))