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

* Redir.ExecuteProcess uses TProcess.WaitFor with timeout for FPC > 3.0

Browse Source 
git-svn-id: trunk@32992 -
This commit is contained in:
florian 2016-01-24 09:39:23 +00:00
parent bdbdee6acf
commit 2e506ec4ac
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/utils/redir.pp
View File

@ -1093,12 +1093,17 @@ begin
P.InheritHandles:=(execinheritshandles in flags); P.InheritHandles:=(execinheritshandles in flags);
P.Execute; P.Execute;
{$ifdef VER3_0}
{$ifdef Windows} {$ifdef Windows}
WaitForSingleObject(P.ProcessHandle,max_count); WaitForSingleObject(P.ProcessHandle,max_count);
counter:=max_count; counter:=max_count;
{$else not Windows} {$else not Windows}
counter:=0; counter:=0;
{$endif not Windows} {$endif not Windows}
{$else}
P.WaitForExit(max_count);
counter:=max_count;
{$endif}
while P.Running do while P.Running do
begin begin