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

fix thread stuff (obs from Jiefei Ma).

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-12-17 23:55:09 -02:00
parent 5b8dc25eff
commit 79a1d3e13c
8 changed files with 34 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pl/threads.yap
View File

@@ -41,8 +41,10 @@ volatile(P) :-
:- initialization('$init_thread0').
'$init_thread0' :-
'$no_threads', !,
recorda('$thread_alias', [0|main], _).
recorda('$thread_alias', [0|main], _),
fail.
'$init_thread0' :-
'$no_threads', !.
'$init_thread0' :-
recorda('$thread_defaults', [0, 0, 0, false, true], _),
'$create_thread_mq'(0),
@@ -863,7 +865,7 @@ thread_property(Id, Prop) :-
; Status = running
).
'$thread_property'(Id, detached(Detached)) :-
'$thread_detached'(Id,Detached).
( '$thread_detached'(Id,Detached) -> true ; Detached = false ).
'$thread_property'(Id, at_exit(M:G)) :-
'$thread_run_at_exit'(G,M).
'$thread_property'(Id, InfoSize) :-