From 14cbc02b016795f60dd8221c5aa0dd0174bb7bba Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 20 Nov 2018 19:10:52 +0100 Subject: translate: refactoring. --- src/vhdl/translate/trans-chap9.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/vhdl/translate/trans-chap9.adb') 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); -- cgit v1.2.3