diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-21 04:50:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-21 04:50:14 +0200 |
| commit | 1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8 (patch) | |
| tree | db0b9164ca2176ed5cef75d61fb303970120a8da /src/vhdl/translate/trans-chap6.adb | |
| parent | 78a0f10ac272d9e22934cc5557c667365ee29475 (diff) | |
| download | ghdl-1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8.tar.gz ghdl-1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8.tar.bz2 ghdl-1c5a4c9b3cbf399cb73f95ae32285a98e7030bd8.zip | |
translate: factorize code.
Diffstat (limited to 'src/vhdl/translate/trans-chap6.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index 3475ddd14..b06c010e5 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -841,8 +841,7 @@ 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 - (New_Selected_Element (M2Lv (Fat_Res), - El_Tinfo.B.Bounds_Field (Kind)), + (M2Lp (Chap3.Get_Array_Bounds (Fat_Res)), New_Address (New_Selected_Element (M2Lv (Chap3.Get_Array_Bounds (Stable_Prefix)), |