diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap9.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 3213e50a0..1fbd4e8e6 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1400,8 +1400,8 @@ package body Trans.Chap9 is if Val = Mnode_Null then return Mnode_Null; else - return Chap3.Index_Base (Chap3.Get_Composite_Base (Val), - Targ_Type, New_Obj_Value (Index)); + return Chap6.Translate_Indexed_Name_By_Offset + (Chap6.Stabilize_If_Unbounded (Val), Targ_Type, Index); end if; end Foreach_Non_Composite_Update_Data_Array_Mnode; |