paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:00:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch (don't call waitprocess if not running) from Mantis 14707

Browse Source 
git-svn-id: trunk@14022 -
This commit is contained in:
marco 2009-11-03 22:16:39 +00:00
parent 1992daedd5
commit e798f1164d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-process/src/process.pp
View File

@ -187,8 +187,7 @@ end;
Function TProcess.GetExitStatus : Integer; Function TProcess.GetExitStatus : Integer;
begin begin
If FRunning then GetRunning;
PeekExitStatus;
Result:=FExitCode; Result:=FExitCode;
end; end;