1 files changed, 16 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index 9b6329c74..f03e1ab92 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -2982,6 +2982,22 @@ package body Vhdl.Nodes is
       Set_Field4 (Target, Subprg);
    end Set_Interface_Type_Subprograms;
 
+   function Get_Interface_Type_Definition (N : Iir) return Iir is
+   begin
+      pragma Assert (N /= Null_Iir);
+      pragma Assert (Has_Interface_Type_Definition (Get_Kind (N)),
+                     "no field Interface_Type_Definition");
+      return Get_Field5 (N);
+   end Get_Interface_Type_Definition;
+
+   procedure Set_Interface_Type_Definition (N : Iir; Atype : Iir) is
+   begin
+      pragma Assert (N /= Null_Iir);
+      pragma Assert (Has_Interface_Type_Definition (Get_Kind (N)),
+                     "no field Interface_Type_Definition");
+      Set_Field5 (N, Atype);
+   end Set_Interface_Type_Definition;
+
    function Get_Nature_Definition (Target : Iir) return Iir is
    begin
       pragma Assert (Target /= Null_Iir);