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

mp_get_lock_wait() checks the type of the lock before dereferencing a field.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-03-31 11:22:23 +02:00
parent e278e1d5a7
commit 667362a485
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/threads/mutex.d
View file

@ -156,8 +156,11 @@ mp_get_lock_nowait(cl_object lock)
cl_object
mp_get_lock_wait(cl_object lock)
{
if (lock->lock.queue_list != Cnil ||
mp_get_lock_nowait(lock) == Cnil) {
cl_env_ptr env = ecl_process_env();
unlikely_if (type_of(lock) != t_lock) {
FEerror_not_a_lock(lock);
}
if (lock->lock.queue_list != Cnil || get_lock_inner(env, lock) == Cnil) {
ecl_wait_on(get_lock_inner, lock);
}
@(return Ct)