From d010636f5bb5cf00f6f26fd6e83a21b8a1dd5c2a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 22 May 2022 09:41:11 +0200
Subject: synth: also use one-dimensional unbounded arrays for objtypes

---
 src/synth/synth-vhdl_aggr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/synth/synth-vhdl_aggr.adb')

diff --git a/src/synth/synth-vhdl_aggr.adb b/src/synth/synth-vhdl_aggr.adb
index 2115fde07..0694a99b0 100644
--- a/src/synth/synth-vhdl_aggr.adb
+++ b/src/synth/synth-vhdl_aggr.adb
@@ -138,7 +138,7 @@ package body Synth.Vhdl_Aggr is
       begin
          Nbr_Els := Nbr_Els + 1;
 
-         if Typ.Kind = Type_Vector or else Typ.Alast then
+         if Typ.Alast then
             pragma Assert (Dim = Strides'Last);
             Val := Synth_Expression_With_Type (Syn_Inst, Value, El_Typ);
             Val := Synth_Subtype_Conversion (Ctxt, Val, El_Typ, False, Value);
-- 
cgit v1.2.3