Browse Source

--- Merging r20590 into '.':
U packages/fcl-process/src/pipes.pp

# revisions: 20590
------------------------------------------------------------------------
r20590 | marco | 2012-03-23 13:56:13 +0100 (Fri, 23 Mar 2012) | 2 lines
Changed paths:
M /trunk/packages/fcl-process/src/pipes.pp

* Call inherited in destructors.

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@20592 -

marco 13 years ago
parent
commit
5cf02c9476
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-process/src/pipes.pp

+ 2 - 0
packages/fcl-process/src/pipes.pp

@@ -80,6 +80,7 @@ end;
 destructor TInputPipeStream.Destroy;
 destructor TInputPipeStream.Destroy;
 begin
 begin
   PipeClose (Handle);
   PipeClose (Handle);
+  inherited;
 end;
 end;
 
 
 Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
 Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
@@ -110,6 +111,7 @@ end;
 destructor TOutputPipeStream.Destroy;
 destructor TOutputPipeStream.Destroy;
 begin
 begin
   PipeClose (Handle);
   PipeClose (Handle);
+  inherited;
 end;
 end;
 
 
 Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;
 Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;