Browse Source

+ WaitOnExit now really waits. Patch from Vincent Snijders

michael 21 years ago
parent
commit
2c2eb6e018
1 changed files with 3 additions and 3 deletions
  1. 3 3
      fcl/unix/process.inc

+ 3 - 3
fcl/unix/process.inc

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