diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-08-07 07:10:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-08-07 10:00:11 +0200 |
commit | 5c8b50f69d70f4e2d0a9910a7914245d0796b758 (patch) | |
tree | 91959a573b77b22e0af7bc72f1eaa54a835abf24 /src/vhdl/vhdl-nodes.ads | |
parent | 23b3cadc1c6b96928f3d0829f8b0c5b7337fcc9c (diff) | |
download | ghdl-5c8b50f69d70f4e2d0a9910a7914245d0796b758.tar.gz ghdl-5c8b50f69d70f4e2d0a9910a7914245d0796b758.tar.bz2 ghdl-5c8b50f69d70f4e2d0a9910a7914245d0796b758.zip |
vhdl: add support for default in interface subprogram. Fix #2163
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
-rw-r--r-- | src/vhdl/vhdl-nodes.ads | 14 |
1 files changed, 14 insertions, 0 deletions
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); |