[Yap-commits] CVS: pl threads.yap,1.78,1.79

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/pl
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv16305/pl

Modified Files:
	threads.yap 
Log Message:
fix threads/0.


Index: threads.yap
===================================================================
RCS file: /cvsroot/yap/pl/threads.yap,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -r1.78 -r1.79
--- threads.yap	8 Aug 2008 14:05:34 -0000	1.78
+++ threads.yap	8 Aug 2008 16:05:10 -0000	1.79
@@ -807,12 +807,24 @@
 thread_property(Id, Prop) :-
 	(	nonvar(Id) ->
 		'$check_thread_or_alias'(Id, thread_property(Id, Prop))
-	;	'$thread_stacks'(Id, _, _, _)
+	;	'$enumerate_threads'(Id)
 	),
 	'$check_thread_property'(Prop, thread_property(Id, Prop)),
 	'$thread_id_alias'(Id0, Id),
 	'$thread_property'(Id0, Prop).
 
+'$enumerate_threads'(Id) :-
+	'$max_threads'(Max),
+	Max1 is Max-1,
+	'$between'(0,Max1,Id),
+	'$thread_stacks'(Id, _, _, _).
+
+'$between'(I,_,I).
+'$between'(I0,I,J) :-
+	I0 < I, 
+	I1 is I0+1,
+	'$between'(I1,I,J).
+	
 '$thread_property'(Id, alias(Alias)) :-
 	recorded('$thread_alias', [Id|Alias], _).
 '$thread_property'(Id, status(Status)) :-
@@ -822,7 +834,7 @@
 	;	Status = running
 	).
 '$thread_property'(Id, detached(Detached)) :-
-	'$thread_detached'(Detached).
+	'$thread_detached'(Id,Detached).
 '$thread_property'(Id, at_exit(M:G)) :-
 	'$thread_run_at_exit'(G,M).
 '$thread_property'(Id, InfoSize) :-
@@ -837,7 +849,7 @@
 	format(user_error,'------------------------------------------------------------------------~n',[]),
 	format(user_error, '~t~a~48+~n', 'Thread  Detached  Status'),
 	format(user_error,'------------------------------------------------------------------------~n',[]),
-	'$thread_property'(Id, detached(Detached)),
+	thread_property(Id, detached(Detached)),
 	'$thread_property'(Id, status(Status)),
 	'$thread_id_alias'(Id, Alias),
 	format(user_error,'~t~q~30+~33|~w~42|~q~n', [Alias, Detached, Status]),