mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Remove sp from scm_vm_cont

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2015-10-18 20:12:15 +02:00
parent aa9f6b0082
commit 30c06bfbb3
4 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/stacks.c
View file

@ -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))