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

expand_stack intrinsic takes thread

Browse source 
* libguile/intrinsics.h (scm_t_thread_sp_intrinsic): Change to take
  thread instead of vp.
  (SCM_FOR_ALL_VM_INTRINSICS): Change expand_stack to expect thread, not
  vp.
* libguile/vm-engine.c (ALLOC_FRAME): Call expand_stack with thread.
* libguile/vm.c (thread_expand_stack, scm_bootstrap_vm): Adapt.
This commit is contained in:
Andy Wingo 2018-06-24 10:07:52 +02:00
parent 150f3474df
commit 6ceb33e767
3 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/vm.c
View file

@ -1158,6 +1158,12 @@ vm_expand_stack (struct scm_vm *vp, union scm_vm_stack_element *new_sp)
}
}
static void
thread_expand_stack (scm_i_thread *thread, union scm_vm_stack_element *new_sp)
{
vm_expand_stack (&thread->vm, new_sp);
}
SCM
scm_call_n (SCM proc, SCM *argv, size_t nargs)
{
@ -1496,7 +1502,7 @@ scm_bootstrap_vm (void)
(scm_t_extension_init_func)scm_init_vm_builtins,
NULL);
scm_vm_intrinsics.expand_stack = vm_expand_stack;
scm_vm_intrinsics.expand_stack = thread_expand_stack;
sym_vm_run = scm_from_latin1_symbol ("vm-run");
sym_vm_error = scm_from_latin1_symbol ("vm-error");