suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

futures: fix lightweight-continuation GC bug

Browse Source 
Merge to 5.1
(cherry picked from commit 7579b48791)
This commit is contained in:
Matthew Flatt 2011-02-05 06:41:09 -07:00 committed by Eli Barzilay
parent e8a0c3c187
commit b32d2eeaac
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/fun.c
View File

@ -8516,6 +8516,7 @@ Scheme_Lightweight_Continuation *scheme_capture_lightweight_continuation(Scheme_
lw = (Scheme_Lightweight_Continuation *)storage[0]; lw = (Scheme_Lightweight_Continuation *)storage[0];
lw->stack_slice = stack; lw->stack_slice = stack;
lwc = lw->saved_lwc;
len = lwc->runstack_start - lwc->runstack_end; len = lwc->runstack_start - lwc->runstack_end;
runstack_slice = MALLOC_N(Scheme_Object*, len); runstack_slice = MALLOC_N(Scheme_Object*, len);
@ -8535,6 +8536,7 @@ Scheme_Lightweight_Continuation *scheme_capture_lightweight_continuation(Scheme_
runstack_slice[i] = 0; runstack_slice[i] = 0;
} }
lwc = lw->saved_lwc;
len = lwc->cont_mark_stack_end - lwc->cont_mark_stack_start; len = lwc->cont_mark_stack_end - lwc->cont_mark_stack_start;
if (len) { if (len) {