diff options
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 64 |
1 files changed, 58 insertions, 6 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index d34c325ae..744e5c88c 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -1052,6 +1052,31 @@ package Vhdl.Nodes is -- -- Get/Set_Visible_Flag (Flag4) + -- Iir_Kind_Vunit_Declaration (Short) + -- Iir_Kind_Vmode_Declaration (Short) + -- Iir_Kind_Vprop_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Hierarchical_Name (Field1) + -- + -- Get/Set_Inherit_Spec_Chain (Field2) + -- + -- Get/Set_Vunit_Item_Chain (Field4) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Has_Begin (Flag10) + -- Iir_Kind_Component_Declaration (Medium) -- -- Get/Set_Parent (Field0) @@ -4236,18 +4261,22 @@ package Vhdl.Nodes is Iir_Kind_Overload_List, -- used internally by sem_expr. -- Declarations. - Iir_Kind_Type_Declaration, - Iir_Kind_Anonymous_Type_Declaration, - Iir_Kind_Subtype_Declaration, - Iir_Kind_Nature_Declaration, - Iir_Kind_Subnature_Declaration, Iir_Kind_Entity_Declaration, Iir_Kind_Configuration_Declaration, Iir_Kind_Context_Declaration, Iir_Kind_Package_Declaration, Iir_Kind_Package_Instantiation_Declaration, + Iir_Kind_Vmode_Declaration, + Iir_Kind_Vprop_Declaration, + Iir_Kind_Vunit_Declaration, Iir_Kind_Package_Body, Iir_Kind_Architecture_Body, + + Iir_Kind_Type_Declaration, + Iir_Kind_Anonymous_Type_Declaration, + Iir_Kind_Subtype_Declaration, + Iir_Kind_Nature_Declaration, + Iir_Kind_Subnature_Declaration, Iir_Kind_Package_Header, Iir_Kind_Unit_Declaration, Iir_Kind_Library_Declaration, @@ -5155,6 +5184,9 @@ package Vhdl.Nodes is --Iir_Kind_Context_Declaration --Iir_Kind_Package_Declaration --Iir_Kind_Package_Instantiation_Declaration + --Iir_Kind_Vmode_Declaration + --Iir_Kind_Vprop_Declaration + --Iir_Kind_Vunit_Declaration --Iir_Kind_Package_Body Iir_Kind_Architecture_Body; @@ -5163,7 +5195,10 @@ package Vhdl.Nodes is --Iir_Kind_Configuration_Declaration --Iir_Kind_Context_Declaration --Iir_Kind_Package_Declaration - Iir_Kind_Package_Instantiation_Declaration; + --Iir_Kind_Package_Instantiation_Declaration + --Iir_Kind_Vmode_Declaration + --Iir_Kind_Vprop_Declaration + Iir_Kind_Vunit_Declaration; subtype Iir_Kinds_Secondary_Unit is Iir_Kind range Iir_Kind_Package_Body .. @@ -5173,6 +5208,11 @@ package Vhdl.Nodes is Iir_Kind_Package_Declaration .. Iir_Kind_Package_Instantiation_Declaration; + subtype Iir_Kinds_Verification_Unit is Iir_Kind range + Iir_Kind_Vmode_Declaration .. + --Iir_Kind_Vprop_Declaration + Iir_Kind_Vunit_Declaration; + -- Note: does not include iir_kind_enumeration_literal since it is -- considered as a declaration. subtype Iir_Kinds_Literal is Iir_Kind range @@ -6496,6 +6536,18 @@ package Vhdl.Nodes is function Get_Need_Instance_Bodies (Decl : Iir) return Boolean; procedure Set_Need_Instance_Bodies (Decl : Iir; Flag : Boolean); + -- Field: Field1 + 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: Field4 Chain + function Get_Vunit_Item_Chain (Vunit : Iir) return Iir; + procedure Set_Vunit_Item_Chain (Vunit : Iir; Chain : Iir); + -- Field: Field5 function Get_Block_Configuration (Target : Iir) return Iir; procedure Set_Block_Configuration (Target : Iir; Block : Iir); |