Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ne pas rescheduler a l'interieur d'un callback. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@851 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-05-28 14:50:38 +00:00
parent 58997104a2
commit 9e9163f4ea
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
otherlibs/threads/scheduler.c
View File

@ -231,6 +231,8 @@ static double timeofday()
#define END_FOREACH(x) } while (x != curr_thread)
static value alloc_process_status();
extern int callback_depth;
static value schedule_thread()
{
thread_t run_thread, th;
@ -238,6 +240,12 @@ static value schedule_thread()
double delay, now;
int need_select, need_wait;
/* Don't allow preemption during a callback */
if (callback_depth > 0) {
if (curr_thread->status != RUNNABLE)
invalid_argument("Thread: deadlock in callback");
return curr_thread->retval;
}
/* Save the status of the current thread */
curr_thread->stack_low = stack_low;
curr_thread->stack_high = stack_high;