From 5c8b50f69d70f4e2d0a9910a7914245d0796b758 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 7 Aug 2022 07:10:49 +0200 Subject: vhdl: add support for default in interface subprogram. Fix #2163 --- src/vhdl/vhdl-nodes.ads | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/vhdl/vhdl-nodes.ads') diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 0fc291be2..376c99daa 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -449,6 +449,10 @@ package Vhdl.Nodes is -- Only for Iir_Kind_Association_Element_Terminal: -- Get/Set_Actual (Field3) -- + -- For '<>' default interface subprogram. + -- Only for Iir_Kind_Association_Element_Open: + -- Get/Set_Open_Actual (Field3) + -- -- Only for Iir_Kind_Association_Element_By_Individual: -- Get/Set_Individual_Association_Chain (Field4) -- @@ -1772,6 +1776,8 @@ package Vhdl.Nodes is -- -- Get/Set_Return_Type_Mark (Field8) -- + -- Get/Set_Default_Subprogram (Field9) + -- -- Get/Set_Subprogram_Depth (Field10) -- -- Get/Set_Seen_Flag (Flag1) @@ -7909,6 +7915,10 @@ package Vhdl.Nodes is function Get_Actual (Target : Iir) return Iir; procedure Set_Actual (Target : Iir; Actual : Iir); + -- Field: Field3 Ref + function Get_Open_Actual (Target : Iir) return Iir; + procedure Set_Open_Actual (Target : Iir; Actual : Iir); + -- Field: Field4 function Get_Actual_Conversion (Target : Iir) return Iir; procedure Set_Actual_Conversion (Target : Iir; Conv : Iir); @@ -8194,6 +8204,10 @@ package Vhdl.Nodes is procedure Set_Interface_Declaration_Chain (Target : Iir; Chain : Iir); pragma Inline (Get_Interface_Declaration_Chain); + -- Field: Field9 + function Get_Default_Subprogram (Inter : Iir) return Iir; + procedure Set_Default_Subprogram (Inter : Iir; Subprg : Iir); + -- Field: Field6 Ref function Get_Subprogram_Specification (Target : Iir) return Iir; procedure Set_Subprogram_Specification (Target : Iir; Spec : Iir); -- cgit v1.2.3