From df3975589124d3a771f78a3bf7808fda4a06644e Mon Sep 17 00:00:00 2001
From: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 19 Mar 2009 20:14:57 +0000
Subject:   * fixed unix version of tprocess.waitonexit (use unix.waitprocess
 so all     corner cases are properly handled) (mantis #11797)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12923 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-process/src/unix/process.inc | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'packages/fcl-process')

diff --git a/packages/fcl-process/src/unix/process.inc b/packages/fcl-process/src/unix/process.inc
index c1d269e571..82c63d2343 100644
--- a/packages/fcl-process/src/unix/process.inc
+++ b/packages/fcl-process/src/unix/process.inc
@@ -351,10 +351,8 @@ Var
   R : Dword;
 
 begin
-  R:=fpWaitPid(Handle,pcint(@FExitCode),0);
-  Result:=(R=Handle);
-  If Result then
-    FExitCode:=WExitStatus(FExitCode);
+  fexitcode:=waitprocess(handle);
+  Result:=(fexitcode>=0);
   FRunning:=False;
 end;
 
-- 
cgit v1.2.1