diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-08-07 09:14:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-08-07 12:14:25 +0200 |
commit | f9aafbb59fd2f0a5ff21b225e5927909b486c9d8 (patch) | |
tree | d781d19f84015d48f1999a48d8cde2ff16bd5f66 /src/vhdl/vhdl-nodes.ads | |
parent | bf1a98f5ebfd51680956fd7379652c1060f8e571 (diff) | |
download | ghdl-f9aafbb59fd2f0a5ff21b225e5927909b486c9d8.tar.gz ghdl-f9aafbb59fd2f0a5ff21b225e5927909b486c9d8.tar.bz2 ghdl-f9aafbb59fd2f0a5ff21b225e5927909b486c9d8.zip |
vhdl: add an owner to interface type definition
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 376c99daa..16907b607 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1503,6 +1503,8 @@ package Vhdl.Nodes is -- -- Get/Set_Parent (Field0) -- + -- Get/Set_Interface_Type_Definition (Field5) + -- -- Get/Set_Type (Field1) -- -- Get/Set_Chain (Field2) @@ -8161,6 +8163,11 @@ package Vhdl.Nodes is function Get_Interface_Type_Subprograms (Target : Iir) return Iir; procedure Set_Interface_Type_Subprograms (Target : Iir; Subprg : Iir); + -- Owner of the interface type definition. + -- Field: Field5 + function Get_Interface_Type_Definition (N : Iir) return Iir; + procedure Set_Interface_Type_Definition (N : Iir; Atype : Iir); + -- Field: Field1 function Get_Nature_Definition (Target : Iir) return Iir; procedure Set_Nature_Definition (Target : Iir; Def : Iir); |