Browse Source

* remove redundant variable reported by Lagprogramming on forum.

marcoonthegit 2 years ago
parent
commit
2628a6ee17
1 changed files with 0 additions and 4 deletions
  1. 0 4
      packages/fcl-process/src/unix/process.inc

+ 0 - 4
packages/fcl-process/src/unix/process.inc

@@ -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);