diff options
Diffstat (limited to 'gcc/ada/libgnat/g-comlin.adb')
| -rw-r--r-- | gcc/ada/libgnat/g-comlin.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/libgnat/g-comlin.adb b/gcc/ada/libgnat/g-comlin.adb index 7f7040b..4cbfd57 100644 --- a/gcc/ada/libgnat/g-comlin.adb +++ b/gcc/ada/libgnat/g-comlin.adb @@ -1063,7 +1063,7 @@ package body GNAT.Command_Line is Parser.In_Expansion := False; Parser.Switch_Character := Switch_Char; Parser.Stop_At_First := Stop_At_First_Non_Switch; - Parser.Section := (others => 1); + Parser.Section := [others => 1]; -- If we are using sections, we have to preprocess the command line to -- delimit them. A section can be repeated, so we just give each item @@ -3225,7 +3225,7 @@ package body GNAT.Command_Line is if N /= "" then Put (" "); Put (N); - Put ((1 .. Max_Len - N'Length + 1 => ' ')); + Put ([1 .. Max_Len - N'Length + 1 => ' ']); if Config.Switches (S).Help /= null then Put (Config.Switches (S).Help.all); @@ -3243,8 +3243,8 @@ package body GNAT.Command_Line is if Config.Aliases (A).Section.all = Section then Put (" "); Put (Config.Aliases (A).Alias.all); - Put ((1 .. Max_Len - Config.Aliases (A).Alias'Length + 1 - => ' ')); + Put ([1 .. Max_Len - Config.Aliases (A).Alias'Length + 1 + => ' ']); Put ("Equivalent to " & Config.Aliases (A).Expansion.all); New_Line; end if; |