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

reduce overhead of checking sleeping thread on every scheduling iteration

Browse Source 
svn: r5954
This commit is contained in:
Matthew Flatt 2007-04-16 10:59:28 +00:00
parent 8bc617aa51
commit 29b6104ead
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/thread.c
View File

@ -3615,6 +3615,8 @@ void scheme_thread_block(float sleep_time)
check_scheduled_kills();
if (!do_atomic && (sleep_end >= 0.0)) {
double msecs = 0.0;
/* Find the next process. Skip processes that are definitely
blocked. */
@ -3683,9 +3685,12 @@ void scheme_thread_block(float sleep_time)
if (f(next->blocker, &sinfo))
break;
next->sleep_end = sinfo.sleep_end;
msecs = 0.0; /* that could have taken a while */
}
} else if (next->block_descriptor == SLEEP_BLOCKED) {
if (next->sleep_end <= scheme_get_inexact_milliseconds())
if (!msecs)
msecs = scheme_get_inexact_milliseconds();
if (next->sleep_end <= msecs)
break;
} else
break;