[COMMITTED 26/30] ada: For freezing, treat an extension or delta aggregate like a regular aggregate.

[Marc Poulhiès]

From: Steve Baird <ba...@adacore.com>

Extend existing special freezing rules for regular aggregates to also apply to
extension and delta aggregates.

gcc/ada/

        * freeze.adb
        (Should_Freeze_Type.Is_Dispatching_Call_Or_Aggregate): Treat an 
extension
        aggregate or a delta aggregate like a regular aggregate.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/freeze.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index ea18f87a4ab..c872050dd35 100644
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -222,7 +222,9 @@ package body Freeze is
                       = Scope (Typ)
          then
             return Abandon;
-         elsif Nkind (N) = N_Aggregate
+         elsif Nkind (N) in N_Aggregate
+                          | N_Extension_Aggregate
+                          | N_Delta_Aggregate
            and then Base_Type (Etype (N)) = Base_Type (Typ)
          then
             return Abandon;
-- 
2.45.1