diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-20 19:10:52 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-20 19:10:52 +0100 |
commit | 14cbc02b016795f60dd8221c5aa0dd0174bb7bba (patch) | |
tree | 358f321e5730fcb1ba4533e1fb84b446fbc32bec /src/vhdl/translate/trans-chap4.adb | |
parent | a781dc357b4fb46614ebdcc6abfba6831de90fdf (diff) | |
download | ghdl-14cbc02b016795f60dd8221c5aa0dd0174bb7bba.tar.gz ghdl-14cbc02b016795f60dd8221c5aa0dd0174bb7bba.tar.bz2 ghdl-14cbc02b016795f60dd8221c5aa0dd0174bb7bba.zip |
translate: refactoring.
Diffstat (limited to 'src/vhdl/translate/trans-chap4.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 0814f4974..c1599472c 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -542,8 +542,7 @@ package body Trans.Chap4 is Chap3.Translate_Object_Allocation (Name_Node, Alloc_Kind, Obj_Type, Chap3.Get_Composite_Bounds (S)); - Chap3.Translate_Object_Copy - (Name_Node, M2Addr (S), Obj_Type); + Chap3.Translate_Object_Copy (Name_Node, S, Obj_Type); end if; end; else |