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

+ WaitOnExit now really waits. Patch from Vincent Snijders

Browse Source
This commit is contained in:
michael 2004-09-02 06:50:15 +00:00
parent ed49f68542
commit 2c2eb6e018
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/unix/process.inc
View File

@ -53,10 +53,10 @@ begin
ExecVE(S,A);
end;
Function fpWaitPID(H: Longint; P : Pointer; OPts : Longint) : Integer;
Function fpWaitPID(H: Longint; P : Pointer; Opts : Longint) : Integer;
begin
Result:=WaitPID(Handle,@FExitCode,WNOHANG);
Result:=WaitPID(Handle,@FExitCode,Opts);
end;
Function fpKill(PID,SIG : Longint) : Longint;
@ -383,7 +383,7 @@ end;
Function TProcess.WaitOnExit : Dword;
begin
Result:=fpWaitPid(Handle,@FExitCode,WNOHANG);
Result:=fpWaitPid(Handle,@FExitCode,0);
If Result=Handle then
FExitCode:=WexitStatus(FExitCode);
FRunning:=False;