Quellcode durchsuchen

* free fsem and feventsection in TEventObject destructor (please check
win32/wince too, it seems they don't free the handle that's allocated
in their constructor either)

git-svn-id: trunk@3017 -

Jonas Maebe vor 19 Jahren
Ursprung
Commit
1c9377470a
5 geänderte Dateien mit 10 neuen und 0 gelöschten Zeilen
  1. 2 0
      fcl/darwin/syncobjs.pp
  2. 2 0
      fcl/freebsd/syncobjs.pp
  3. 2 0
      fcl/linux/syncobjs.pp
  4. 2 0
      fcl/netwlibc/syncobjs.pp
  5. 2 0
      fcl/solaris/syncobjs.pp

+ 2 - 0
fcl/darwin/syncobjs.pp

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

+ 2 - 0
fcl/freebsd/syncobjs.pp

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

+ 2 - 0
fcl/linux/syncobjs.pp

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

+ 2 - 0
fcl/netwlibc/syncobjs.pp

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

+ 2 - 0
fcl/solaris/syncobjs.pp

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