From: pmderodat Date: Tue, 13 Aug 2019 08:06:24 +0000 (+0000) Subject: [Ada] Better exception message on Invalid_Switch exception X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=9c811f40c746cef5efb6be28b4bc98dee9cfa913;p=thirdparty%2Fgcc.git [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 gcc/ada/ * libgnat/g-comlin.adb (Getopt): Quote unrecognized switch in Invalid_Switch exception message. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@274333 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5b88950ace1a..eab24a04a5ce 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-08-13 Dmitriy Anisimkov + + * libgnat/g-comlin.adb (Getopt): Quote unrecognized switch in + Invalid_Switch exception message. + 2019-08-13 Yannick Moy * 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 f567ddb2481e..e3fac5bc82f1 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;