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

* free fsem and feventsection in TEventObject destructor (please check

Browse Source 
win32/wince too, it seems they don't free the handle that's allocated
    in their constructor either)

git-svn-id: trunk@3017 -
This commit is contained in:
Jonas Maebe 2006-03-22 21:51:36 +00:00
parent 1e3137c315
commit 1c9377470a
5 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/darwin/syncobjs.pp
View File

@ -120,6 +120,8 @@ destructor TEventObject.destroy;
begin
sem_destroy(psem_t(FSem));
dispose(FSem);
FEventSection.Free;
end;
procedure TEventObject.ResetEvent;

2
fcl/freebsd/syncobjs.pp
View File

@ -120,6 +120,8 @@ destructor TEventObject.destroy;
begin
sem_destroy(psem_t(FSem));
dispose(FSem);
FEventSection.Free;
end;
procedure TEventObject.ResetEvent;

2
fcl/linux/syncobjs.pp
View File

@ -120,6 +120,8 @@ destructor TEventObject.destroy;
begin
sem_destroy(FSem);
dispose(FSem);
FEventSection.Free;
end;
procedure TEventObject.ResetEvent;

2
fcl/netwlibc/syncobjs.pp
View File

@ -119,6 +119,8 @@ destructor TEventObject.destroy;
begin
sem_destroy(FSem);
dispose(FSem);
FEventSection.Free;
end;
procedure TEventObject.ResetEvent;

2
fcl/solaris/syncobjs.pp
View File

@ -120,6 +120,8 @@ destructor TEventObject.destroy;
begin
sem_destroy(psem_t(FSem));
dispose(FSem);
FEventSection.Free;
end;
procedure TEventObject.ResetEvent;