Drop Has_Pending_Work from Server's API

Refs #1141

Author: reznikmm

source/ada/lsp-ada_indexing.adb

@@ -99,11 +99,7 @@ package body LSP.Ada_Indexing is
                Emit_Progress_Report
                  (Self.Total_Files_Indexed, Self.Total_Files_To_Index);
 
-               --  Check whether another request is pending. If so, pause
-               --  the indexing; it will be resumed later as part of
-               --  After_Request.
-
-               exit when Self.Server.Has_Pending_Work;
+               exit;
             end if;
 
          end;
@@ -142,8 +138,7 @@ package body LSP.Ada_Indexing is
            Handler.Allocate_Progress_Token ("indexing");
          Job   : LSP.Server_Jobs.Server_Job_Access :=
            new Indexing_Job'
-             (Server               => Server,
-              Handler              => Handler,
+             (Handler              => Handler,
               Files_To_Index       => Files,
               Indexing_Token       => Token,
               Total_Files_Indexed  => 0,

source/ada/lsp-ada_indexing.ads

@@ -63,8 +63,7 @@ private
    --        schedule new indexing job
 
    type Indexing_Job
-     (Server  : not null access LSP.Servers.Server'Class;
-      Handler : not null access LSP.Ada_Handlers.Message_Handler'Class) is
+     (Handler : not null access LSP.Ada_Handlers.Message_Handler'Class) is
         new LSP.Server_Jobs.Server_Job with
    record
       Files_To_Index       : File_Sets.Set;

source/server/lsp-servers.adb

@@ -975,17 +975,4 @@ package body LSP.Servers is
       return Self.Look_Ahead;
    end Look_Ahead_Message;
 
-   ----------------------
-   -- Has_Pending_Work --
-   ----------------------
-
-   function Has_Pending_Work (Self : Server) return Boolean is
-      use type Ada.Task_Identification.Task_Id;
-   begin
-      pragma Assert
-        (Ada.Task_Identification.Current_Task = Self.Processing_Task'Identity);
-
-      return Self.Input_Queue_Length > 0;
-   end Has_Pending_Work;
-
 end LSP.Servers;

source/server/lsp-servers.ads

@@ -104,11 +104,6 @@ package LSP.Servers is
    --  Return number of messages pending in Input_Queue.
    --  For debug purposes only!
 
-   function Has_Pending_Work (Self : Server) return Boolean;
-   --  Return True if the server has work in the queue, other than the
-   --  notification/request it's currently processing. This should only be
-   --  called from the processing task.
-
    procedure Enqueue
      (Self : in out Server'Class;
       Job  : in out LSP.Server_Jobs.Server_Job_Access);