paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 10:40:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* manually added the fix done in main in f35a565f4e

Browse Source
This commit is contained in:
florian 2024-07-30 19:16:31 +02:00
parent ae0f84fdd5
commit a740983769
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@ Function TProcessnamemacro.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;