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

* fix condition to match the comment

Browse Source
This commit is contained in:
florian 2024-07-29 17:38:36 +02:00
parent 951d2f3942
commit f35a565f4e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-process/src/win/process.inc
View File

@ -44,7 +44,7 @@ Function TProcess.PeekExitStatus : Boolean;
begin
Result:=GetExitCodeProcess(ProcessHandle,FExitCode) and (FExitCode<>Still_Active);
// wait up to 10ms extra till process really done to get rest of input bug #39821
if not Result Then
if Result Then
WaitForSingleObject(FProcessHandle,10);
end;
@ -188,7 +188,7 @@ Var
AllDescriptorsDefault :=
(FDescriptors[phtInput].IOType = iotDefault) and
(FDescriptors[phtOutput].IOType = iotDefault) and
(FDescriptors[phtError].IOType = iotDefault) and
(FDescriptors[phtError].IOType = iotDefault) and
not (poStdErrToOutput in Options);
FDescriptors[phtInput].PrepareHandles;
FDescriptors[phtOutput].PrepareHandles;
@ -245,7 +245,7 @@ Var
Raise EProcess.CreateFmt(SErrCannotExecute,[FCommandLine,GetLastError]);
FProcessHandle:=FProcessInformation.hProcess;
FThreadHandle:=FProcessInformation.hThread;
FThreadId:=FProcessInformation.dwThreadId;
FThreadId:=FProcessInformation.dwThreadId;
FProcessID:=FProcessINformation.dwProcessID;
Finally
FDescriptors[phtInput].CloseTheirHandle;
@ -351,7 +351,7 @@ function TIODescriptor.SysPrepareCreatedHandleForProcess(aHandle: THandle): THan
var
oldHandle: THandle;
Res : Boolean;
begin
if (IOType in [iotDefault,iotFile]) or ((IOType=iotHandle) and FCustomHandleIsInheritable) then
begin
@ -359,7 +359,7 @@ begin
exit;
end;
oldHandle := ahandle;
ahandle:=THandle(INVALID_HANDLE_VALUE);
ahandle:=THandle(INVALID_HANDLE_VALUE);
Res := DuplicateHandle
( GetCurrentProcess(),
oldHandle,
@ -382,7 +382,7 @@ begin
Raise EProcess.CreateFmt('Could not make handle %d inheritable',[aHandle]);
end;
Result:=aHandle;
end;
end;
function TIODescriptor.SysNullFileName: string;
begin