paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 15:09:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed leaking of TThread

Browse Source 
git-svn-id: trunk@3519 -
This commit is contained in:
florian 2006-05-14 09:15:09 +00:00
parent 6f1e0eff45
commit 33baacbe04
13 changed files with 18 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/darwin/tthread.inc
View File

@ -176,7 +176,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'); WRITE_DEBUG('Thread freed');
end; end;
WRITE_DEBUG('thread func exiting'); WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end; end;
{ TThread } { TThread }

3
rtl/freebsd/tthread.inc
View File

@ -181,7 +181,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'); WRITE_DEBUG('Thread freed');
end; end;
WRITE_DEBUG('thread func exiting'); WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end; end;
{ TThread } { TThread }

3
rtl/linux/tthread.inc
View File

@ -181,7 +181,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'); WRITE_DEBUG('Thread freed');
end; end;
WRITE_DEBUG('thread func exiting'); WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end; end;
{ TThread } { TThread }

20
rtl/morphos/tthread.inc
View File

@ -91,26 +91,6 @@ begin
end; end;
function ThreadProc(Args: pointer): Integer; cdecl;
var
FreeThread: Boolean;
Thread: TThread absolute Args;
begin
try
Thread.Execute;
except
Thread.FFatalException := TObject(AcquireExceptionObject);
end;
FreeThread := Thread.FFreeOnTerminate;
Result := Thread.FReturnValue;
Thread.FFinished := True;
Thread.DoTerminate;
if FreeThread then Thread.Free;
{
DosExit (deThread, Result);
}
end;
constructor TThread.Create(CreateSuspended: Boolean; constructor TThread.Create(CreateSuspended: Boolean;
const StackSize: SizeUInt = DefaultStackSize); const StackSize: SizeUInt = DefaultStackSize);
var var

3
rtl/netbsd/tthread.inc
View File

@ -172,7 +172,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'); WRITE_DEBUG('Thread freed');
end; end;
WRITE_DEBUG('thread func exiting'); WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end; end;
{ TThread } { TThread }

24
rtl/netware/tthread.inc
View File

@ -125,30 +125,6 @@ begin
end; end;
{ TThread }
function ThreadProc(args:pointer): Integer;
var
FreeThread: Boolean;
Thread : TThread absolute args;
begin
try
Thread.Execute;
except
Thread.FFatalException := TObject(AcquireExceptionObject);
end;
FreeThread := Thread.FFreeOnTerminate;
ThreadProc := Thread.FReturnValue;
Thread.FFinished := True;
Thread.DoTerminate;
if FreeThread then
begin
Thread.Destroy;
Thread.Free;
end;
EndThread(Result);
end;
constructor TThread.Create(CreateSuspended: Boolean; constructor TThread.Create(CreateSuspended: Boolean;
const StackSize: SizeUInt = DefaultStackSize); const StackSize: SizeUInt = DefaultStackSize);
var var

3
rtl/netwlibc/tthread.inc
View File

@ -247,7 +247,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'#13#10); WRITE_DEBUG('Thread freed'#13#10);
end; end;
WRITE_DEBUG('thread func exiting'#13#10); WRITE_DEBUG('thread func calling EndThread'#13#10);
EndThread(Result);
end; end;
{ TThread } { TThread }

3
rtl/openbsd/tthread.inc
View File

@ -182,7 +182,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'); WRITE_DEBUG('Thread freed');
end; end;
WRITE_DEBUG('thread func exiting'); WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end; end;
{ TThread } { TThread }

18
rtl/os2/tthread.inc
View File

@ -155,24 +155,6 @@ begin
end; end;
function ThreadProc(Args: pointer): Integer; cdecl;
var
FreeThread: Boolean;
Thread: TThread absolute Args;
begin
try
Thread.Execute;
except
Thread.FFatalException := TObject(AcquireExceptionObject);
end;
FreeThread := Thread.FFreeOnTerminate;
Result := Thread.FReturnValue;
Thread.FFinished := True;
Thread.DoTerminate;
if FreeThread then Thread.Free;
DosExit (deThread, Result);
end;
constructor TThread.Create(CreateSuspended: Boolean; constructor TThread.Create(CreateSuspended: Boolean;
const StackSize: SizeUInt = DefaultStackSize); const StackSize: SizeUInt = DefaultStackSize);
var var

3
rtl/solaris/tthread.inc
View File

@ -176,7 +176,8 @@ begin
LThread.Free; LThread.Free;
WRITE_DEBUG('Thread freed'); WRITE_DEBUG('Thread freed');
end; end;
WRITE_DEBUG('thread func exiting'); WRITE_DEBUG('thread func calling EndThread');
EndThread(Result);
end; end;
{ TThread } { TThread }

1
rtl/win/systhrd.inc
View File

@ -112,7 +112,6 @@ CONST
end; end;
{***************************************************************************** {*****************************************************************************
Thread starting Thread starting
*****************************************************************************} *****************************************************************************}

26
rtl/win/tthread.inc
View File

@ -85,34 +85,15 @@ procedure AddThread;
begin begin
if ThreadCount = 0 then if ThreadCount = 0 then
ThreadWindow := AllocateWindow; ThreadWindow := AllocateWindow;
Inc(ThreadCount); InterlockedIncrement(ThreadCount);
end; end;
procedure RemoveThread; procedure RemoveThread;
begin begin
Dec(ThreadCount); if InterlockedDecrement(ThreadCount)=0 then
if ThreadCount = 0 then
PostMessage(ThreadWindow, CM_DESTROYWINDOW, 0, 0); PostMessage(ThreadWindow, CM_DESTROYWINDOW, 0, 0);
end; end;
{ TThread }
function ThreadProc(ThreadObjPtr: Pointer): PtrInt;
var
FreeThread: Boolean;
Thread: TThread absolute ThreadObjPtr;
begin
try
Thread.Execute;
except
Thread.FFatalException := TObject(AcquireExceptionObject);
end;
FreeThread := Thread.FFreeOnTerminate;
Result := Thread.FReturnValue;
Thread.FFinished := True;
Thread.DoTerminate;
if FreeThread then Thread.Free;
end;
constructor TThread.Create(CreateSuspended: Boolean; constructor TThread.Create(CreateSuspended: Boolean;
const StackSize: SizeUInt = DefaultStackSize); const StackSize: SizeUInt = DefaultStackSize);
@ -182,7 +163,8 @@ procedure TThread.SetSuspended(Value: Boolean);
begin begin
if Value <> FSuspended then if Value <> FSuspended then
if Value then if Value then
Suspend else Suspend
else
Resume; Resume;
end; end;

17
rtl/wince/tthread.inc
View File

@ -97,23 +97,6 @@ end;
{ TThread } { TThread }
function ThreadProc(ThreadObjPtr: Pointer): Integer;
var
FreeThread: Boolean;
Thread: TThread absolute ThreadObjPtr;
begin
try
Thread.Execute;
except
Thread.FFatalException := TObject(AcquireExceptionObject);
end;
FreeThread := Thread.FFreeOnTerminate;
Result := Thread.FReturnValue;
Thread.FFinished := True;
Thread.DoTerminate;
if FreeThread then Thread.Free;
end;
constructor TThread.Create(CreateSuspended: Boolean; const StackSize: SizeUInt = DefaultStackSize); constructor TThread.Create(CreateSuspended: Boolean; const StackSize: SizeUInt = DefaultStackSize);
var var
Flags: Integer; Flags: Integer;