diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ensure locking 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2161 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-03-25 00:15:05 +00:00
parent e2519f4e3a
commit 47d7eee66d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/threads.yap
View File

@ -571,8 +571,8 @@ message_queue_create(Name) :-
'$new_mutex'(Mutex),
'$cond_create'(Cond),
'$global_queue_mutex'(QMutex),
'$mq_iname'(Name, CName),
'$lock_mutex'(QMutex),
'$mq_iname'(Name, CName),
( recorded('$queue',q(Name,_,_, _),_) ->
'$unlock_mutex'(QMutex),
'$do_error'(permission_error(create,message_queue,Name),message_queue_create(Name))