diff options
| author | Dmitriy Anisimkov <anisimko@adacore.com> | 2019-08-13 08:06:24 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-08-13 08:06:24 +0000 |
| commit | e0401824f74645adcd008045190e0d86ae3ce8e0 (patch) | |
| tree | bb3b78b916109ab8c8c9ccec4b601e0111c86b4d /gcc/ada | |
| parent | 96cdd379c398499f0b19e3b469b72b77857995c6 (diff) | |
| download | gcc-e0401824f74645adcd008045190e0d86ae3ce8e0.zip gcc-e0401824f74645adcd008045190e0d86ae3ce8e0.tar.gz gcc-e0401824f74645adcd008045190e0d86ae3ce8e0.tar.bz2 | |
[Ada] Better exception message on Invalid_Switch exception
Improve the error message introduced in the recent commit for
Invalid_Switch exception.
2019-08-13 Dmitriy Anisimkov <anisimko@adacore.com>
gcc/ada/
* libgnat/g-comlin.adb (Getopt): Quote unrecognized switch in
Invalid_Switch exception message.
From-SVN: r274333
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/libgnat/g-comlin.adb | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5b88950..eab24a0 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-08-13 Dmitriy Anisimkov <anisimko@adacore.com> + + * libgnat/g-comlin.adb (Getopt): Quote unrecognized switch in + Invalid_Switch exception message. + 2019-08-13 Yannick Moy <moy@adacore.com> * sem_util.adb (Traverse_More_Func): Take into account diff --git a/gcc/ada/libgnat/g-comlin.adb b/gcc/ada/libgnat/g-comlin.adb index f567ddb..e3fac5b 100644 --- a/gcc/ada/libgnat/g-comlin.adb +++ b/gcc/ada/libgnat/g-comlin.adb @@ -754,7 +754,7 @@ package body GNAT.Command_Line is Parser.Current_Index := End_Index + 1; raise Invalid_Switch with - "Unrecognized option " & Full_Switch (Parser); + "Unrecognized option '" & Full_Switch (Parser) & '''; end if; End_Index := Parser.Current_Index + Max_Length - 1; @@ -885,7 +885,7 @@ package body GNAT.Command_Line is Extra => Parser.Switch_Character); Parser.Current_Index := Arg'Last + 1; raise Invalid_Switch with - "Unrecognized option " & Full_Switch (Parser); + "Unrecognized option '" & Full_Switch (Parser) & '''; end if; end case; |