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-chap9.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-chap9.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 1fbd4e8e6..eb4668f7b 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1701,7 +1701,7 @@ package body Trans.Chap9 is -- From the port default value. if Is_Valid (Get_Default_Value (Base)) then Chap3.Translate_Object_Copy - (Drv_Node, M2E (Chap6.Get_Port_Init_Value (Base)), + (Drv_Node, Chap6.Get_Port_Init_Value (Base), Base_Type); else Chap4.Init_Object (Drv_Node, Base_Type); |