From b95cc40ac667768cd0ae03adb8c9c8c21ad35a30 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 24 Mar 2023 19:28:04 +0100 Subject: vhdl: add Owned_Instance_Package_Body to handle ownership of package body. --- src/vhdl/vhdl-nodes.ads | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/vhdl/vhdl-nodes.ads') 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); -- cgit v1.2.3