mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-16 09:41:12 -07:00
Code Issues Projects Releases Packages Wiki Activity

The owner of a lock now passes ownership to the first waiting process.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-30 22:49:56 +02:00
parent 14d2960135
commit 7a4a98d020
3 changed files with 54 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/c/threads/queue.d
View file

@ -302,6 +302,29 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
#endif
}
cl_object
ecl_waiter_pop(cl_env_ptr the_env, cl_object q)
{
cl_object output;
ecl_disable_interrupts_env(the_env);
ecl_get_spinlock(the_env, &q->queue.spinlock);
{
cl_object l;
output = ECL_NIL;
for (l = q->queue.list; l != ECL_NIL; l = ECL_CONS_CDR(l)) {
cl_object p = ECL_CONS_CAR(l);
if (p->process.phase != ECL_PROCESS_INACTIVE &&
p->process.phase != ECL_PROCESS_EXITING) {
output = p;
break;
}
}
}
ecl_giveup_spinlock(&q->queue.spinlock);
ecl_enable_interrupts_env(the_env);
return output;
}
void
ecl_wakeup_waiters(cl_env_ptr the_env, cl_object q, int flags)
{