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

fix thread_peek_message to understand aliases

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1607 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-04-22 11:51:38 +00:00
parent 9cbe63778e
commit 3b26b9603b
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
changes-5.1.html
View File

@ -16,6 +16,7 @@
<h2>Yap-5.1.2:</h2> <h2>Yap-5.1.2:</h2>
<ul> <ul>
<li> FIXED: thread_peek_message should use aliases (obs Paulo Moura).</li>
<li> FIXED: garbage collector should no rewrite cp_tr fields until <li> FIXED: garbage collector should no rewrite cp_tr fields until
after marking (obs Paulo Moura).</li> after marking (obs Paulo Moura).</li>
<li> FIXED: garbage collector was allowing garbage trail entries for <li> FIXED: garbage collector was allowing garbage trail entries for

3
pl/threads.yap
View File

@ -362,6 +362,9 @@ thread_peek_message(Term) :-
'$thread_self'(Id), '$thread_self'(Id),
thread_peek_message(Id, Term). thread_peek_message(Id, Term).
thread_peek_message(Queue, Term) :-
recorded('$thread_alias',[Id|Queue],_), !,
thread_peek_message(Id, Term).
thread_peek_message(Queue, Term) :- thread_peek_message(Queue, Term) :-
recorded('$queue',q(Queue,Mutex,_,Key),_), !, recorded('$queue',q(Queue,Mutex,_,Key),_), !,
mutex_lock(Mutex), mutex_lock(Mutex),