From 6facf7626446acce5693b257fe7643d7b565118d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 6 Aug 2019 09:35:35 +0200 Subject: vhdl: allow discrete subtype indication for discrete_range. For #877 --- src/vhdl/vhdl-sem_types.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/vhdl/vhdl-sem_types.adb') 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 := -- cgit v1.2.3