diff options
Diffstat (limited to 'src/vhdl/sem_specs.adb')
| -rw-r--r-- | src/vhdl/sem_specs.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb index 8c9cd2391..0909315e1 100644 --- a/src/vhdl/sem_specs.adb +++ b/src/vhdl/sem_specs.adb @@ -479,13 +479,12 @@ package body Sem_Specs is Def := Get_Type_Definition (El); if Get_Kind (Def) = Iir_Kind_Enumeration_Type_Definition then declare - List : Iir_List; + List : constant Iir_Flist := + Get_Enumeration_Literal_List (Def); El1 : Iir; begin - List := Get_Enumeration_Literal_List (Def); - for I in Natural loop + for I in Flist_First .. Flist_Last (List) loop El1 := Get_Nth_Element (List, I); - exit when El1 = Null_Iir; Sem_Named_Entity (El1); end loop; end; |