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

Hook up gc_heap_set_allocation_failure_handler

Browse source 
* libguile/gc.h:
* libguile/gc.c (scm_gc_after_nonlocal_exit): Give it a scm_thread
argument, and cause GC with whippet API.
(scm_init_gc): Set alloc failure handler using Whippet API instead of
BDW.
(scm_oom_fn): Add heap argumnet.

* libguile/eval.c (eval):
* libguile/exceptions.c (scm_c_with_exception_handler):
* libguile/vm.c (scm_call_n): Adapt.
This commit is contained in:
Andy Wingo 2025-04-23 14:04:23 +02:00
parent 25db208603
commit 23d204b5a0
5 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-2019
/* Copyright 1995-2019, 2025
Free Software Foundation, Inc.
This file is part of Guile.
@ -463,7 +463,7 @@ eval (SCM x, SCM env)
{
/* The prompt exited nonlocally. */
t->vm.registers = prev_registers;
scm_gc_after_nonlocal_exit ();
scm_gc_after_nonlocal_exit (t);
proc = handler;
args = scm_i_prompt_pop_abort_args_x (&t->vm, saved_stack_depth);
goto apply_proc;