[Ada] Recognize delta and extension aggregates as objects

gcc/ada/

	* sem_util.adb (Is_Object_Reference): Delta and extension
	aggregates are objects.
This commit is contained in:
Piotr Trojanek 2020-10-01 22:23:24 +02:00 committed by Pierre-Marie de Rodat
parent 7883a61044
commit 1b55b8d70f

View File

@ -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