ensure locking
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2161 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
e2519f4e3a
commit
47d7eee66d
|
@ -571,8 +571,8 @@ message_queue_create(Name) :-
|
||||||
'$new_mutex'(Mutex),
|
'$new_mutex'(Mutex),
|
||||||
'$cond_create'(Cond),
|
'$cond_create'(Cond),
|
||||||
'$global_queue_mutex'(QMutex),
|
'$global_queue_mutex'(QMutex),
|
||||||
'$mq_iname'(Name, CName),
|
|
||||||
'$lock_mutex'(QMutex),
|
'$lock_mutex'(QMutex),
|
||||||
|
'$mq_iname'(Name, CName),
|
||||||
( recorded('$queue',q(Name,_,_, _),_) ->
|
( recorded('$queue',q(Name,_,_, _),_) ->
|
||||||
'$unlock_mutex'(QMutex),
|
'$unlock_mutex'(QMutex),
|
||||||
'$do_error'(permission_error(create,message_queue,Name),message_queue_create(Name))
|
'$do_error'(permission_error(create,message_queue,Name),message_queue_create(Name))
|
||||||
|
|
Reference in New Issue