Forum > FPC development

[SOLVED] Clean up at Function TProcess.WaitOnExit : Boolean;

(1/1)

lagprogramming:
packages/fcl-process/src/unix/process.inc has the following function:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---Function TProcess.WaitOnExit : Boolean; Var  R : Dword; begin  if FRunning then    fexitcode:=waitprocess(handle);  Result:=(fexitcode>=0);  FRunning:=False;end;Variable R is declared but never used.
The following patch removes it.

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---diff --git a/packages/fcl-process/src/unix/process.inc b/packages/fcl-process/src/unix/process.incindex 442c68411b..d99fef48e9 100644--- a/packages/fcl-process/src/unix/process.inc+++ b/packages/fcl-process/src/unix/process.inc@@ -455,9 +455,6 @@ procedure TProcess.CloseProcessHandles;  Function TProcess.WaitOnExit : Boolean; -Var-  R : Dword;- begin   if FRunning then     fexitcode:=waitprocess(handle);

marcov:
Done, thanks

Navigation

[0] Message Index