Procházet zdrojové kódy

+ WaitOnExit now really waits. Patch from Vincent Snijders

michael před 21 roky
rodič
revize
2c2eb6e018
1 změnil soubory, kde provedl 3 přidání a 3 odebrání
  1. 3 3
      fcl/unix/process.inc

+ 3 - 3
fcl/unix/process.inc

@@ -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;