V624-007: Fix memory leak on server finalization

Author: Anthony Leonardo Gracio

source/ada/lsp-ada_driver.adb

@@ -348,6 +348,7 @@ begin
       end;
    end if;
 
+   Ada_Handler.Stop_File_Monitoring;
    Server.Finalize;
    if Clean_ALS_Dir then
       Ada_Handler.Clean_Logs (ALS_Dir);

source/ada/lsp-ada_handlers.adb

@@ -507,17 +507,24 @@ package body LSP.Ada_Handlers is
       Self.Total_Files_Indexed := 0;
    end Release_Contexts_And_Project_Info;
 
+   --------------------------
+   -- Stop_File_Monitoring --
+   --------------------------
+
+   procedure Stop_File_Monitoring (Self : access Message_Handler) is
+   begin
+      if Self.File_Monitor.Assigned then
+         Self.File_Monitor.Stop_Monitoring_Directories;
+      end if;
+   end Stop_File_Monitoring;
+
    -------------
    -- Cleanup --
    -------------
 
    procedure Cleanup (Self : access Message_Handler)
    is
    begin
-      if Self.File_Monitor.Assigned then
-         Self.File_Monitor.Stop_Monitoring_Directories;
-      end if;
-
       --  Cleanup documents
       for Document of Self.Open_Documents loop
          Free (Document);

source/ada/lsp-ada_handlers.ads

@@ -61,6 +61,8 @@ package LSP.Ada_Handlers is
    --  This procedure will be called when an unexpected error is raised in the
    --  request processing loop.
 
+   procedure Stop_File_Monitoring (Self : access Message_Handler);
+
    procedure Cleanup (Self : access Message_Handler);
    --  Free memory referenced by Self