File tree Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -380,8 +380,8 @@ package body Gnatcheck.Projects is
380
380
for C in Agg_Context.Iterate loop
381
381
Project_Options.Add_Switch
382
382
(GPR2.Options.X,
383
- String (Name_Value_Map_Package .Key (C)) & " =" &
384
- Name_Value_Map_Package .Element (C));
383
+ String (External_Name_Value_Map_Package .Key (C)) & " =" &
384
+ External_Name_Value_Map_Package .Element (C));
385
385
end loop ;
386
386
387
387
if not My_Project.Tree.Load (Project_Options,
@@ -678,7 +678,9 @@ package body Gnatcheck.Projects is
678
678
-- Set GPR_TOOL, if needed
679
679
680
680
for Cursor in Project_Options.Context.Iterate loop
681
- if Containers.Name_Value_Map_Package.Key (Cursor) = " GPR_TOOL" then
681
+ if
682
+ Containers.External_Name_Value_Map_Package.Key (Cursor) = " GPR_TOOL"
683
+ then
682
684
GPR_TOOL_Set := True;
683
685
exit ;
684
686
end if ;
You can’t perform that action at this time.
0 commit comments