We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents f263511 + 297bd25 commit 8f03a47Copy full SHA for 8f03a47
source/gnatdoc-comments-helpers.adb
@@ -570,6 +570,14 @@ package body GNATdoc.Comments.Helpers is
570
end if;
571
end loop;
572
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
581
-- Exclude incomplete type declaration code snippets when documentation
582
-- is requested for complete type declaration.
583
0 commit comments