diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-06 20:25:17 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-06 20:25:17 +0100 |
| commit | 164ae86d2681975cfdd608f68b4182244c752689 (patch) | |
| tree | 508cc4194b152a711cbebf993b71effc85fe64ef | |
| parent | e61719a3230d0170bcce86f69718795b47aa9757 (diff) | |
| download | ghdl-164ae86d2681975cfdd608f68b4182244c752689.tar.gz ghdl-164ae86d2681975cfdd608f68b4182244c752689.tar.bz2 ghdl-164ae86d2681975cfdd608f68b4182244c752689.zip | |
disp_vhdl: handle association_element_subprogram.
| -rw-r--r-- | src/vhdl/disp_vhdl.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/disp_vhdl.adb b/src/vhdl/disp_vhdl.adb index 291214af6..ba72e4673 100644 --- a/src/vhdl/disp_vhdl.adb +++ b/src/vhdl/disp_vhdl.adb @@ -2346,7 +2346,8 @@ package body Disp_Vhdl is when Iir_Kind_Association_Element_Open => Put ("open"); when Iir_Kind_Association_Element_Package - | Iir_Kind_Association_Element_Type => + | Iir_Kind_Association_Element_Type + | Iir_Kind_Association_Element_Subprogram => Disp_Name (Get_Actual (El)); when others => Conv := Get_In_Conversion (El); |