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

+ Applied FreeStreams fix from Mattias Gaertner

Browse Source
This commit is contained in:
michael 2001-12-15 20:01:16 +00:00
parent d523c74b01
commit 708a10065a
1 changed files with 28 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
fcl/inc/process.pp
View File

@ -254,13 +254,31 @@ end;
Procedure TProcess.FreeStreams;
var FreedStreams: TList;
procedure FreeStream(var AnObject: TObject);
begin
if FreedStreams.IndexOf(AnObject)<0 then
begin
FreedStreams.Add(AnObject);
AnObject.Free;
end;
AnObject:=nil;
end;
begin
FParentErrorStream.Free;
FParentInputSTream.Free;
FParentOutputStream.Free;
FChildErrorStream.free;
FChildInputSTream.Free;
FChildOutPutStream.Free;
FreedStreams:=TList.Create;
try
FreeStream(FParentErrorStream);
FreeStream(FParentInputStream);
FreeStream(FParentOutputStream);
FreeStream(FChildErrorStream);
FreeStream(FChildInputStream);
FreeStream(FChildOutputStream);
finally
FreedStreams.Free;
end;
end;
Function TProcess.GetExitStatus : Integer;
@ -899,7 +917,10 @@ end;
end.
{
$Log$
Revision 1.11 2001-12-15 19:53:37 michael
Revision 1.12 2001-12-15 20:01:16 michael
+ Applied FreeStreams fix from Mattias Gaertner
Revision 1.11 2001/12/15 19:53:37 michael
+ Removed DWord and THandle
Revision 1.10 2001/12/14 07:53:32 michael