aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/translate/trans-chap8.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r--src/vhdl/translate/trans-chap8.adb1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index f1f1b3839..e4582f210 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -3916,7 +3916,6 @@ package body Trans.Chap8 is
begin
El := Get_Association_Choices_Chain (Target);
while El /= Null_Iir loop
- case Get_Kind (El) is
when Iir_Kind_Choice_By_None =>
Sub_Aggr := Chap3.Index_Base
(Aggr, Target_Type, New_Obj_Value (Idx));