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

fix problem with old-style constrained-atomic mode

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-22 07:31:55 -06:00
parent 68860526e5
commit f29c6a902f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4294,7 +4294,8 @@ void scheme_thread_block(float sleep_time)
do_swap_thread();
} else if (do_atomic && scheme_on_atomic_timeout
&& (atomic_timeout_auto_suspend < 2)) {
if (do_atomic <= atomic_timeout_atomic_level) {
if (!atomic_timeout_auto_suspend
|| (do_atomic <= atomic_timeout_atomic_level)) {
if (atomic_timeout_auto_suspend) {
atomic_timeout_auto_suspend++;
scheme_fuel_counter = p->engine_weight;