diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-04-04 06:32:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-04-04 06:32:03 +0200 |
commit | 0e3f21903e7f4777feb29b9eec92fef08677a681 (patch) | |
tree | a5dc1f5a3d03af254b3367ac0f56d2b65fc11aec /src/synth/elab-vhdl_insts.adb | |
parent | ba9341b82ec487d73c4f11ea92154bbabeb83707 (diff) | |
download | ghdl-0e3f21903e7f4777feb29b9eec92fef08677a681.tar.gz ghdl-0e3f21903e7f4777feb29b9eec92fef08677a681.tar.bz2 ghdl-0e3f21903e7f4777feb29b9eec92fef08677a681.zip |
synth: handle individual assoc of unbounded interface. Fix #2023
Diffstat (limited to 'src/synth/elab-vhdl_insts.adb')
-rw-r--r-- | src/synth/elab-vhdl_insts.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_insts.adb b/src/synth/elab-vhdl_insts.adb index 404684c26..56d458265 100644 --- a/src/synth/elab-vhdl_insts.adb +++ b/src/synth/elab-vhdl_insts.adb @@ -335,6 +335,9 @@ package body Elab.Vhdl_Insts is case Get_Kind (Assoc) is when Iir_Kinds_Association_Element_By_Actual => return Exec_Type_Of_Object (Syn_Inst, Get_Actual (Assoc)); + when Iir_Kind_Association_Element_By_Individual => + return Synth_Subtype_Indication + (Syn_Inst, Get_Actual_Type (Assoc)); when others => raise Internal_Error; end case; |