diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-18 21:09:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-18 21:09:43 +0100 |
| commit | 0e76825a8170af3be3ee0f5a89c209262828d254 (patch) | |
| tree | bd960ef3fbf1f0f81edc071652faa6b35ae791a8 /src/vhdl/vhdl-nodes.ads | |
| parent | c0095f3f0c37a2db4d56dc289854252e2e6e67d4 (diff) | |
| download | ghdl-0e76825a8170af3be3ee0f5a89c209262828d254.tar.gz ghdl-0e76825a8170af3be3ee0f5a89c209262828d254.tar.bz2 ghdl-0e76825a8170af3be3ee0f5a89c209262828d254.zip | |
vhdl: add Get/Set_Associated_package. For #2264
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 65aadfa76..a791c532c 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1542,6 +1542,8 @@ package Vhdl.Nodes is -- -- Get/Set_Identifier (Field3) -- + -- Those fields are set only for the interface package in uninstantiated + -- units. -- Get/Set_Uninstantiated_Package_Name (Field7) -- -- Get/Set_Uninstantiated_Package_Decl (Field9) @@ -1554,10 +1556,13 @@ package Vhdl.Nodes is -- -- Get/Set_Declaration_Chain (Field1) -- - -- Get/Set_Chain (Field2) - -- -- Get/Set_Attribute_Value_Chain (Field5) -- + -- This field is set only for interface package that has been associated. + -- Get/Set_Associated_Package (Field4) + -- + -- Get/Set_Chain (Field2) + -- -- Get/Set_Visible_Flag (Flag4) -- -- Get/Set_Is_Within_Flag (Flag5) @@ -9029,6 +9034,10 @@ package Vhdl.Nodes is function Get_Uninstantiated_Package_Decl (Inst : Iir) return Iir; procedure Set_Uninstantiated_Package_Decl (Inst : Iir; Pkg : Iir); + -- Field: Field4 Ref + function Get_Associated_Package (Inter : Iir) return Iir; + procedure Set_Associated_Package (Inter : Iir; Pkg : Iir); + -- The created pseudo-file for relocating the instantiated nodes -- (generics and declarations). -- Field: Field10 (uc) |