From 1e3f9a3a03620f561a4adaf27995c1b0e0d75ae7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 11 Apr 2018 19:10:31 +0200 Subject: Fix bounds of unconstrained strings. Fix #552 --- src/vhdl/translate/trans-chap7.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 385dbed57..1373ffdcd 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -364,11 +364,11 @@ package body Trans.Chap7 is New_Record_Aggr_El (Index_Aggr, New_Signed_Literal - (Index_Type_Info.Ortho_Type (Mode_Value), 0)); + (Index_Type_Info.Ortho_Type (Mode_Value), 1)); New_Record_Aggr_El (Index_Aggr, New_Signed_Literal (Index_Type_Info.Ortho_Type (Mode_Value), - Integer_64 (Len - 1))); + Integer_64 (Len))); New_Record_Aggr_El (Index_Aggr, Ghdl_Dir_To_Node); New_Record_Aggr_El -- cgit v1.2.3