Update to latest LAL API for accept statements

Author: joaopsazevedo

source/ada/lsp-ada_completions-end_names.adb

@@ -96,7 +96,7 @@ package body LSP.Ada_Completions.End_Names is
             when Libadalang.Common.Ada_Accept_Stmt_With_Stmts_Range =>
 
                return VSS.Strings.To_Virtual_String
-                 (Node.As_Accept_Stmt_With_Stmts.F_Name.Text);
+                 (Node.As_Accept_Stmt_With_Stmts.F_Body_Decl.F_Name.Text);
 
             when Libadalang.Common.Ada_Select_Stmt_Range =>
                return "select";

source/ada/lsp-ada_handlers.adb

@@ -2618,7 +2618,8 @@ package body LSP.Ada_Handlers is
 
          if Entry_Decl_Node /= Libadalang.Analysis.No_Entry_Decl then
             for Accept_Node of Entry_Decl_Node.P_Accept_Stmts loop
-               Append_Location (Response.result, Accept_Node.F_Name);
+               Append_Location
+                 (Response.result, Accept_Node.F_Body_Decl.F_Name);
             end loop;
          end if;
       end Resolve_In_Context;