paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 23:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Extra check for poStdErrToStdOut

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-15 14:00:42 +01:00
parent 58f9dc27ea
commit 3165409337
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-process/src/unix/process.inc
View File

@ -347,7 +347,8 @@ Var
begin
FDescriptors[phtInput].PrepareHandles;
FDescriptors[phtOutput].PrepareHandles;
FDescriptors[phtError].PrepareHandles;
if not (poStderrToOutPut in Options) then
FDescriptors[phtError].PrepareHandles;
Try
if FEnvironment.Count<>0 then
FEnv:=StringsToPcharList(FEnvironment)
@ -462,7 +463,8 @@ begin
// Writeln(system.StdErr,'fork closing our handles');
FDescriptors[phtInput].CloseTheirHandle;
FDescriptors[phtOutput].CloseTheirHandle;
FDescriptors[phtError].CloseTheirHandle;
if not (poStderrToOutPut in Options) then
FDescriptors[phtError].CloseTheirHandle;
end;
FRunning:=True;
if not (csDesigning in ComponentState) and // This would hang the IDE !