diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-12-16 07:24:18 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-12-16 07:24:18 +0100 |
commit | 8676f7d946c0c0f62359d34a52988aa74b2b949d (patch) | |
tree | 54577ad8a74d7b97bff2ff876ef34f574bc541ed /src/vhdl/vhdl-nodes.ads | |
parent | b863729ecec4169add1ba9e9e37bb9bd4737de26 (diff) | |
download | ghdl-8676f7d946c0c0f62359d34a52988aa74b2b949d.tar.gz ghdl-8676f7d946c0c0f62359d34a52988aa74b2b949d.tar.bz2 ghdl-8676f7d946c0c0f62359d34a52988aa74b2b949d.zip |
vhdl-nodes: add Get/Set_Instantiated_Header.
For #2264
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
-rw-r--r-- | src/vhdl/vhdl-nodes.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 529790b9a..65aadfa76 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -3490,6 +3490,10 @@ package Vhdl.Nodes is -- Get/Set_Label (Field3) -- Get/Set_Identifier (Alias Field3) -- + -- If the instantiated unit contains generic types or packages, this is + -- the instantiated unit. + -- Get/Set_Instantiated_Header (Field4) + -- -- Get/Set_Default_Binding_Indication (Field5) -- -- Get/Set_Generic_Map_Aspect_Chain (Field8) @@ -8919,6 +8923,10 @@ package Vhdl.Nodes is function Get_Instantiated_Unit (Target : Iir) return Iir; procedure Set_Instantiated_Unit (Target : Iir; Unit : Iir); + -- Field: Field4 + function Get_Instantiated_Header (Target : Iir) return Iir; + procedure Set_Instantiated_Header (Target : Iir; Hdr : Iir); + -- Generic map aspect list. -- Field: Field8 Chain function Get_Generic_Map_Aspect_Chain (Target : Iir) return Iir; |