1 files changed, 16 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index beff8b527..b61dae179 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -2663,6 +2663,22 @@ package body Vhdl.Nodes is
       Set_Field4 (Pkg, Decl);
    end Set_Instance_Package_Body;
 
+   function Get_Owned_Instance_Package_Body (Pkg : Iir) return Iir is
+   begin
+      pragma Assert (Pkg /= Null_Iir);
+      pragma Assert (Has_Owned_Instance_Package_Body (Get_Kind (Pkg)),
+                     "no field Owned_Instance_Package_Body");
+      return Get_Field11 (Pkg);
+   end Get_Owned_Instance_Package_Body;
+
+   procedure Set_Owned_Instance_Package_Body (Pkg : Iir; Decl : Iir) is
+   begin
+      pragma Assert (Pkg /= Null_Iir);
+      pragma Assert (Has_Owned_Instance_Package_Body (Get_Kind (Pkg)),
+                     "no field Owned_Instance_Package_Body");
+      Set_Field11 (Pkg, Decl);
+   end Set_Owned_Instance_Package_Body;
+
    function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean is
    begin
       pragma Assert (Decl /= Null_Iir);