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

current_thread would report an error on a non-existing id or alias.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1636 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-05-18 16:46:43 +00:00
parent ee78d90bb9
commit 326583c727
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
changes-5.1.html
View File

@ -16,6 +16,8 @@
<h2>Yap-5.1.2:</h2> <h2>Yap-5.1.2:</h2>
<ul> <ul>
<li> FIXED: current_thread/2 should fail if called with bad alias or
ID (obs Paulo Moura).</li>
<li> FIXED: correct code statistics with DL_MALLOC or SYSTEM_MALLOC.</li> <li> FIXED: correct code statistics with DL_MALLOC or SYSTEM_MALLOC.</li>
<li> NEW: use true_file_name for file operations in system library (obs Paulo Moura).</li> <li> NEW: use true_file_name for file operations in system library (obs Paulo Moura).</li>
<li> NEW: make YAP large address aware on WIN32 (should be able to <li> NEW: make YAP large address aware on WIN32 (should be able to

2
pl/threads.yap
View File

@ -163,8 +163,8 @@ current_thread(Tid, Status) :-
var(Tid), !, var(Tid), !,
'$cur_threads'(0, Tid, Status). '$cur_threads'(0, Tid, Status).
current_thread(Tid, Status) :- current_thread(Tid, Status) :-
( atom(Tid) ; integer(Tid) ), !,
'$check_thread_alias'(Id0,Tid), '$check_thread_alias'(Id0,Tid),
integer(Id0), !,
'$valid_thread'(Id0), '$valid_thread'(Id0),
'$thr_status'(Id0, Status). '$thr_status'(Id0, Status).
current_thread(Tid, Status) :- current_thread(Tid, Status) :-