--- 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 -

packages/fcl-process/src/pipes.pp

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