aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/translate/trans-chap8.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2017-11-07 07:48:55 +0100
committerTristan Gingold <tgingold@free.fr>2017-11-07 07:48:55 +0100
commita08289c5ad4c904a1b16445ee35fb00c05f87b64 (patch)
tree9406b043b8a90c06f0136ab19b6fadc20a1ae161 /src/vhdl/translate/trans-chap8.adb
parent06d553f9d32184ad71f47bbcfcde2528d40408ac (diff)
downloadghdl-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.adb4
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;