From 1b55b8d70f431e29131cc7ca5790490d95625bd0 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 1 Oct 2020 22:23:24 +0200 Subject: [PATCH] [Ada] Recognize delta and extension aggregates as objects gcc/ada/ * sem_util.adb (Is_Object_Reference): Delta and extension aggregates are objects. --- gcc/ada/sem_util.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 01e99a5f3c5..1190cfe21bf 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 -- 2.30.2