ada/gprbuild
0
0
Fork 0
mirror of https://github.com/AdaCore/gprbuild.git synced 2026-02-12 12:30:13 -08:00
Code Issues Packages Projects Releases Wiki Activity

Fix duplicates gnatec switch on non-verbose mode

Browse Source 
Issue : eng/gpr/gpr-issues#301
This commit is contained in:
Pierre Béguet
2024-06-10 15:19:25 +02:00
parent 7487248cd0
commit f936d7c6c3
1 changed files with 12 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/gprbuild-compile.adb
View File

@@ -1571,23 +1571,22 @@ package body Gprbuild.Compile is
Switch : constant String :=
Name_Buffer (1 .. Name_Len);
Canonical_Switch : String := Switch;
Add_Switch : Boolean := True;
begin
Canonical_Case_File_Name (Canonical_Switch);
declare
Option : constant Option_Type :=
(Name_Len => Canonical_Switch'Length,
Name => Canonical_Switch,
Displayed => Opt.Verbose_Mode,
Simple_Name => False);
begin
if not Compilation_Options.Contains (Option) then
Add_Option
(Switch,
To => Compilation_Options,
Display => Opt.Verbose_Mode);
for Option of Compilation_Options loop
if Canonical_Switch = Option.Name then
Add_Switch := False;
end if;
end;
end loop;
if Add_Switch then
Add_Option
(Switch,
To => Compilation_Options,
Display => Opt.Verbose_Mode);
end if;
end;
List := Nam.Next;