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

Only register at_exit/1 hooks given by the programmer.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2195 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2008-04-03 00:02:24 +00:00
parent 59d82a0fca
commit 1acbfc4f80
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/threads.yap
View File

@ -193,7 +193,10 @@ thread_create(Goal, OutId, Options) :-
'$record_thread_info'(Id, Sizes, Detached, AtExit) :- '$record_thread_info'(Id, Sizes, Detached, AtExit) :-
recorda('$thread_sizes', [Id|Sizes], _), recorda('$thread_sizes', [Id|Sizes], _),
recorda('$thread_detached', [Id|Detached], _), recorda('$thread_detached', [Id|Detached], _),
recorda('$thread_at_exit', [Id|AtExit], _). ( AtExit == true ->
true
; recorda('$thread_at_exit', [Id|AtExit], _)
).
% vsc: ????? % vsc: ?????
thread_defaults(Defaults) :- thread_defaults(Defaults) :-