diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-09 06:44:36 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-09 06:44:36 +0100 |
| commit | 3049de704edfc40c539896b6e6416fa1ce4c9cd9 (patch) | |
| tree | 48e8ae4d9dd787e9dee22b083aac3efbb33f2cbb | |
| parent | a1e58f050c9681d5d08f5ddfc6844ff3d5819497 (diff) | |
| download | ghdl-3049de704edfc40c539896b6e6416fa1ce4c9cd9.tar.gz ghdl-3049de704edfc40c539896b6e6416fa1ce4c9cd9.tar.bz2 ghdl-3049de704edfc40c539896b6e6416fa1ce4c9cd9.zip | |
synth: improve support of individual association for subprograms
| -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; |