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

fix bad initialization of mqs

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-17 17:25:35 +01:00
parent e596cce6f5
commit 4da6733194
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/threads.yap
View File

@ -616,6 +616,10 @@ message_queue_create(Id) :-
fail. fail.
'$do_msg_queue_create'(_). '$do_msg_queue_create'(_).
'$create_thread_mq'(TId) :-
recorded('$queue',q(TId,_,_,_,_), R),
erase(R),
fail.
'$create_thread_mq'(TId) :- '$create_thread_mq'(TId) :-
\+ recorded('$queue',q(TId,_,_,_,_), _), \+ recorded('$queue',q(TId,_,_,_,_), _),
'$new_mutex'(Mutex), '$new_mutex'(Mutex),