summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-10-18 20:12:15 +0200
committerAndy Wingo <wingo@pobox.com>2015-10-21 11:49:20 +0200
commit30c06bfbb3db6e8c05f2ee6e7866d4ecf5838482 (patch)
tree1a0df35226e83758dee1a71966738eb917a22694 /libguile/stacks.c
parentaa9f6b00827bd0c1a2f11274191f49b0ad31926d (diff)
downloadguile-30c06bfbb3db6e8c05f2ee6e7866d4ecf5838482.tar.gz
Remove sp from scm_vm_cont
* libguile/vm.h (struct scm_vm_cont): Remove "sp" member; it's always the same as stack_bottom. * libguile/vm.c (scm_i_vm_cont_to_frame, scm_i_vm_capture_stack): (vm_return_to_continuation_inner): * libguile/stacks.c (scm_make_stack): * libguile/continuations.c (scm_i_continuation_to_frame): Adapt.
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index ec3ec789f..366176b10 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -330,7 +330,7 @@ SCM_DEFINE (scm_make_stack, "make-stack", 1, 0, 1,
kind = SCM_VM_FRAME_KIND_CONT;
frame.stack_holder = c;
frame.fp_offset = stack_top - (c->fp + c->reloc);
- frame.sp_offset = stack_top - (c->sp + c->reloc);
+ frame.sp_offset = c->stack_size;
frame.ip = c->ra;
}
else if (SCM_VM_FRAME_P (obj))