From 3049de704edfc40c539896b6e6416fa1ce4c9cd9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 9 Jan 2023 06:44:36 +0100 Subject: synth: improve support of individual association for subprograms --- src/synth/synth-vhdl_stmts.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/synth/synth-vhdl_stmts.adb') 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; -- cgit v1.2.3