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

(scm_t_contregs): New 'offset' member for relocating debug frames.

Browse source 
(scm_make_continuation): Set it.
This commit is contained in:
Marius Vollmer 2004-12-23 15:30:16 +00:00
parent e6e63c5632
commit 5c5c27dc0d
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/continuations.c
View file

@ -134,6 +134,7 @@ scm_make_continuation (int *first)
#if ! SCM_STACK_GROWS_UP
src -= stack_size;
#endif
continuation->offset = continuation->stack - src;
memcpy (continuation->stack, src, sizeof (SCM_STACKITEM) * stack_size);
#ifdef __ia64__