diff options
| author | Bob Duff <duff@adacore.com> | 2020-12-18 14:59:45 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-04-29 04:00:49 -0400 |
| commit | c1efbbba84d4d2f266d2591af747e7f64c2f473a (patch) | |
| tree | 3f66d1e17c25057fe534fe04e67a2625b7f016d4 /gcc | |
| parent | 8833f142768c41651503e709262d0d0fdd4a196c (diff) | |
| download | gcc-c1efbbba84d4d2f266d2591af747e7f64c2f473a.zip gcc-c1efbbba84d4d2f266d2591af747e7f64c2f473a.tar.gz gcc-c1efbbba84d4d2f266d2591af747e7f64c2f473a.tar.bz2 | |
[Ada] Error on T'Reduce of when T is not a container
gcc/ada/
* sem_attr.adb (Analyze_Attribute): Change "$" to "&".
Otherwise, Errout will trip over an uninitialized (invalid)
variable (Error_Msg_Unit_1).
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 34865f4..2226ece 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -5682,7 +5682,7 @@ package body Sem_Attr is null; else Error_Msg_NE - ("cannot apply Reduce to object of type$", N, Typ); + ("cannot apply Reduce to object of type&", N, Typ); end if; elsif Present (Expressions (Stream)) |