mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 18:40:22 +02:00
Code Activity

Add mt-gcbench

Browse source
This commit is contained in:
Andy Wingo 2022-03-18 16:19:42 +01:00
parent e703568857
commit d63288048c
4 changed files with 381 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bdw.h
View file

@ -55,12 +55,22 @@ static struct context* initialize_gc(size_t heap_size) {
GC_set_max_heap_size (heap_size);
GC_expand_hp(heap_size - current_heap_size);
}
GC_allow_register_threads();
return GC_malloc_atomic(1);
}
static struct context* initialize_gc_for_thread(uintptr_t *stack_base,
struct context *parent) {
struct GC_stack_base base = { stack_base };
GC_register_my_thread(&base);
return GC_malloc_atomic(1);
}
static void finish_gc_for_thread(struct context *cx) {
GC_unregister_my_thread();
}
static inline void print_start_gc_stats(struct context *cx) {
}
static inline void print_end_gc_stats(struct context *cx) {
printf("Completed %ld collections\n", (long)GC_get_gc_no());
printf("Heap size is %ld\n", (long)GC_get_heap_size());