Merge branch 'topic/gnatcheck/adapt_to_gpr2' into 'master'

Adapt GNATcheck sources to the "gpr2-build-view_db.ads" update See merge request eng/libadalang/langkit-query-language!401
AdaCore · Feb 6, 2025 · b58c835 · b58c835
2 parents a67b85c + 1cc7bc0
commit b58c835
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lkql_checker/src/gnatcheck-source_table.adb b/lkql_checker/src/gnatcheck-source_table.adb
@@ -238,11 +238,12 @@ package body Gnatcheck.Source_Table is
       First_Idx : Natural;
       Last_Idx  : Natural;
 
-      Root : constant GPR2.Project.View.Object :=
+      Ambiguous : Boolean;
+      Root      : constant GPR2.Project.View.Object :=
         Arg_Project.Tree.Namespace_Root_Projects.First_Element;
-      Res : constant GPR2.Build.Source.Object :=
+      Res       : constant GPR2.Build.Source.Object :=
         Root.View_Db.Visible_Source
-          (GPR2.Path_Name.Simple_Name (Filename_Type (Fname)));
+          (GPR2.Path_Name.Simple_Name (Filename_Type (Fname)), Ambiguous);
    begin
       Free (Full_Source_Name_String);
       Free (Short_Source_Name_String);