paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 17:27:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Dont close FStartupInfo.hStdError if options include poStdErrToOutPut

Browse Source
This commit is contained in:
armin 2003-05-08 20:04:16 +00:00
parent dc45df320a
commit 73abda87e6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/inc/process.pp
View File

@ -708,7 +708,8 @@ begin
begin
FileClose(FStartupInfo.hStdInput);
FileClose(FStartupInfo.hStdOutput);
FileClose(FStartupInfo.hStdError);
if Not (poStdErrToOutPut in FProcessOptions) then
FileClose(FStartupInfo.hStdError);
end;
{$ifdef unix}
Fhandle:=fprocessinformation.hProcess;
@ -917,7 +918,10 @@ end;
end.
{
$Log$
Revision 1.14 2003-04-27 21:21:42 sg
Revision 1.15 2003-05-08 20:04:16 armin
* Dont close FStartupInfo.hStdError if options include poStdErrToOutPut
Revision 1.14 2003/04/27 21:21:42 sg
* Added typecast to prevent range check error in TProcess.WaitOnExit
Revision 1.13 2002/09/07 15:15:25 peter