瀏覽代碼

* remove redundant variable reported by Lagprogramming on forum.

(cherry picked from commit 2628a6ee17de65f18e6b4148a601cd35ec331717)
marcoonthegit 2 年之前
父節點
當前提交
49c96f4629
共有 1 個文件被更改,包括 0 次插入4 次删除
  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;
 
 Function TProcess.WaitOnExit : Boolean;
-
-Var
-  R : Dword;
-
 begin
   if FRunning then
     fexitcode:=waitprocess(handle);