mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Fix rewinding continuations when outermost frame has zero locals

Browse source 
* libguile/vm.c (vm_reinstate_partial_continuation_inner): Fix boundary
  condition when the outermost frame has zero locals.
This commit is contained in:
Andy Wingo 2014-04-16 19:18:29 +02:00
parent deb2df5323
commit a2ebdba7ac
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm.c
View file

@ -397,7 +397,7 @@ vm_reinstate_partial_continuation_inner (void *data_ptr)
{ {
SCM *fp; SCM *fp;
for (fp = vp->fp; for (fp = vp->fp;
SCM_FRAME_LOWER_ADDRESS (fp) > base; SCM_FRAME_LOWER_ADDRESS (fp) >= base;
fp = SCM_FRAME_DYNAMIC_LINK (fp)) fp = SCM_FRAME_DYNAMIC_LINK (fp))
SCM_FRAME_SET_DYNAMIC_LINK (fp, SCM_FRAME_DYNAMIC_LINK (fp) + reloc); SCM_FRAME_SET_DYNAMIC_LINK (fp, SCM_FRAME_DYNAMIC_LINK (fp) + reloc);
} }