diff options
author | Yannick Moy <moy@adacore.com> | 2020-11-17 16:04:34 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-14 10:51:50 -0500 |
commit | d983a9d0500d69d9eda24ac155d7d7c6fed628a2 (patch) | |
tree | 695b9395520811cc045a6bda217f5a1a88a1be09 | |
parent | 758daef51b03aeda7afd338fc1954d0c012a4a98 (diff) | |
download | gcc-d983a9d0500d69d9eda24ac155d7d7c6fed628a2.zip gcc-d983a9d0500d69d9eda24ac155d7d7c6fed628a2.tar.gz gcc-d983a9d0500d69d9eda24ac155d7d7c6fed628a2.tar.bz2 |
[Ada] Fix warning control character for message on IN OUT parameter
gcc/ada/
* sem_warn.adb (Output_Non_Modified_In_Out_Warnings): Use right
warning control character 'k' in both comment and call to
Errout_Msg_N.
-rw-r--r-- | gcc/ada/sem_warn.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 7289ea7..d92975f 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -3077,14 +3077,14 @@ package body Sem_Warn is -- Here we generate the warning else - -- If -gnatwc is set then output message that we could be IN + -- If -gnatwk is set then output message that we could be IN if not Is_Trivial_Subprogram (Scope (E1)) then if Warn_On_Constant then Error_Msg_N - ("?u?formal parameter & is not modified!", E1); + ("?k?formal parameter & is not modified!", E1); Error_Msg_N - ("\?u?mode could be IN instead of `IN OUT`!", E1); + ("\?k?mode could be IN instead of `IN OUT`!", E1); -- We do not generate warnings for IN OUT parameters -- unless we have at least -gnatwu. This is deliberately |