mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-14 15:40:19 +02:00
Allow abort_to_prompt to avoid a longjmp
* libguile/vm-engine.c (abort): * libguile/vm.c (abort_to_prompt): Allow fallthrough if longjmp isn't needed.
This commit is contained in:
parent
bf66fdca55
commit
51e71a473f
2 changed files with 11 additions and 7 deletions
|
@ -788,8 +788,12 @@ VM_NAME (scm_thread *thread, jmp_buf *registers, int resume)
|
|||
SYNC_IP ();
|
||||
scm_vm_intrinsics.abort_to_prompt (thread, registers);
|
||||
|
||||
/* vm_abort should not return */
|
||||
abort ();
|
||||
/* If abort_to_prompt returned, that means there were no
|
||||
intervening C frames to jump over, so we just continue
|
||||
directly. */
|
||||
CACHE_REGISTER ();
|
||||
ABORT_CONTINUATION_HOOK ();
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
/* builtin-ref dst:12 idx:12
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue