ada/gnatdoc
0
0
Fork 0
mirror of https://github.com/AdaCore/gnatdoc.git synced 2026-02-12 13:11:07 -08:00
Code Issues Packages Projects Releases Wiki Activity

Workaround P_Get_Primitives regression.

Browse Source 
Closes eng/ide/gnatdoc#91
This commit is contained in:
Vadim Godunko
2024-10-01 15:08:32 +04:00
parent 9699a039af
commit 92b8fc8ac6
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/frontend/gnatdoc-frontend.adb
View File

@@ -318,7 +318,7 @@ package body GNATdoc.Frontend is
Methods.Include (Subprogram_Ref);
if Node.P_Is_Inherited_Primitive (Subprogram) then
Entity.Dispatching_Inherited.Insert (Subprogram_Ref);
Entity.Dispatching_Inherited.Include (Subprogram_Ref);
else
declare
@@ -327,10 +327,10 @@ package body GNATdoc.Frontend is
begin
if Decls'Length > 1 then
Entity.Dispatching_Overrided.Insert (Subprogram_Ref);
Entity.Dispatching_Overrided.Include (Subprogram_Ref);
else
Entity.Dispatching_Declared.Insert (Subprogram_Ref);
Entity.Dispatching_Declared.Include (Subprogram_Ref);
end if;
end;
end if;