From 6ceb33e7675e1e4f6aa4f0304bf363d1da5eb085 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 24 Jun 2018 10:07:52 +0200 Subject: expand_stack intrinsic takes thread * 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. --- libguile/vm-engine.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/vm-engine.c') diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 5e1114f02..4874c0f34 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -182,7 +182,7 @@ { \ struct scm_vm_intrinsics *i = (void*)intrinsics; \ SYNC_IP (); \ - i->expand_stack (VP, sp); \ + i->expand_stack (thread, sp); \ CACHE_SP (); \ } \ else \ -- cgit v1.2.3