mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 03:59:13 +02:00
* remove redundant variable reported by Lagprogramming on forum.
This commit is contained in:
parent
4beda764aa
commit
2628a6ee17
@ -454,10 +454,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
Function TProcess.WaitOnExit : Boolean;
|
Function TProcess.WaitOnExit : Boolean;
|
||||||
|
|
||||||
Var
|
|
||||||
R : Dword;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
if FRunning then
|
if FRunning then
|
||||||
fexitcode:=waitprocess(handle);
|
fexitcode:=waitprocess(handle);
|
||||||
|
Loading…
Reference in New Issue
Block a user