diff options
| author | Yannick Moy <moy@adacore.com> | 2022-01-13 17:35:24 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-09 09:27:34 +0000 |
| commit | 706940c2c867bc2609338f27eaea056aedc13d63 (patch) | |
| tree | 6fbc405aeb062e79050d04cba976f497041b8b71 | |
| parent | ea7967ebdf76969a54a47dda96115c04057c4aba (diff) | |
| download | gcc-706940c2c867bc2609338f27eaea056aedc13d63.zip gcc-706940c2c867bc2609338f27eaea056aedc13d63.tar.gz gcc-706940c2c867bc2609338f27eaea056aedc13d63.tar.bz2 | |
[Ada] Set Error_Msg_Warn before use of << insertion
Calls to Error_Msg procedures with a message using the < or <<
insertions need to set appropriately Error_Msg_Warn. This was not done
in one call, which would lead to spurious errors when changing the
implementation of a runtime unit. This fixes it so that changes can be
applied.
gcc/ada/
* exp_ch4.adb (Expand_Allocator_Expression): Set Error_Msg_Warn
correctly.
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 09e734d..9de384a 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -835,6 +835,7 @@ package body Exp_Ch4 is Make_Raise_Program_Error (Loc, Reason => PE_Accessibility_Check_Failed)); + Error_Msg_Warn := SPARK_Mode /= On; Error_Msg_N ("anonymous access discriminant is too deep for use" & " in allocator<<", N); Error_Msg_N ("\Program_Error [<<", N); |