From 196e52105fa2c6dcaf9fd158607d743c652dea5a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 7 Apr 2020 17:31:48 +0200 Subject: vhdl: fix crash on vhdl08 sub-sub index constraint. For #1191 --- src/vhdl/translate/trans-chap5.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/vhdl/translate/trans-chap5.adb') diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index 82518576f..557b4d572 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -323,9 +323,8 @@ package body Trans.Chap5 is Res : Connect_Data; begin -- FIXME: should check matching elements! - Res := (Actual_Sig => - Chap3.Index_Base (Chap3.Get_Composite_Base (Data.Actual_Sig), - Data.Actual_Type, New_Obj_Value (Index)), + Res := (Actual_Sig => Chap6.Translate_Indexed_Name_By_Offset + (Data.Actual_Sig, Data.Actual_Type, Index), Actual_Type => Get_Element_Subtype (Data.Actual_Type), Mode => Data.Mode, By_Copy => Data.By_Copy); -- cgit v1.2.3