diff options
author | Andy Wingo <wingo@pobox.com> | 2015-10-18 20:12:15 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-10-21 11:49:20 +0200 |
commit | 30c06bfbb3db6e8c05f2ee6e7866d4ecf5838482 (patch) | |
tree | 1a0df35226e83758dee1a71966738eb917a22694 /libguile/continuations.c | |
parent | aa9f6b00827bd0c1a2f11274191f49b0ad31926d (diff) | |
download | guile-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/continuations.c')
-rw-r--r-- | libguile/continuations.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c index 7cc3cea10..c0a2bd8ae 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -186,7 +186,7 @@ scm_i_continuation_to_frame (SCM continuation, struct scm_frame *frame) stack_top = data->stack_bottom + data->stack_size; frame->stack_holder = data; frame->fp_offset = stack_top - (data->fp + data->reloc); - frame->sp_offset = stack_top - (data->sp + data->reloc); + frame->sp_offset = data->stack_size; frame->ip = data->ra; return 1; |