mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Add warn proc to bdw

Browse source
This commit is contained in:
Andy Wingo 2025-05-15 15:56:40 +02:00
parent 08e6633f93
commit f5edbc278b
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bdw.c
View file

@ -558,6 +558,11 @@ static void* oom_fn(size_t nbytes) {
return NULL;
}
static void warn_fn(char *fmt, GC_word arg) {
/* FIXME: Do something better with this. */
fprintf (stderr, fmt, arg);
}
void gc_heap_set_allocation_failure_handler(struct gc_heap *heap,
void* (*handler)(struct gc_heap*,
size_t)) {
@ -616,6 +621,7 @@ int gc_init(const struct gc_options *options, struct gc_stack_addr stack_base,
snprintf(markers, sizeof(markers), "%d", options->common.parallelism);
setenv("GC_MARKERS", markers, 1);
GC_init();
GC_set_warn_proc (warn_fn);
size_t current_heap_size = GC_get_heap_size();
if (options->common.heap_size > current_heap_size)
GC_expand_hp(options->common.heap_size - current_heap_size);