Skip to content

Commit 1cc7bc0

Browse files
HugoGGuerrierpmderodat
authored andcommitted
Adapt GNATcheck sources to the 'gpr2-build-view_db.ads' update
Following eng/gpr/gpr!497
1 parent a67b85c commit 1cc7bc0

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

lkql_checker/src/gnatcheck-source_table.adb

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -238,11 +238,12 @@ package body Gnatcheck.Source_Table is
238238
First_Idx : Natural;
239239
Last_Idx : Natural;
240240

241-
Root : constant GPR2.Project.View.Object :=
241+
Ambiguous : Boolean;
242+
Root : constant GPR2.Project.View.Object :=
242243
Arg_Project.Tree.Namespace_Root_Projects.First_Element;
243-
Res : constant GPR2.Build.Source.Object :=
244+
Res : constant GPR2.Build.Source.Object :=
244245
Root.View_Db.Visible_Source
245-
(GPR2.Path_Name.Simple_Name (Filename_Type (Fname)));
246+
(GPR2.Path_Name.Simple_Name (Filename_Type (Fname)), Ambiguous);
246247
begin
247248
Free (Full_Source_Name_String);
248249
Free (Short_Source_Name_String);

0 commit comments

Comments
 (0)