Skip to content

Commit ac18f38

Browse files
committed
Update to latest LAL API for accept statements
1 parent bf09644 commit ac18f38

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

source/ada/lsp-ada_completions-end_names.adb

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,7 +96,7 @@ package body LSP.Ada_Completions.End_Names is
9696
when Libadalang.Common.Ada_Accept_Stmt_With_Stmts_Range =>
9797

9898
return VSS.Strings.To_Virtual_String
99-
(Node.As_Accept_Stmt_With_Stmts.F_Name.Text);
99+
(Node.As_Accept_Stmt_With_Stmts.F_Body_Decl.F_Name.Text);
100100

101101
when Libadalang.Common.Ada_Select_Stmt_Range =>
102102
return "select";

source/ada/lsp-ada_handlers.adb

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2618,7 +2618,8 @@ package body LSP.Ada_Handlers is
26182618

26192619
if Entry_Decl_Node /= Libadalang.Analysis.No_Entry_Decl then
26202620
for Accept_Node of Entry_Decl_Node.P_Accept_Stmts loop
2621-
Append_Location (Response.result, Accept_Node.F_Name);
2621+
Append_Location
2622+
(Response.result, Accept_Node.F_Body_Decl.F_Name);
26222623
end loop;
26232624
end if;
26242625
end Resolve_In_Context;

0 commit comments

Comments
 (0)