diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 7d7df9fd0..4a902b408 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -2108,7 +2108,8 @@ package body Synth.Vhdl_Stmts is pragma Assert (Form_Base = (Formal_Typ, null)); if Inter_Kind = Iir_Kind_Interface_Constant_Declaration then - Act_Base := Synth_Expression (Caller_Inst, Actual); + Act_Base := Synth_Expression_With_Type + (Caller_Inst, Actual, Form_Typ); Act_Typ := Act_Base.Typ; Act_Off := No_Value_Offsets; Act_Dyn := No_Dyn_Name; |