diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-11-04 07:34:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-11-04 07:34:04 +0100 |
| commit | 46256fac0b1bf55c61deba39a368f53a2297b583 (patch) | |
| tree | 30017688b7697be0813ca16177cdebca5ff2de3b /src/vhdl/vhdl-nodes.ads | |
| parent | c56db23368ecb4df5eaef3920a46d12150235070 (diff) | |
| download | ghdl-46256fac0b1bf55c61deba39a368f53a2297b583.tar.gz ghdl-46256fac0b1bf55c61deba39a368f53a2297b583.tar.bz2 ghdl-46256fac0b1bf55c61deba39a368f53a2297b583.zip | |
vhdl: parse PSL inherit spec. For #1899
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 973e7f748..0e4e07809 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1149,8 +1149,6 @@ package Vhdl.Nodes is -- -- Get/Set_Hierarchical_Name (Field1) -- - -- Get/Set_Inherit_Spec_Chain (Field2) - -- -- Get/Set_Attribute_Value_Chain (Field5) -- -- Get/Set_Vunit_Item_Chain (Field6) @@ -2325,6 +2323,16 @@ package Vhdl.Nodes is -- -- Get/Set_Use_Clause_Chain (Field3) + -- Iir_Kind_PSL_Inherit_Spec (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Name (Field4) + -- + -- Get/Set_Inherit_Spec_Chain (Field3) + -- + -- Get/Set_Chain (Field2) + -- Iir_Kind_Context_Reference (Short) -- -- LRM08 13.4 Context clauses @@ -4826,6 +4834,8 @@ package Vhdl.Nodes is Iir_Kind_Use_Clause, Iir_Kind_Context_Reference, + Iir_Kind_PSL_Inherit_Spec, + -- Literals. Iir_Kind_Integer_Literal, Iir_Kind_Floating_Point_Literal, @@ -7847,10 +7857,6 @@ package Vhdl.Nodes is function Get_Hierarchical_Name (Vunit : Iir) return Iir; procedure Set_Hierarchical_Name (Vunit : Iir; Name : Iir); - -- Field: Field2 Chain - function Get_Inherit_Spec_Chain (Vunit : Iir) return Iir; - procedure Set_Inherit_Spec_Chain (Vunit : Iir; Chain : Iir); - -- Field: Field6 Chain function Get_Vunit_Item_Chain (Vunit : Iir) return Iir; procedure Set_Vunit_Item_Chain (Vunit : Iir; Chain : Iir); @@ -8109,6 +8115,10 @@ package Vhdl.Nodes is function Get_Context_Reference_Chain (Target : Iir) return Iir; procedure Set_Context_Reference_Chain (Target : Iir; Chain : Iir); + -- Field: Field3 Chain + function Get_Inherit_Spec_Chain (Target : Iir) return Iir; + procedure Set_Inherit_Spec_Chain (Target : Iir; Chain : Iir); + -- Selected name of an use_clause or context_reference -- Field: Field1 function Get_Selected_Name (Target : Iir) return Iir; |