diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 96608808e..9e721a932 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -358,9 +358,9 @@ package body Trans.Chap7 is Literal_List := Get_Enumeration_Literal_List (Character_Type_Definition); Image (Str_Ident); - for I in 1 .. Name_Length loop + for I in 1 .. Nam_Length loop Lit := Get_Nth_Element (Literal_List, - Character'Pos (Name_Buffer (I))); + Character'Pos (Nam_Buffer (I))); New_Array_Aggr_El (List, Get_Ortho_Expr (Lit)); end loop; |