diff options
| author | Yannick Moy <moy@adacore.com> | 2024-05-03 15:02:39 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-13 15:30:34 +0200 |
| commit | 36c59b3a689a929e8c786cc4614fad923658b3c4 (patch) | |
| tree | 3931efc8c7144e919b64b4fce2551d18af5a0b68 | |
| parent | df898445c211cb417fad784d50a68bae0f20acbc (diff) | |
| download | gcc-36c59b3a689a929e8c786cc4614fad923658b3c4.zip gcc-36c59b3a689a929e8c786cc4614fad923658b3c4.tar.gz gcc-36c59b3a689a929e8c786cc4614fad923658b3c4.tar.bz2 | |
ada: Fix test for giving hint on ambiguous aggregate
In the case the type of an aggregate cannot be determined due to
an ambiguity, caused by the existence of container aggregates,
a hint can be given by GNAT. The test for giving this hint should
be the Ada language version, not the fact that extensions are allowed.
Now fixed.
There is no impact on code generation.
gcc/ada/
* sem_util.adb (Check_Ambiguous_Aggregate): Fix test.
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index e8120c2..3d12f55 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -2387,7 +2387,7 @@ package body Sem_Util is Actual : Node_Id; begin - if All_Extensions_Allowed then + if Ada_Version >= Ada_2022 then Actual := First_Actual (Call); while Present (Actual) loop if Nkind (Actual) = N_Aggregate then |