From 150a3cdd57d6a334d33d0d5aa84b70222d1bc97f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 8 Sep 2022 05:08:25 +0200
Subject: elab-vhdl_objtypes: handle bounded array base type.  Fix #2187

---
 src/synth/elab-vhdl_objtypes.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/elab-vhdl_objtypes.adb b/src/synth/elab-vhdl_objtypes.adb
index 432b3a6a8..7595ac441 100644
--- a/src/synth/elab-vhdl_objtypes.adb
+++ b/src/synth/elab-vhdl_objtypes.adb
@@ -1053,7 +1053,8 @@ package body Elab.Vhdl_Objtypes is
             raise Internal_Error;
          when Type_Array
            | Type_Vector =>
-            Res.Arr_El := Unshare_Type (Typ.Arr_El, Base.Uarr_El);
+            Res.Arr_El := Unshare_Type (Typ.Arr_El,
+                                        Get_Array_Element (Base));
          when Type_Unbounded_Array
            | Type_Unbounded_Vector
            | Type_Unbounded_Record =>
-- 
cgit v1.2.3