diff options
| author | Marc Poulhiès <poulhies@adacore.com> | 2021-11-26 10:49:51 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-02 16:26:29 +0000 |
| commit | 5a35fe64c7a89935599af3d4693494ca4578cd7f (patch) | |
| tree | da10a2074e56680f13e7f0bcdc125530b17032f2 | |
| parent | b3f89a4510031af1913f70aad9b3ba559d326fb0 (diff) | |
| download | gcc-5a35fe64c7a89935599af3d4693494ca4578cd7f.zip gcc-5a35fe64c7a89935599af3d4693494ca4578cd7f.tar.gz gcc-5a35fe64c7a89935599af3d4693494ca4578cd7f.tar.bz2 | |
[Ada] Fix obsolete array aggregate warning being triggered by expanded code
gcc/ada/
* sem_aggr.adb (Resolve_Array_Aggregate): Filter out nodes not
coming from source before emitting the warning.
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 0d4af65..6e76e3d 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1807,6 +1807,7 @@ package body Sem_Aggr is and then not Is_Enum_Array_Aggregate (N) and then Is_Parenthesis_Aggregate (N) and then Nkind (Parent (N)) /= N_Qualified_Expression + and then Comes_From_Source (N) then Error_Msg_N ("?j?array aggregate using () is an" & |