diff options
| -rw-r--r-- | src/synth/elab-vhdl_objtypes.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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 => |