Adapt to Libadalang changes under V104-012

Author: setton

source/ada/lsp-ada_completions-parameters.adb

@@ -406,7 +406,7 @@ package body LSP.Ada_Completions.Parameters is
          return Res;
       end if;
 
-      if Aggr_Type.Kind in Ada_Type_Decl_Range then
+      if Aggr_Type.Kind in Ada_Type_Decl then
          declare
             Base_Type  : constant Base_Type_Decl :=
               Aggr_Type.P_Base_Type (Origin => A);

source/ada/lsp-ada_handlers-named_parameters_commands.adb

@@ -321,7 +321,7 @@ package body LSP.Ada_Handlers.Named_Parameters_Commands is
 
                   if TD.Is_Null
                     or else
-                      not (TD.Kind in Libadalang.Common.Ada_Type_Decl_Range)
+                      not (TD.Kind in Libadalang.Common.Ada_Type_Decl)
                   then
                      return Libadalang.Analysis.No_Base_Subp_Spec;
                   end if;

source/ada/lsp-ada_handlers.adb

@@ -1288,7 +1288,7 @@ package body LSP.Ada_Handlers is
                   TD := TE.As_Subtype_Indication.P_Designated_Type_Decl;
 
                   if TD.Is_Null
-                    or else not (TD.Kind in Ada_Type_Decl_Range)
+                    or else not (TD.Kind in Ada_Type_Decl)
                   then
                      return False;
                   end if;

source/ada/lsp-lal_utils.adb

@@ -325,7 +325,8 @@ package body LSP.Lal_Utils is
               Ada_Task_Body =>
             return LSP.Messages.Module;
 
-         when Ada_Type_Decl =>
+         when Ada_Concrete_Type_Decl |
+              Ada_Formal_Type_Decl =>
             return (if Laltools.Common.Is_Structure (Node)
                     then LSP.Messages.Struct
                     else LSP.Messages.Class);