diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-10-01 22:23:24 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-24 05:16:04 -0500 |
| commit | 1b55b8d70f431e29131cc7ca5790490d95625bd0 (patch) | |
| tree | 755984ca77e3609de81d04b5ee7e95909dcc9f72 | |
| parent | 7883a610443b1dbde92ad4dc4f6082a5c4b6c799 (diff) | |
| download | gcc-1b55b8d70f431e29131cc7ca5790490d95625bd0.zip gcc-1b55b8d70f431e29131cc7ca5790490d95625bd0.tar.gz gcc-1b55b8d70f431e29131cc7ca5790490d95625bd0.tar.bz2 | |
[Ada] Recognize delta and extension aggregates as objects
gcc/ada/
* sem_util.adb (Is_Object_Reference): Delta and extension
aggregates are objects.
| -rw-r--r-- | gcc/ada/sem_util.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 01e99a5..1190cfe 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -18324,7 +18324,10 @@ package body Sem_Util is -- In Ada 95 an aggregate is an object reference - when N_Aggregate => + when N_Aggregate + | N_Delta_Aggregate + | N_Extension_Aggregate + => return Ada_Version >= Ada_95; -- A string literal is not an object reference, but it might come |