Fixed a bug in the predicate threads/0 where some threads might not be listed if there are gaps between the identifiers of the existing threads (e.g. with threads 0, 1, 3 the thread 3 would not be listed).
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2112 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
0e3d91a0ff
commit
eac625e0ec
@ -801,9 +801,10 @@ threads :-
|
||||
write('------------------------------------------------------------------------'), nl,
|
||||
format("~t~a~48+~n", 'Thread Detached Status'),
|
||||
write('------------------------------------------------------------------------'), nl,
|
||||
thread_property(Thread, detached(Detached)),
|
||||
thread_property(Thread, status(Status)),
|
||||
'$thread_id_alias'(Thread, Alias),
|
||||
recorded('$thread_sizes', [Id| _], _),
|
||||
recorded('$thread_detached', [Id| Detached], _),
|
||||
'$thread_property'(Id, status(Status)),
|
||||
'$thread_id_alias'(Id, Alias),
|
||||
format("~t~q~30+~33|~w~42|~q~n", [Alias, Detached, Status]),
|
||||
fail.
|
||||
threads :-
|
||||
|
Reference in New Issue
Block a user