[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:
parent
7883a61044
commit
1b55b8d70f
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user