diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-08 05:08:25 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-08 05:08:25 +0200 |
| commit | 150a3cdd57d6a334d33d0d5aa84b70222d1bc97f (patch) | |
| tree | 0d9bf22a3eacd123063c02f4aed72e11210c122b /src/synth/elab-vhdl_objtypes.adb | |
| parent | d646114db387b69e2fe92a1c68c2c27c35f7dc5f (diff) | |
| download | ghdl-150a3cdd57d6a334d33d0d5aa84b70222d1bc97f.tar.gz ghdl-150a3cdd57d6a334d33d0d5aa84b70222d1bc97f.tar.bz2 ghdl-150a3cdd57d6a334d33d0d5aa84b70222d1bc97f.zip | |
elab-vhdl_objtypes: handle bounded array base type. Fix #2187
Diffstat (limited to 'src/synth/elab-vhdl_objtypes.adb')
| -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 => |