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

The predicate mutex_property/2 now returns for the property locked/2 thread aliases, when defined, instead of thread identifiers.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1849 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2007-03-18 13:10:23 +00:00
parent da19616796
commit 0dd5091163
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/threads.yap
View File

@ -427,7 +427,9 @@ mutex_property(Mutex, Prop) :-
'$mutex_property'(Id, alias(Alias)) :- '$mutex_property'(Id, alias(Alias)) :-
recorded('$mutex_alias', [Id|Alias], _). recorded('$mutex_alias', [Id|Alias], _).
'$mutex_property'(Id, locked(Thread, Count)) :- '$mutex_property'(Id, locked(Thread, Count)) :-
'$mutex_info'(Id, Count, Thread). '$mutex_info'(Id, Count, HoldingThread),
'$thread_id_alias'(HoldingThread, Alias),
once((Thread = Alias; Thread = HoldingThread)).
message_queue_create(Cond) :- message_queue_create(Cond) :-
var(Cond), !, var(Cond), !,