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

Refactor handling of active VM registers

Browse source 
* libguile/threads.h (scm_thread): Remove unused jmp_buf regs member.
* libguile/vm.h (struct scm_vm): Rename resumable_prompt_cookie to just
  "registers"; we know it's a jmp_buf pointer.
* libguile/vm.c (scm_call_n):
* libguile/throw.c (catch):
* libguile/eval.c (eval):
* libguile/control.c (scm_suspendable_continuation_p): Adapt to cookie
  renaming.
This commit is contained in:
Andy Wingo 2018-06-27 18:21:04 +02:00
parent fd4eb14751
commit 18431e6e63
6 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/vm.c
View file

@ -1411,7 +1411,7 @@ scm_call_n (SCM proc, SCM *argv, size_t nargs)
{
jmp_buf registers;
int resume;
const void *prev_cookie = vp->resumable_prompt_cookie;
jmp_buf *prev_registers = thread->vm.registers;
SCM ret;
resume = setjmp (registers);
@ -1422,9 +1422,9 @@ scm_call_n (SCM proc, SCM *argv, size_t nargs)
vm_dispatch_abort_hook (vp);
}
vp->resumable_prompt_cookie = &registers;
thread->vm.registers = &registers;
ret = vm_engines[vp->engine](thread, &registers, resume);
vp->resumable_prompt_cookie = prev_cookie;
thread->vm.registers = prev_registers;
return ret;
}