diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-03 22:16:39 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-03 22:16:39 +0000 |
commit | 1e1d893e776c55f13348221710b7d258a6f23ec2 (patch) | |
tree | 220cb7d0db610d70f7fb40e7cd2af85e50f65084 | |
parent | 5a147e83ccec28cd881375bfd354ceaa4b3e9715 (diff) | |
download | fpc-1e1d893e776c55f13348221710b7d258a6f23ec2.tar.gz |
* patch (don't call waitprocess if not running) from Mantis 14707
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14022 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-process/src/process.pp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/packages/fcl-process/src/process.pp b/packages/fcl-process/src/process.pp index fd51639424..9b533a9951 100644 --- a/packages/fcl-process/src/process.pp +++ b/packages/fcl-process/src/process.pp @@ -187,8 +187,7 @@ end; Function TProcess.GetExitStatus : Integer; begin - If FRunning then - PeekExitStatus; + GetRunning; Result:=FExitCode; end; |