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

Corrected a bug in thread_property/2 due to the use of the broken definition of the auxiliary predicate '$current_thread'/1. Removed predicates '$current_thread'/1-2. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2114 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2008-02-24 12:40:40 +00:00
parent 045965e3ed
commit 9fbbb1e47a
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pl/threads.yap
View File

@ -767,7 +767,7 @@ thread_property(Prop) :-
thread_property(Id, Prop) :-
( nonvar(Id) ->
'$check_thread_or_alias'(Id, thread_property(Id, Prop))
; '$current_thread'(Id)
; recorded('$thread_sizes', [Id| _], _)
),
'$check_thread_property'(Prop, thread_property(Id, Prop)),
'$thread_id_alias'(Id0, Id),
@ -790,23 +790,11 @@ thread_property(Id, Prop) :-
recorded('$thread_sizes', [Id, _, _, System], _).
'$current_thread'(Id) :-
'$current_thread'(0, Id).
'$current_thread'(Id, Id) :-
'$valid_thread'(Id).
'$current_thread'(Id, NextId) :-
'$valid_thread'(Id),
Id2 is Id + 1,
'$current_thread'(Id2, NextId).
threads :-
write('------------------------------------------------------------------------'), nl,
format("~t~a~48+~n", 'Thread Detached Status'),
write('------------------------------------------------------------------------'), nl,
recorded('$thread_sizes', [Id| _], _),
recorded('$thread_detached', [Id| Detached], _),
'$thread_property'(Id, detached(Detached)),
'$thread_property'(Id, status(Status)),
'$thread_id_alias'(Id, Alias),
format("~t~q~30+~33|~w~42|~q~n", [Alias, Detached, Status]),