diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-03-04 07:58:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-03-04 07:58:28 +0100 |
commit | 7356d30f26ec213b8e342e2b17a67443b0452801 (patch) | |
tree | 2c37e80dfa48bc224b9ce486dc98f958b464301e /src/vhdl/vhdl-nodes.ads | |
parent | caad9e78229b7c3cffb0e4f401a2a20179783b91 (diff) | |
download | ghdl-7356d30f26ec213b8e342e2b17a67443b0452801.tar.gz ghdl-7356d30f26ec213b8e342e2b17a67443b0452801.tar.bz2 ghdl-7356d30f26ec213b8e342e2b17a67443b0452801.zip |
vhdl: parse return identifier (v19)
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
-rw-r--r-- | src/vhdl/vhdl-nodes.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index a36566a5c..aac961bb6 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1606,6 +1606,8 @@ package Vhdl.Nodes is -- -- Get/Set_Subprogram_Depth (Field10) -- + -- Get/Set_Return_Identifier (Field11) + -- -- Get/Set_Overload_Number (Field12) -- -- Get/Set_Seen_Flag (Flag1) @@ -8183,6 +8185,11 @@ package Vhdl.Nodes is function Get_Label (Target : Iir) return Name_Id; procedure Set_Label (Target : Iir; Label : Name_Id); + -- Return a subtype declaration for the return subtype (vhdl-19) + -- Field: Field11 + function Get_Return_Identifier (Target : Iir) return Iir; + procedure Set_Return_Identifier (Target : Iir; Decl : Iir); + -- Get/Set the visible flag of a declaration. -- The visible flag is true to make invalid the use of the identifier -- during its declaration. It is set to false when the identifier is added |