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

make scheme_check_threads() run at least on thread quantum

Browse Source 
As long as some thread is ready to run, and in case the threads
synchronize after very little work, keep checking threads for
at least one thread quantum.
This commit is contained in:
Matthew Flatt 2012-12-14 06:31:21 -07:00
parent 5a2aa226fb
commit d3e4fbe7a7
2 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scribblings/inside/threads.scrbl
View File

@ -553,8 +553,11 @@ it wakes up if the Racket thread if it is sleeping.}
@function[(void scheme_check_threads)]{
This function is periodically called by the embedding program to give
background processes time to execute. See @secref["threadtime"]
for more information.}
background processes time to execute. See @secref["threadtime"]
for more information.
As long as some threads are ready, this functions returns only after
one thread quantum, at least.}
@function[(void scheme_wake_up)]{

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

@ -4074,13 +4074,23 @@ void scheme_cancel_sleep()
}
void scheme_check_threads(void)
/* Signals should be suspended. */
{
scheme_current_thread->suspend_break++;
scheme_thread_block((float)0);
--scheme_current_thread->suspend_break;
double start, now;
check_sleep(have_activity, 0);
start = scheme_get_inexact_milliseconds();
while (1) {
scheme_current_thread->suspend_break++;
scheme_thread_block((float)0);
--scheme_current_thread->suspend_break;
if (check_sleep(have_activity, 0))
break;
now = scheme_get_inexact_milliseconds();
if (((now - start) * 1000) > MZ_THREAD_QUANTUM_USEC)
break;
}
}
void scheme_wake_up(void)