diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-09-28 07:47:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-09-28 19:07:52 +0200 |
commit | 6cf78dc917710a6e6d962f2d7ddaa6137b34ab6d (patch) | |
tree | 10eea8e08bffc582d1b208663788b85a7781f50c /src | |
parent | 189cec2a8c180ef700f474b7693ba5409d8958cb (diff) | |
download | ghdl-6cf78dc917710a6e6d962f2d7ddaa6137b34ab6d.tar.gz ghdl-6cf78dc917710a6e6d962f2d7ddaa6137b34ab6d.tar.bz2 ghdl-6cf78dc917710a6e6d962f2d7ddaa6137b34ab6d.zip |
vhdl-canon: canon generic associations for subprogram instantiations.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/vhdl-canon.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 50bad4ce8..4694c0d36 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -2926,7 +2926,12 @@ package body Vhdl.Canon is null; when Iir_Kind_Function_Instantiation_Declaration | Iir_Kind_Procedure_Instantiation_Declaration => - null; + -- Canon map aspect. + Set_Generic_Map_Aspect_Chain + (Decl, + Canon_Association_Chain_And_Actuals + (Get_Generic_Chain (Decl), + Get_Generic_Map_Aspect_Chain (Decl), Decl)); when Iir_Kind_Type_Declaration => declare |