aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl')
-rw-r--r--src/vhdl/translate/trans-chap8.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index 72aa77ae9..8f63e7827 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -999,7 +999,7 @@ package body Trans.Chap8 is
New_Assign_Stmt
(New_Obj (Var_Hi),
New_Lit (New_Unsigned_Literal (Ghdl_Index_Type,
- Unsigned_64 (Nbr_Choices))));
+ Unsigned_64 (Nbr_Choices - 1))));
Func := Chap7.Find_Predefined_Function
(Get_Base_Type (Expr_Type), Iir_Predefined_Array_Greater);