diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-06-11 18:12:02 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-06-11 18:12:02 +0200 |
commit | 9d0f4ef1f72f20017182e4f42c59024ce158b1ea (patch) | |
tree | 2379b990a16499cf1647be9712466118494e5fc8 /src/synth/elab-vhdl_types.adb | |
parent | 94b4a64e50d20948176b3f912e65878fb5945231 (diff) | |
download | ghdl-9d0f4ef1f72f20017182e4f42c59024ce158b1ea.tar.gz ghdl-9d0f4ef1f72f20017182e4f42c59024ce158b1ea.tar.bz2 ghdl-9d0f4ef1f72f20017182e4f42c59024ce158b1ea.zip |
elab-vhdl_types(Synth_Array_Attribute): handle dimension parameter
Fix #2088
Diffstat (limited to 'src/synth/elab-vhdl_types.adb')
-rw-r--r-- | src/synth/elab-vhdl_types.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_types.adb b/src/synth/elab-vhdl_types.adb index eb97b7b1e..3844704ee 100644 --- a/src/synth/elab-vhdl_types.adb +++ b/src/synth/elab-vhdl_types.adb @@ -87,7 +87,9 @@ package body Elab.Vhdl_Types is Typ := Exec_Name_Subtype (Syn_Inst, Prefix_Name); end if; - pragma Assert (Dim = 1); + for I in 2 .. Dim loop + Typ := Typ.Arr_El; + end loop; return Get_Array_Bound (Typ); end Synth_Array_Attribute; |