File tree Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -96,7 +96,7 @@ package body LSP.Ada_Completions.End_Names is
96
96
when Libadalang.Common.Ada_Accept_Stmt_With_Stmts_Range =>
97
97
98
98
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);
100
100
101
101
when Libadalang.Common.Ada_Select_Stmt_Range =>
102
102
return " select" ;
Original file line number Diff line number Diff line change @@ -2618,7 +2618,8 @@ package body LSP.Ada_Handlers is
2618
2618
2619
2619
if Entry_Decl_Node /= Libadalang.Analysis.No_Entry_Decl then
2620
2620
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);
2622
2623
end loop ;
2623
2624
end if ;
2624
2625
end Resolve_In_Context ;
You can’t perform that action at this time.
0 commit comments