Adapt to new GPR2 API

The Current_Directory parameter of the Default_Search_Paths
function has been removed.

For eng/ide/ada_language_server#1752
This commit is contained in:
Anthony Leonardo Gracio
2025-12-22 10:20:03 +00:00
parent f8743c7134
commit 4094bd6419
2 changed files with 2 additions and 2 deletions

View File

@@ -1698,7 +1698,7 @@ package body LSP.GPR_Files is
function Search_Paths (Self : File) return GPR2.Path_Name.Set.Object is
Result : GPR2.Path_Name.Set.Object;
begin
Result := GPR2.Project.Default_Search_Paths (False, Environment);
Result := GPR2.Project.Default_Search_Paths (Environment);
for Path of Self.Prepended loop
Result.Prepend (Path);
end loop;

View File

@@ -599,7 +599,7 @@ private
Prepended : GPR2.Path_Name.Set.Object :=
GPR2.Project.Default_Search_Paths
(False, GPR2.Environment.Process_Environment);
(GPR2.Environment.Process_Environment);
Tab_Stop : Positive := Gpr_Parser_Support.Slocs.Default_Tab_Stop;
-- tab expansion