[SOLVED] Clean up at Function TProcess.WaitOnExit : Boolean;
lazarus / 64-FPC development

----------------------------------------------------------------------
lagprogramming · 2023-07-13 06:24

packages/fcl-process/src/unix/process.inc has the following function:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i 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  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i 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 · 2023-07-13 07:45

Done, thanks