diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:11:43 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-12-30 19:11:43 +0100 |
commit | 5a7a8470fc91861aa85060a758523e2d1f161585 (patch) | |
tree | 8a521cdc9d057c18c53e612fd175b9eeba2888a6 /src/vhdl/translate/trans-chap6.adb | |
parent | f38e8d2677cb5a93a3ad4c0e818e31b0063abf15 (diff) | |
download | ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.tar.gz ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.tar.bz2 ghdl-5a7a8470fc91861aa85060a758523e2d1f161585.zip |
translate: refactoring for ortho_info_type.
Diffstat (limited to 'src/vhdl/translate/trans-chap6.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index d1375c728..da87fd88b 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -707,11 +707,11 @@ package body Trans.Chap6 is Res_D := Create_Temp (Slice_Info.Ortho_Type (Kind)); New_Assign_Stmt (New_Selected_Element (New_Obj (Res_D), - Slice_Info.T.Bounds_Field (Kind)), + Slice_Info.B.Bounds_Field (Kind)), New_Value (M2Lp (Data.Slice_Range))); New_Assign_Stmt (New_Selected_Element (New_Obj (Res_D), - Slice_Info.T.Base_Field (Kind)), + Slice_Info.B.Base_Field (Kind)), M2E (Chap3.Slice_Base (Chap3.Get_Array_Base (Prefix), Slice_Type, |