[Yap-commits] CVS: pl threads.yap,1.73,1.74

[Paulo M. <pm...@us...>]

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

Modified Files:
	threads.yap 
Log Message:
Corrected a bug in setting a thread exit status in case the thread goal results in an exception; exit status should be exception(Exception) and not exception(error(Exception,_)).

Index: threads.yap
===================================================================
RCS file: /cvsroot/yap/pl/threads.yap,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -r1.73 -r1.74
--- threads.yap	10 May 2008 23:24:13 -0000	1.73
+++ threads.yap	8 Jun 2008 16:45:52 -0000	1.74
@@ -62,7 +62,7 @@
 %	format(user_error,'closing thread ~w~n',[v([Id0|Status])]).	
 '$close_thread'(Exception, Detached, Id0) :-
 	 (	recorded('$thread_exit_status', [Id0|_], R), erase(R), fail
-	 ;	recorda('$thread_exit_status', [Id0|exception(error(Exception,_))], _)
+	 ;	recorda('$thread_exit_status', [Id0|exception(Exception))], _)
 	 ),
 	'$run_at_thread_exit'(Id0),
 	(	Detached == true ->
@@ -83,7 +83,7 @@
 	->
 	 true
 	;
-	 recorda('$thread_exit_status', [Id|exception(error(resource_error(memory),thread_create(Goal)))],_)
+	 recorda('$thread_exit_status', [Id|exception(resource_error(memory)))],_)
 	).
 
 thread_create(Goal, Id) :-
@@ -100,7 +100,7 @@
 	->
 	 true
 	;
-	 recorda('$thread_exit_status', [Id|exception(error(resource_error(memory),thread_create(Goal,Id)))],_)
+	 recorda('$thread_exit_status', [Id|exception(resource_error(memory)))],_)
 	).
 
 thread_create(Goal, Id, Options) :-
@@ -120,7 +120,7 @@
 	->
 	 true
 	;
-	 recorda('$thread_exit_status', [Id|exception(error(resource_error(memory),thread_create(Goal,Id,Options)))],_)
+	 recorda('$thread_exit_status', [Id|exception(resource_error(memory)))],_)
 	).
 
 '$erase_thread_info'(Id) :-