diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-03-19 20:14:57 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-03-19 20:14:57 +0000 |
| commit | df3975589124d3a771f78a3bf7808fda4a06644e (patch) | |
| tree | 19650cfcf45e2fdce72dfdc0153fbcd4fdc32a9c /packages/fcl-process/src | |
| parent | ce6e9e5d1ed52c50c8a3d9cfee552e0320031c9c (diff) | |
| download | fpc-df3975589124d3a771f78a3bf7808fda4a06644e.tar.gz | |
* 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
Diffstat (limited to 'packages/fcl-process/src')
| -rw-r--r-- | packages/fcl-process/src/unix/process.inc | 6 |
1 files changed, 2 insertions, 4 deletions
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; |