diff options
Diffstat (limited to 'src/vhdl/translate/trans-helpers2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-helpers2.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb index 1c17e27da..f05bf2477 100644 --- a/src/vhdl/translate/trans-helpers2.adb +++ b/src/vhdl/translate/trans-helpers2.adb @@ -224,8 +224,7 @@ package body Trans.Helpers2 is end Register_Signal_List; function Gen_Oenode_Prepare_Data_Composite - (Targ : Mnode; Targ_Type : Iir; Val : O_Enode) - return Mnode + (Targ : Mnode; Targ_Type : Iir; Val : O_Enode) return Mnode is pragma Unreferenced (Targ); Res : Mnode; @@ -236,6 +235,7 @@ package body Trans.Helpers2 is case Type_Info.Type_Mode is when Type_Mode_Arrays => Res := Chap3.Get_Composite_Base (Res); + Res := Chap3.Convert_Array_Base (Res); when Type_Mode_Records => Res := Stabilize (Res); when others => |