From 1fc3a1a33120307c75d8cc243e3a83c4d2cfb54c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 18 Sep 2021 07:31:00 +0200 Subject: trans-chap8: fix iteration on an enumeration type with only one literal. Fix #1514 --- src/vhdl/translate/trans-chap8.adb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 61da10c1d..582a526cd 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -418,12 +418,18 @@ package body Trans.Chap8 is declare List : constant Iir_Flist := Get_Enumeration_Literal_List (Base_Type); + Num : Natural; begin - -- FIXME: what about type E is ('T') ?? if Get_Nbr_Elements (List) = 1 then - raise Internal_Error; + -- In the case of: + -- type E is ('T') + -- the iterator must have already finished. So it doesn't + -- matter if not incremented. + Num := 0; + else + Num := 1; end if; - V := New_Lit (Get_Ortho_Literal (Get_Nth_Element (List, 1))); + V := New_Lit (Get_Ortho_Literal (Get_Nth_Element (List, Num))); end; when others => -- cgit v1.2.3