Skip to content

Commit 8f03a47

Browse files
Merge branch 'topic/vadim/lal' into 'master'
Ignore accept statement. Closes ada_language_server#1745 See merge request eng/ide/gnatdoc!212
2 parents f263511 + 297bd25 commit 8f03a47

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

source/gnatdoc-comments-helpers.adb

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -570,6 +570,14 @@ package body GNATdoc.Comments.Helpers is
570570
end if;
571571
end loop;
572572

573+
-- eng/libadalang/libadalang#1643: ignore accept statement, LAL returns
574+
-- it as most visible part.
575+
576+
if Most_Visible_Decl.Parent.Kind = Ada_Accept_Stmt_Body then
577+
Most_Visible_Index := @ - 1;
578+
Most_Visible_Decl := All_Decls (Most_Visible_Index);
579+
end if;
580+
573581
-- Exclude incomplete type declaration code snippets when documentation
574582
-- is requested for complete type declaration.
575583

0 commit comments

Comments
 (0)