diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-03 22:15:29 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-03 22:15:29 +0000 |
| commit | e1549d2abed20ebe9473c03ab32a1ffe059ab2de (patch) | |
| tree | a88e1df03a4f04daf0346147c149f0c11bf34344 /packages/fcl-process | |
| parent | a97a70b2e6cac4841aa8f8627aa11d9589ccb8eb (diff) | |
| download | fpc-e1549d2abed20ebe9473c03ab32a1ffe059ab2de.tar.gz | |
* Patch from Mantis 14709
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14020 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-process')
| -rw-r--r-- | packages/fcl-process/src/unix/process.inc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-process/src/unix/process.inc b/packages/fcl-process/src/unix/process.inc index 70cf4f5451..5e10c63111 100644 --- a/packages/fcl-process/src/unix/process.inc +++ b/packages/fcl-process/src/unix/process.inc @@ -371,7 +371,8 @@ Var R : Dword; begin - fexitcode:=waitprocess(handle); + if FRunning then + fexitcode:=waitprocess(handle); Result:=(fexitcode>=0); FRunning:=False; end; |