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 |