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

fix futures for CGC, where lightweight continuations are disabled

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-05 13:13:16 -07:00
parent 54e46f78bb
commit ff6172c44b
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/racket/src/future.c
View File

@ -1214,16 +1214,16 @@ void scheme_check_future_work()
if (ft && ft->want_lw) {
void *storage[3];
(void)capture_future_continuation(ft, storage);
/* Signal the waiting worker thread that it
can continue doing other things: */
mzrt_mutex_lock(fs->future_mutex);
if (ft->can_continue_sema) {
mzrt_sema_post(ft->can_continue_sema);
ft->can_continue_sema = NULL;
if (capture_future_continuation(ft, storage)) {
/* Signal the waiting worker thread that it
can continue doing other things: */
mzrt_mutex_lock(fs->future_mutex);
if (ft->can_continue_sema) {
mzrt_sema_post(ft->can_continue_sema);
ft->can_continue_sema = NULL;
}
mzrt_mutex_unlock(fs->future_mutex);
}
mzrt_mutex_unlock(fs->future_mutex);
} else
break;
}