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

* fixed wrong freeing of system threads when a tthread is freed

Browse Source 
(first threadfunc would call endthread -> detach+pthread exit,
     and then tthread.destroy would waitfor -> pthread_join for
     this pthread, while you cannot join a detached thread)
  * cleaned up freeing an InitiallySuspended thread

git-svn-id: trunk@3889 -
This commit is contained in:
Jonas Maebe 2006-06-18 12:35:44 +00:00
parent 6ed96fd8ad
commit 92c7553818
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/darwin/tthread.inc
View File

@ -175,9 +175,10 @@ begin
WRITE_DEBUG('Thread should be freed');
LThread.Free;
WRITE_DEBUG('Thread freed');
// tthread.destroy already frees all things and terminates the thread
// WRITE_DEBUG('thread func calling EndThread');
// EndThread(Result);
end;
WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end;
{ TThread }
@ -207,18 +208,18 @@ begin
// if someone calls .Free on a thread with
// FreeOnTerminate, then don't crash!
FFreeOnTerminate := false;
if not FFinished and not FSuspended then begin
Terminate;
WaitFor;
end;
if (FInitialSuspended) then begin
if (FInitialSuspended) then
// thread was created suspended but never woken up.
SemaphorePost(FSem);
WaitFor;
end;
Resume;
if not FFinished and not FSuspended then
begin
Terminate;
WaitFor;
end;
FFatalException.Free;
FFatalException := nil;
SemaphoreDestroy(FSem);
{ threadvars have been released by cthreads.ThreadMain -> DoneThread }
inherited Destroy;
end;