diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-11-07 07:48:55 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-11-07 07:48:55 +0100 |
commit | a08289c5ad4c904a1b16445ee35fb00c05f87b64 (patch) | |
tree | 9406b043b8a90c06f0136ab19b6fadc20a1ae161 /src/vhdl/translate/trans-chap8.adb | |
parent | 06d553f9d32184ad71f47bbcfcde2528d40408ac (diff) | |
download | ghdl-a08289c5ad4c904a1b16445ee35fb00c05f87b64.tar.gz ghdl-a08289c5ad4c904a1b16445ee35fb00c05f87b64.tar.bz2 ghdl-a08289c5ad4c904a1b16445ee35fb00c05f87b64.zip |
Use flist for enumerations.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 493f2336e..734559e81 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -400,9 +400,9 @@ package body Trans.Chap8 is (Get_Ortho_Type (Base_Type, Mode_Value), Integer_64 (Val))); when Iir_Kind_Enumeration_Type_Definition => declare - List : Iir_List; + List : constant Iir_Flist := + Get_Enumeration_Literal_List (Base_Type); begin - List := Get_Enumeration_Literal_List (Base_Type); -- FIXME: what about type E is ('T') ?? if Natural (Val) > Get_Nbr_Elements (List) then raise Internal_Error; |