diff options
author | Andy Wingo <wingo@pobox.com> | 2025-04-23 14:04:23 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-04-23 14:04:23 +0200 |
commit | 23d204b5a02b6cc11e7e735dc3882dc25f7b7292 (patch) | |
tree | 94a2c671d7eb49c3c15483cc4d5b27252f29d0f0 /libguile/eval.c | |
parent | 25db208603c86ed1f2c89f95ce3227b763d52679 (diff) | |
download | guile-23d204b5a02b6cc11e7e735dc3882dc25f7b7292.tar.gz |
Hook up gc_heap_set_allocation_failure_handler
* 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.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index db6d3a5e9..de62613b3 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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; |