From 164ae86d2681975cfdd608f68b4182244c752689 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 6 Dec 2016 20:25:17 +0100 Subject: disp_vhdl: handle association_element_subprogram. --- src/vhdl/disp_vhdl.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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); -- cgit v1.2.3