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

fix scheduler interaction with atomic mode

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-15 16:42:58 -07:00
parent ab86ffa778
commit 6e65311702
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/thread.c
View File

@ -4575,8 +4575,6 @@ void scheme_thread_block_enable_break(float sleep_time, int enable_break)
void scheme_start_atomic(void) void scheme_start_atomic(void)
{ {
if (!do_atomic)
missed_context_switch = 0;
do_atomic++; do_atomic++;
} }
@ -4607,6 +4605,7 @@ void scheme_end_atomic(void)
{ {
scheme_end_atomic_no_swap(); scheme_end_atomic_no_swap();
if (!do_atomic && missed_context_switch) { if (!do_atomic && missed_context_switch) {
missed_context_switch = 0;
scheme_thread_block(0.0); scheme_thread_block(0.0);
scheme_current_thread->ran_some = 1; scheme_current_thread->ran_some = 1;
} }