diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-06-21 04:58:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-06-21 04:58:03 +0200 |
commit | ec063ac4da3715a272a7734fffc7a7ec98abd4ba (patch) | |
tree | 089661e05423675797f13659bf635709e5bd1a06 /src/vhdl/translate/trans-chap6.adb | |
parent | 1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8 (diff) | |
download | ghdl-ec063ac4da3715a272a7734fffc7a7ec98abd4ba.tar.gz ghdl-ec063ac4da3715a272a7734fffc7a7ec98abd4ba.tar.bz2 ghdl-ec063ac4da3715a272a7734fffc7a7ec98abd4ba.zip |
translate: renaming.
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 b06c010e5..e0bb4b2d6 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -841,10 +841,10 @@ package body Trans.Chap6 is -- Result is a fat pointer, create it and set bounds. Fat_Res := Create_Temp (El_Tinfo, Kind); New_Assign_Stmt - (M2Lp (Chap3.Get_Array_Bounds (Fat_Res)), + (M2Lp (Chap3.Get_Composite_Bounds (Fat_Res)), New_Address (New_Selected_Element - (M2Lv (Chap3.Get_Array_Bounds (Stable_Prefix)), + (M2Lv (Chap3.Get_Composite_Bounds (Stable_Prefix)), El_Info.Field_Bound), El_Tinfo.B.Bounds_Ptr_Type)); else |