mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

The waiter for a barrier must check both that it was signaled and that the barrier is enabled.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-06 23:07:22 +02:00
parent b053cd80ec
commit defc12c1bc
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/threads/barrier.d
View file

@ -104,8 +104,12 @@ static cl_object
barrier_wait_condition(cl_env_ptr env, cl_object barrier)
{
cl_object output;
/* We were signaled */
if (env->own_process->process.waiting_for != barrier)
return Ct;
/* Disabled barrier */
else if (barrier->barrier.arrivers_count < 0)
return Ct;
else
return Cnil;
}