From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 1 Oct 2020 20:23:24 +0000 (+0200)
Subject: [Ada] Recognize delta and extension aggregates as objects
X-Git-Tag: basepoints/gcc-12~2957
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1b55b8d70f431e29131cc7ca5790490d95625bd0;p=thirdparty%2Fgcc.git

[Ada] Recognize delta and extension aggregates as objects

gcc/ada/

	* sem_util.adb (Is_Object_Reference): Delta and extension
	aggregates are objects.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 01e99a5f3c5d..1190cfe21bf6 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