diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-27 18:54:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-27 18:54:12 +0200 |
commit | 89f81ef02c4fb9d0441a2b1c773c8e9da79cda5a (patch) | |
tree | 196ca66b632387d7c3b4484086c87f983ce18fd2 /src/vhdl/translate/trans-helpers2.adb | |
parent | a663cbbe964e351e91560d0c7e660f90deb3f83e (diff) | |
download | ghdl-89f81ef02c4fb9d0441a2b1c773c8e9da79cda5a.tar.gz ghdl-89f81ef02c4fb9d0441a2b1c773c8e9da79cda5a.tar.bz2 ghdl-89f81ef02c4fb9d0441a2b1c773c8e9da79cda5a.zip |
translate: fix foreach_non_composite for arrays with unbounded elements.
Diffstat (limited to 'src/vhdl/translate/trans-helpers2.adb')
-rw-r--r-- | src/vhdl/translate/trans-helpers2.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb index a773fa7aa..dfaa1c8d6 100644 --- a/src/vhdl/translate/trans-helpers2.adb +++ b/src/vhdl/translate/trans-helpers2.adb @@ -234,7 +234,8 @@ package body Trans.Helpers2 is Res := E2M (Val, Type_Info, Mode_Value); case Type_Info.Type_Mode is when Type_Mode_Arrays => - Res := Chap3.Get_Composite_Base (Res); + null; + -- Res := Chap3.Get_Composite_Base (Res); -- Res := Chap3.Convert_Array_Base (Res); when Type_Mode_Records => Res := Stabilize (Res); @@ -250,7 +251,8 @@ package body Trans.Helpers2 is Index : O_Dnode) return O_Enode is begin - return M2E (Chap3.Index_Base (Val, Targ_Type, New_Obj_Value (Index))); + return M2E (Chap6.Translate_Indexed_Name_By_Offset + (Val, Targ_Type, Index)); end Gen_Oenode_Update_Data_Array; function Gen_Oenode_Update_Data_Record |