Use proper Get_Diagnostics function name

For eng/ide/ada_language_server#1593

Author: AnthonyLeonardoGracio

source/ada/lsp-ada_documents-lal_diagnostics.adb

@@ -29,7 +29,7 @@ package body LSP.Ada_Documents.LAL_Diagnostics is
    -- Get_Diagnostic --
    --------------------
 
-   overriding procedure Get_Diagnostic
+   overriding procedure Get_Diagnostics
      (Self    : in out Diagnostic_Source;
       Context : LSP.Ada_Contexts.Context;
       Errors  : out LSP.Structures.Diagnostic_Vector)
@@ -49,7 +49,7 @@ package body LSP.Ada_Documents.LAL_Diagnostics is
 
          Errors.Append (Item);
       end loop;
-   end Get_Diagnostic;
+   end Get_Diagnostics;
 
    ------------------------
    -- Has_New_Diagnostic --

source/ada/lsp-ada_documents-lal_diagnostics.ads

@@ -26,7 +26,7 @@ package LSP.Ada_Documents.LAL_Diagnostics is
       Document : not null LSP.Ada_Documents.Document_Access)
    is limited new LSP.Diagnostic_Sources.Diagnostic_Source with private;
 
-   overriding procedure Get_Diagnostic
+   overriding procedure Get_Diagnostics
      (Self    : in out Diagnostic_Source;
       Context : LSP.Ada_Contexts.Context;
       Errors  : out LSP.Structures.Diagnostic_Vector);

source/ada/lsp-ada_documents-source_info_diagnostics.adb

@@ -43,12 +43,12 @@ package body LSP.Ada_Documents.Source_Info_Diagnostics is
       return False;
    end Has_New_Diagnostic;
 
-   --------------------
+   ---------------------
    -- Get_Diagnostics --
-   --------------------
+   ---------------------
 
    overriding
-   procedure Get_Diagnostic
+   procedure Get_Diagnostics
      (Self    : in out Diagnostic_Source;
       Context : LSP.Ada_Contexts.Context;
       Errors  : out LSP.Structures.Diagnostic_Vector)
@@ -78,7 +78,7 @@ package body LSP.Ada_Documents.Source_Info_Diagnostics is
                   others   => <>));
          end;
       end if;
-   end Get_Diagnostic;
+   end Get_Diagnostics;
 
    ----------------
    -- Is_Enabled --

source/ada/lsp-ada_documents-source_info_diagnostics.ads

@@ -28,7 +28,7 @@ package LSP.Ada_Documents.Source_Info_Diagnostics is
       Document : not null LSP.Ada_Documents.Document_Access)
    is limited new LSP.Diagnostic_Sources.Diagnostic_Source with private;
 
-   overriding procedure Get_Diagnostic
+   overriding procedure Get_Diagnostics
      (Self    : in out Diagnostic_Source;
       Context : LSP.Ada_Contexts.Context;
       Errors  : out LSP.Structures.Diagnostic_Vector);

source/ada/lsp-ada_documents.adb

@@ -966,7 +966,7 @@ package body LSP.Ada_Documents is
 
       if Changed or else Force then
          for Source of Self.Diagnostic_Sources loop
-            Source.Get_Diagnostic (Context, Errors);
+            Source.Get_Diagnostics (Context, Errors);
          end loop;
       end if;
    end Get_Errors;

source/ada/lsp-diagnostic_sources.ads

@@ -33,7 +33,7 @@ package LSP.Diagnostic_Sources is
         LSP.Diagnostic_Sources.Diagnostic_Source_Access,
         LSP.Diagnostic_Sources."=");
 
-   procedure Get_Diagnostic
+   procedure Get_Diagnostics
      (Self    : in out Diagnostic_Source;
       Context : LSP.Ada_Contexts.Context;
       Errors  : out LSP.Structures.Diagnostic_Vector) is abstract;