[SOLVED] Clean up at procedure
TCustomDaemonApplication.RemoveController
lazarus / 64-FPC development

----------------------------------------------------------------------
lagprogramming · 2023-07-17 10:24

packages/fcl-extra/src/unix/daemonapp.inc has the following procedure:
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 procedure
TCustomDaemonApplication.RemoveController(  AController:
TDaemonController);  Var  I : Integer;  HC : Boolean;  begin 
FreeAndNil(AController.FDaemon);  AController.Free;end;Variables I and
HC are declared but never used.
The following patch removes them, making the procedure look like the
procedure with the same name that can be found in packages/fcl-
extra/src/win/daemonapp.inc
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-extra/src/unix/daemonapp.inc b/packages/fcl-
extra/src/unix/daemonapp.incindex 3022ef44a2..07f3a41409 100644---
a/packages/fcl-extra/src/unix/daemonapp.inc+++ b/packages/fcl-
extra/src/unix/daemonapp.inc@@ -122,10 +122,6 @@ procedure
TCustomDaemonApplication.SysEndRunDaemons; procedure
TCustomDaemonApplication.RemoveController(   AController:
TDaemonController);   -Var-  I : Integer;-  HC : Boolean;-   begin 
 FreeAndNil(AController.FDaemon);   AController.Free;

----------------------------------------------------------------------
avra · 2023-07-17 11:36

There is not a big chance that your patch is applied if you just
publish it in the forum. Bugtracker link on your left is the place to
go and report such things.

----------------------------------------------------------------------
AlexTP · 2023-07-17 15:50

Posted to https://gitlab.com/freepascal.org/fpc/source/-/issues/40355