diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-06 09:35:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-06 09:35:35 +0200 |
commit | 6facf7626446acce5693b257fe7643d7b565118d (patch) | |
tree | 75a4017bd33fe50350f7e62ac6d52165c0d811a4 /src/vhdl/vhdl-sem_types.adb | |
parent | c6aa6e154c8f34107526aac0a373efe1e7b76ef8 (diff) | |
download | ghdl-6facf7626446acce5693b257fe7643d7b565118d.tar.gz ghdl-6facf7626446acce5693b257fe7643d7b565118d.tar.bz2 ghdl-6facf7626446acce5693b257fe7643d7b565118d.zip |
vhdl: allow discrete subtype indication for discrete_range.
For #877
Diffstat (limited to 'src/vhdl/vhdl-sem_types.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_types.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb index 8b09af241..3b5df21a4 100644 --- a/src/vhdl/vhdl-sem_types.adb +++ b/src/vhdl/vhdl-sem_types.adb @@ -1208,7 +1208,7 @@ package body Vhdl.Sem_Types is declare Res : Iir; begin - Res := Sem_Discrete_Range_Expression (Def, Null_Iir, True); + Res := Sem_Discrete_Range (Def, Null_Iir, True); if Res = Null_Iir then return Null_Iir; end if; @@ -1596,7 +1596,7 @@ package body Vhdl.Sem_Types is if I <= Subtype_Nbr_Dim then Subtype_Index := Get_Nth_Element (Subtype_Index_List, I - 1); - Subtype_Index := Sem_Discrete_Range_Expression + Subtype_Index := Sem_Discrete_Range (Subtype_Index, Get_Index_Type (Type_Index), True); if Subtype_Index /= Null_Iir then Subtype_Index := |