aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-nodes.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r--src/vhdl/vhdl-nodes.adb16
1 files changed, 16 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index 07ed95bfd..c69bf2682 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -5238,6 +5238,22 @@ package body Vhdl.Nodes is
Set_Field1 (Target, Unit);
end Set_Instantiated_Unit;
+ function Get_Instantiated_Header (Target : Iir) return Iir is
+ begin
+ pragma Assert (Target /= Null_Iir);
+ pragma Assert (Has_Instantiated_Header (Get_Kind (Target)),
+ "no field Instantiated_Header");
+ return Get_Field4 (Target);
+ end Get_Instantiated_Header;
+
+ procedure Set_Instantiated_Header (Target : Iir; Hdr : Iir) is
+ begin
+ pragma Assert (Target /= Null_Iir);
+ pragma Assert (Has_Instantiated_Header (Get_Kind (Target)),
+ "no field Instantiated_Header");
+ Set_Field4 (Target, Hdr);
+ end Set_Instantiated_Header;
+
function Get_Generic_Map_Aspect_Chain (Target : Iir) return Iir is
begin
pragma Assert (Target /= Null_Iir);