diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-03-24 19:28:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-03-26 16:53:50 +0200 |
| commit | b95cc40ac667768cd0ae03adb8c9c8c21ad35a30 (patch) | |
| tree | 3d71143278ef285a66107e3dd4861f21358ce562 /src/vhdl/vhdl-nodes.ads | |
| parent | cff00f7c56fe0bdcc05c302c679e22ad04c097f7 (diff) | |
| download | ghdl-b95cc40ac667768cd0ae03adb8c9c8c21ad35a30.tar.gz ghdl-b95cc40ac667768cd0ae03adb8c9c8c21ad35a30.tar.bz2 ghdl-b95cc40ac667768cd0ae03adb8c9c8c21ad35a30.zip | |
vhdl: add Owned_Instance_Package_Body to handle ownership
of package body.
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 7b1f476e1..3d9561662 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1123,6 +1123,10 @@ package Vhdl.Nodes is -- -- Get/Set_Attribute_Value_Chain (Field5) -- + -- For macro-expanded packages: the body, if owned. + -- Set only iff Immediate_Body_Flag is true. + -- Get/Set_Owned_Instance_Package_Body (Field11) + -- -- For macro-expanded packages: the body. -- Get/Set_Instance_Package_Body (Field4) -- @@ -8153,6 +8157,10 @@ package Vhdl.Nodes is function Get_Instance_Package_Body (Pkg : Iir) return Iir; procedure Set_Instance_Package_Body (Pkg : Iir; Decl : Iir); + -- Field: Field11 + function Get_Owned_Instance_Package_Body (Pkg : Iir) return Iir; + procedure Set_Owned_Instance_Package_Body (Pkg : Iir; Decl : Iir); + -- Field: Flag1 function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean; procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean); |