paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Call inherited in destructors.

Browse Source 
git-svn-id: trunk@20590 -
This commit is contained in:
marco 2012-03-23 12:56:13 +00:00
parent 44871bbbbd
commit 86bf5f36ba
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-process/src/pipes.pp
View File

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