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

Fix construction of the list of all project files.

Browse Source
This commit is contained in:
Vadim Godunko
2024-09-26 17:09:55 +04:00
parent f831fd26bd
commit 61ad57baad
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/gnatdoc/gnatdoc-projects.adb
View File

@@ -267,9 +267,7 @@ package body GNATdoc.Projects is
begin
-- Create a set containing all valid project names
for View of Project_Tree.Root_Project.Closure
(Include_Self => True)
loop
for View of Project_Tree.Ordered_Views loop
Project_Names.Include (View.Path_Name.Virtual_File);
end loop;
@@ -290,7 +288,6 @@ package body GNATdoc.Projects is
(Base_Name => GNATCOLL.VFS.Filesystem_String (Item.Text),
Base_Dir =>
Project_Tree.Root_Project.Dir_Name.Filesystem_String);
if not Project_Names.Contains (This_File) then
Report_Error_On_Attribute
("unable to resolve project file path specified in "