diff options
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 16 |
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); |