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

Suppression code debug 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2902 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-03-05 19:18:14 +00:00
parent 96cb7c30af
commit a76a06af2a
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
otherlibs/threads/scheduler.c
View File

@ -293,13 +293,6 @@ static value schedule_thread(void)
curr_thread->sp = extern_sp;
curr_thread->trapsp = trapsp;
#if 0
printf("*****\nCurrent thread is: %p\n", curr_thread);
FOREACH_THREAD(th)
printf("Thread %p status %ld\n", th, th->status);
END_FOREACH(th);
#endif
try_again:
/* Find if a thread is runnable.
Build fdsets and delay for select.
@ -474,10 +467,6 @@ try_again:
/* If we haven't something to run at that point, we're in big trouble. */
if (run_thread == NULL) invalid_argument("Thread: deadlock");
#if 0
printf("Switching to: %p\n", run_thread);
#endif
/* Free everything the thread was waiting on */
Assign(run_thread->readfds, NO_FDS);
Assign(run_thread->writefds, NO_FDS);