diff options
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); |