paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't detach thread when finished, but pthread_exit it

Browse Source 
(so it can be joined)

git-svn-id: trunk@184 -
This commit is contained in:
Jonas Maebe 2005-06-03 21:05:14 +00:00
parent 6a36b62b02
commit f1a2ef1db2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/cthreads.pp
View File

@ -192,7 +192,7 @@ Type PINTRTLEvent = ^TINTRTLEvent;
{$endif DEBUG_MT} {$endif DEBUG_MT}
ThreadMain:=pointer(ti.f(ti.p)); ThreadMain:=pointer(ti.f(ti.p));
DoneThread; DoneThread;
pthread_detach(pthread_t(pthread_self())); pthread_exit(nil);
end; end;