Create src/vhdl subdirectory.

1 files changed, 9409 insertions, 0 deletions

diff --git a/src/vhdl/nodes_meta.adb b/src/vhdl/nodes_meta.adb
new file mode 100644
index 0000000..3e038f5
--- /dev/null
+++ b/src/vhdl/nodes_meta.adb
@@ -0,0 +1,9409 @@
+--  Meta description of nodes.
+--  Copyright (C) 2014 Tristan Gingold
+--
+--  GHDL is free software; you can redistribute it and/or modify it under
+--  the terms of the GNU General Public License as published by the Free
+--  Software Foundation; either version 2, or (at your option) any later
+--  version.
+--
+--  GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
+--  WARRANTY; without even the implied warranty of MERCHANTABILITY or
+--  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+--  for more details.
+--
+--  You should have received a copy of the GNU General Public License
+--  along with GHDL; see the file COPYING.  If not, write to the Free
+--  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+--  02111-1307, USA.
+
+package body Nodes_Meta is
+   Fields_Type : constant array (Fields_Enum) of Types_Enum :=
+     (
+      Field_First_Design_Unit => Type_Iir,
+      Field_Last_Design_Unit => Type_Iir,
+      Field_Library_Declaration => Type_Iir,
+      Field_File_Time_Stamp => Type_Time_Stamp_Id,
+      Field_Analysis_Time_Stamp => Type_Time_Stamp_Id,
+      Field_Library => Type_Iir,
+      Field_File_Dependence_List => Type_Iir_List,
+      Field_Design_File_Filename => Type_Name_Id,
+      Field_Design_File_Directory => Type_Name_Id,
+      Field_Design_File => Type_Iir,
+      Field_Design_File_Chain => Type_Iir,
+      Field_Library_Directory => Type_Name_Id,
+      Field_Date => Type_Date_Type,
+      Field_Context_Items => Type_Iir,
+      Field_Dependence_List => Type_Iir_List,
+      Field_Analysis_Checks_List => Type_Iir_List,
+      Field_Date_State => Type_Date_State_Type,
+      Field_Guarded_Target_State => Type_Tri_State_Type,
+      Field_Library_Unit => Type_Iir,
+      Field_Hash_Chain => Type_Iir,
+      Field_Design_Unit_Source_Pos => Type_Source_Ptr,
+      Field_Design_Unit_Source_Line => Type_Int32,
+      Field_Design_Unit_Source_Col => Type_Int32,
+      Field_Value => Type_Iir_Int64,
+      Field_Enum_Pos => Type_Iir_Int32,
+      Field_Physical_Literal => Type_Iir,
+      Field_Physical_Unit_Value => Type_Iir,
+      Field_Fp_Value => Type_Iir_Fp64,
+      Field_Enumeration_Decl => Type_Iir,
+      Field_Simple_Aggregate_List => Type_Iir_List,
+      Field_Bit_String_Base => Type_Base_Type,
+      Field_Bit_String_0 => Type_Iir,
+      Field_Bit_String_1 => Type_Iir,
+      Field_Literal_Origin => Type_Iir,
+      Field_Range_Origin => Type_Iir,
+      Field_Literal_Subtype => Type_Iir,
+      Field_Entity_Class => Type_Token_Type,
+      Field_Entity_Name_List => Type_Iir_List,
+      Field_Attribute_Designator => Type_Iir,
+      Field_Attribute_Specification_Chain => Type_Iir,
+      Field_Attribute_Specification => Type_Iir,
+      Field_Signal_List => Type_Iir_List,
+      Field_Designated_Entity => Type_Iir,
+      Field_Formal => Type_Iir,
+      Field_Actual => Type_Iir,
+      Field_In_Conversion => Type_Iir,
+      Field_Out_Conversion => Type_Iir,
+      Field_Whole_Association_Flag => Type_Boolean,
+      Field_Collapse_Signal_Flag => Type_Boolean,
+      Field_Artificial_Flag => Type_Boolean,
+      Field_Open_Flag => Type_Boolean,
+      Field_After_Drivers_Flag => Type_Boolean,
+      Field_We_Value => Type_Iir,
+      Field_Time => Type_Iir,
+      Field_Associated_Expr => Type_Iir,
+      Field_Associated_Chain => Type_Iir,
+      Field_Choice_Name => Type_Iir,
+      Field_Choice_Expression => Type_Iir,
+      Field_Choice_Range => Type_Iir,
+      Field_Same_Alternative_Flag => Type_Boolean,
+      Field_Architecture => Type_Iir,
+      Field_Block_Specification => Type_Iir,
+      Field_Prev_Block_Configuration => Type_Iir,
+      Field_Configuration_Item_Chain => Type_Iir,
+      Field_Attribute_Value_Chain => Type_Iir,
+      Field_Spec_Chain => Type_Iir,
+      Field_Attribute_Value_Spec_Chain => Type_Iir,
+      Field_Entity_Name => Type_Iir,
+      Field_Package => Type_Iir,
+      Field_Package_Body => Type_Iir,
+      Field_Need_Body => Type_Boolean,
+      Field_Block_Configuration => Type_Iir,
+      Field_Concurrent_Statement_Chain => Type_Iir,
+      Field_Chain => Type_Iir,
+      Field_Port_Chain => Type_Iir,
+      Field_Generic_Chain => Type_Iir,
+      Field_Type => Type_Iir,
+      Field_Subtype_Indication => Type_Iir,
+      Field_Discrete_Range => Type_Iir,
+      Field_Type_Definition => Type_Iir,
+      Field_Subtype_Definition => Type_Iir,
+      Field_Nature => Type_Iir,
+      Field_Mode => Type_Iir_Mode,
+      Field_Signal_Kind => Type_Iir_Signal_Kind,
+      Field_Base_Name => Type_Iir,
+      Field_Interface_Declaration_Chain => Type_Iir,
+      Field_Subprogram_Specification => Type_Iir,
+      Field_Sequential_Statement_Chain => Type_Iir,
+      Field_Subprogram_Body => Type_Iir,
+      Field_Overload_Number => Type_Iir_Int32,
+      Field_Subprogram_Depth => Type_Iir_Int32,
+      Field_Subprogram_Hash => Type_Iir_Int32,
+      Field_Impure_Depth => Type_Iir_Int32,
+      Field_Return_Type => Type_Iir,
+      Field_Implicit_Definition => Type_Iir_Predefined_Functions,
+      Field_Type_Reference => Type_Iir,
+      Field_Default_Value => Type_Iir,
+      Field_Deferred_Declaration => Type_Iir,
+      Field_Deferred_Declaration_Flag => Type_Boolean,
+      Field_Shared_Flag => Type_Boolean,
+      Field_Design_Unit => Type_Iir,
+      Field_Block_Statement => Type_Iir,
+      Field_Signal_Driver => Type_Iir,
+      Field_Declaration_Chain => Type_Iir,
+      Field_File_Logical_Name => Type_Iir,
+      Field_File_Open_Kind => Type_Iir,
+      Field_Element_Position => Type_Iir_Index32,
+      Field_Element_Declaration => Type_Iir,
+      Field_Selected_Element => Type_Iir,
+      Field_Use_Clause_Chain => Type_Iir,
+      Field_Selected_Name => Type_Iir,
+      Field_Type_Declarator => Type_Iir,
+      Field_Enumeration_Literal_List => Type_Iir_List,
+      Field_Entity_Class_Entry_Chain => Type_Iir,
+      Field_Group_Constituent_List => Type_Iir_List,
+      Field_Unit_Chain => Type_Iir,
+      Field_Primary_Unit => Type_Iir,
+      Field_Identifier => Type_Name_Id,
+      Field_Label => Type_Name_Id,
+      Field_Visible_Flag => Type_Boolean,
+      Field_Range_Constraint => Type_Iir,
+      Field_Direction => Type_Iir_Direction,
+      Field_Left_Limit => Type_Iir,
+      Field_Right_Limit => Type_Iir,
+      Field_Base_Type => Type_Iir,
+      Field_Resolution_Indication => Type_Iir,
+      Field_Record_Element_Resolution_Chain => Type_Iir,
+      Field_Tolerance => Type_Iir,
+      Field_Plus_Terminal => Type_Iir,
+      Field_Minus_Terminal => Type_Iir,
+      Field_Simultaneous_Left => Type_Iir,
+      Field_Simultaneous_Right => Type_Iir,
+      Field_Text_File_Flag => Type_Boolean,
+      Field_Only_Characters_Flag => Type_Boolean,
+      Field_Type_Staticness => Type_Iir_Staticness,
+      Field_Constraint_State => Type_Iir_Constraint,
+      Field_Index_Subtype_List => Type_Iir_List,
+      Field_Index_Subtype_Definition_List => Type_Iir_List,
+      Field_Element_Subtype_Indication => Type_Iir,
+      Field_Element_Subtype => Type_Iir,
+      Field_Index_Constraint_List => Type_Iir_List,
+      Field_Array_Element_Constraint => Type_Iir,
+      Field_Elements_Declaration_List => Type_Iir_List,
+      Field_Designated_Type => Type_Iir,
+      Field_Designated_Subtype_Indication => Type_Iir,
+      Field_Index_List => Type_Iir_List,
+      Field_Reference => Type_Iir,
+      Field_Nature_Declarator => Type_Iir,
+      Field_Across_Type => Type_Iir,
+      Field_Through_Type => Type_Iir,
+      Field_Target => Type_Iir,
+      Field_Waveform_Chain => Type_Iir,
+      Field_Guard => Type_Iir,
+      Field_Delay_Mechanism => Type_Iir_Delay_Mechanism,
+      Field_Reject_Time_Expression => Type_Iir,
+      Field_Sensitivity_List => Type_Iir_List,
+      Field_Process_Origin => Type_Iir,
+      Field_Condition_Clause => Type_Iir,
+      Field_Timeout_Clause => Type_Iir,
+      Field_Postponed_Flag => Type_Boolean,
+      Field_Callees_List => Type_Iir_List,
+      Field_Passive_Flag => Type_Boolean,
+      Field_Resolution_Function_Flag => Type_Boolean,
+      Field_Wait_State => Type_Tri_State_Type,
+      Field_All_Sensitized_State => Type_Iir_All_Sensitized,
+      Field_Seen_Flag => Type_Boolean,
+      Field_Pure_Flag => Type_Boolean,
+      Field_Foreign_Flag => Type_Boolean,
+      Field_Resolved_Flag => Type_Boolean,
+      Field_Signal_Type_Flag => Type_Boolean,
+      Field_Has_Signal_Flag => Type_Boolean,
+      Field_Purity_State => Type_Iir_Pure_State,
+      Field_Elab_Flag => Type_Boolean,
+      Field_Index_Constraint_Flag => Type_Boolean,
+      Field_Assertion_Condition => Type_Iir,
+      Field_Report_Expression => Type_Iir,
+      Field_Severity_Expression => Type_Iir,
+      Field_Instantiated_Unit => Type_Iir,
+      Field_Generic_Map_Aspect_Chain => Type_Iir,
+      Field_Port_Map_Aspect_Chain => Type_Iir,
+      Field_Configuration_Name => Type_Iir,
+      Field_Component_Configuration => Type_Iir,
+      Field_Configuration_Specification => Type_Iir,
+      Field_Default_Binding_Indication => Type_Iir,
+      Field_Default_Configuration_Declaration => Type_Iir,
+      Field_Expression => Type_Iir,
+      Field_Allocator_Designated_Type => Type_Iir,
+      Field_Selected_Waveform_Chain => Type_Iir,
+      Field_Conditional_Waveform_Chain => Type_Iir,
+      Field_Guard_Expression => Type_Iir,
+      Field_Guard_Decl => Type_Iir,
+      Field_Guard_Sensitivity_List => Type_Iir_List,
+      Field_Block_Block_Configuration => Type_Iir,
+      Field_Package_Header => Type_Iir,
+      Field_Block_Header => Type_Iir,
+      Field_Uninstantiated_Package_Name => Type_Iir,
+      Field_Generate_Block_Configuration => Type_Iir,
+      Field_Generation_Scheme => Type_Iir,
+      Field_Condition => Type_Iir,
+      Field_Else_Clause => Type_Iir,
+      Field_Parameter_Specification => Type_Iir,
+      Field_Parent => Type_Iir,
+      Field_Loop_Label => Type_Iir,
+      Field_Component_Name => Type_Iir,
+      Field_Instantiation_List => Type_Iir_List,
+      Field_Entity_Aspect => Type_Iir,
+      Field_Default_Entity_Aspect => Type_Iir,
+      Field_Default_Generic_Map_Aspect_Chain => Type_Iir,
+      Field_Default_Port_Map_Aspect_Chain => Type_Iir,
+      Field_Binding_Indication => Type_Iir,
+      Field_Named_Entity => Type_Iir,
+      Field_Alias_Declaration => Type_Iir,
+      Field_Expr_Staticness => Type_Iir_Staticness,
+      Field_Error_Origin => Type_Iir,
+      Field_Operand => Type_Iir,
+      Field_Left => Type_Iir,
+      Field_Right => Type_Iir,
+      Field_Unit_Name => Type_Iir,
+      Field_Name => Type_Iir,
+      Field_Group_Template_Name => Type_Iir,
+      Field_Name_Staticness => Type_Iir_Staticness,
+      Field_Prefix => Type_Iir,
+      Field_Signature_Prefix => Type_Iir,
+      Field_Slice_Subtype => Type_Iir,
+      Field_Suffix => Type_Iir,
+      Field_Index_Subtype => Type_Iir,
+      Field_Parameter => Type_Iir,
+      Field_Actual_Type => Type_Iir,
+      Field_Associated_Interface => Type_Iir,
+      Field_Association_Chain => Type_Iir,
+      Field_Individual_Association_Chain => Type_Iir,
+      Field_Aggregate_Info => Type_Iir,
+      Field_Sub_Aggregate_Info => Type_Iir,
+      Field_Aggr_Dynamic_Flag => Type_Boolean,
+      Field_Aggr_Min_Length => Type_Iir_Int32,
+      Field_Aggr_Low_Limit => Type_Iir,
+      Field_Aggr_High_Limit => Type_Iir,
+      Field_Aggr_Others_Flag => Type_Boolean,
+      Field_Aggr_Named_Flag => Type_Boolean,
+      Field_Value_Staticness => Type_Iir_Staticness,
+      Field_Association_Choices_Chain => Type_Iir,
+      Field_Case_Statement_Alternative_Chain => Type_Iir,
+      Field_Choice_Staticness => Type_Iir_Staticness,
+      Field_Procedure_Call => Type_Iir,
+      Field_Implementation => Type_Iir,
+      Field_Parameter_Association_Chain => Type_Iir,
+      Field_Method_Object => Type_Iir,
+      Field_Subtype_Type_Mark => Type_Iir,
+      Field_Type_Conversion_Subtype => Type_Iir,
+      Field_Type_Mark => Type_Iir,
+      Field_File_Type_Mark => Type_Iir,
+      Field_Return_Type_Mark => Type_Iir,
+      Field_Lexical_Layout => Type_Iir_Lexical_Layout_Type,
+      Field_Incomplete_Type_List => Type_Iir_List,
+      Field_Has_Disconnect_Flag => Type_Boolean,
+      Field_Has_Active_Flag => Type_Boolean,
+      Field_Is_Within_Flag => Type_Boolean,
+      Field_Type_Marks_List => Type_Iir_List,
+      Field_Implicit_Alias_Flag => Type_Boolean,
+      Field_Alias_Signature => Type_Iir,
+      Field_Attribute_Signature => Type_Iir,
+      Field_Overload_List => Type_Iir_List,
+      Field_Simple_Name_Identifier => Type_Name_Id,
+      Field_Simple_Name_Subtype => Type_Iir,
+      Field_Protected_Type_Body => Type_Iir,
+      Field_Protected_Type_Declaration => Type_Iir,
+      Field_End_Location => Type_Location_Type,
+      Field_String_Id => Type_String_Id,
+      Field_String_Length => Type_Int32,
+      Field_Use_Flag => Type_Boolean,
+      Field_End_Has_Reserved_Id => Type_Boolean,
+      Field_End_Has_Identifier => Type_Boolean,
+      Field_End_Has_Postponed => Type_Boolean,
+      Field_Has_Begin => Type_Boolean,
+      Field_Has_Is => Type_Boolean,
+      Field_Has_Pure => Type_Boolean,
+      Field_Has_Body => Type_Boolean,
+      Field_Has_Identifier_List => Type_Boolean,
+      Field_Has_Mode => Type_Boolean,
+      Field_Is_Ref => Type_Boolean,
+      Field_Psl_Property => Type_PSL_Node,
+      Field_Psl_Declaration => Type_PSL_Node,
+      Field_Psl_Expression => Type_PSL_Node,
+      Field_Psl_Boolean => Type_PSL_Node,
+      Field_PSL_Clock => Type_PSL_Node,
+      Field_PSL_NFA => Type_PSL_NFA
+     );
+
+   function Get_Field_Type (F : Fields_Enum) return Types_Enum is
+   begin
+      return Fields_Type (F);
+   end Get_Field_Type;
+
+   function Get_Field_Image (F : Fields_Enum) return String is
+   begin
+      case F is
+         when Field_First_Design_Unit =>
+            return "first_design_unit";
+         when Field_Last_Design_Unit =>
+            return "last_design_unit";
+         when Field_Library_Declaration =>
+            return "library_declaration";
+         when Field_File_Time_Stamp =>
+            return "file_time_stamp";
+         when Field_Analysis_Time_Stamp =>
+            return "analysis_time_stamp";
+         when Field_Library =>
+            return "library";
+         when Field_File_Dependence_List =>
+            return "file_dependence_list";
+         when Field_Design_File_Filename =>
+            return "design_file_filename";
+         when Field_Design_File_Directory =>
+            return "design_file_directory";
+         when Field_Design_File =>
+            return "design_file";
+         when Field_Design_File_Chain =>
+            return "design_file_chain";
+         when Field_Library_Directory =>
+            return "library_directory";
+         when Field_Date =>
+            return "date";
+         when Field_Context_Items =>
+            return "context_items";
+         when Field_Dependence_List =>
+            return "dependence_list";
+         when Field_Analysis_Checks_List =>
+            return "analysis_checks_list";
+         when Field_Date_State =>
+            return "date_state";
+         when Field_Guarded_Target_State =>
+            return "guarded_target_state";
+         when Field_Library_Unit =>
+            return "library_unit";
+         when Field_Hash_Chain =>
+            return "hash_chain";
+         when Field_Design_Unit_Source_Pos =>
+            return "design_unit_source_pos";
+         when Field_Design_Unit_Source_Line =>
+            return "design_unit_source_line";
+         when Field_Design_Unit_Source_Col =>
+            return "design_unit_source_col";
+         when Field_Value =>
+            return "value";
+         when Field_Enum_Pos =>
+            return "enum_pos";
+         when Field_Physical_Literal =>
+            return "physical_literal";
+         when Field_Physical_Unit_Value =>
+            return "physical_unit_value";
+         when Field_Fp_Value =>
+            return "fp_value";
+         when Field_Enumeration_Decl =>
+            return "enumeration_decl";
+         when Field_Simple_Aggregate_List =>
+            return "simple_aggregate_list";
+         when Field_Bit_String_Base =>
+            return "bit_string_base";
+         when Field_Bit_String_0 =>
+            return "bit_string_0";
+         when Field_Bit_String_1 =>
+            return "bit_string_1";
+         when Field_Literal_Origin =>
+            return "literal_origin";
+         when Field_Range_Origin =>
+            return "range_origin";
+         when Field_Literal_Subtype =>
+            return "literal_subtype";
+         when Field_Entity_Class =>
+            return "entity_class";
+         when Field_Entity_Name_List =>
+            return "entity_name_list";
+         when Field_Attribute_Designator =>
+            return "attribute_designator";
+         when Field_Attribute_Specification_Chain =>
+            return "attribute_specification_chain";
+         when Field_Attribute_Specification =>
+            return "attribute_specification";
+         when Field_Signal_List =>
+            return "signal_list";
+         when Field_Designated_Entity =>
+            return "designated_entity";
+         when Field_Formal =>
+            return "formal";
+         when Field_Actual =>
+            return "actual";
+         when Field_In_Conversion =>
+            return "in_conversion";
+         when Field_Out_Conversion =>
+            return "out_conversion";
+         when Field_Whole_Association_Flag =>
+            return "whole_association_flag";
+         when Field_Collapse_Signal_Flag =>
+            return "collapse_signal_flag";
+         when Field_Artificial_Flag =>
+            return "artificial_flag";
+         when Field_Open_Flag =>
+            return "open_flag";
+         when Field_After_Drivers_Flag =>
+            return "after_drivers_flag";
+         when Field_We_Value =>
+            return "we_value";
+         when Field_Time =>
+            return "time";
+         when Field_Associated_Expr =>
+            return "associated_expr";
+         when Field_Associated_Chain =>
+            return "associated_chain";
+         when Field_Choice_Name =>
+            return "choice_name";
+         when Field_Choice_Expression =>
+            return "choice_expression";
+         when Field_Choice_Range =>
+            return "choice_range";
+         when Field_Same_Alternative_Flag =>
+            return "same_alternative_flag";
+         when Field_Architecture =>
+            return "architecture";
+         when Field_Block_Specification =>
+            return "block_specification";
+         when Field_Prev_Block_Configuration =>
+            return "prev_block_configuration";
+         when Field_Configuration_Item_Chain =>
+            return "configuration_item_chain";
+         when Field_Attribute_Value_Chain =>
+            return "attribute_value_chain";
+         when Field_Spec_Chain =>
+            return "spec_chain";
+         when Field_Attribute_Value_Spec_Chain =>
+            return "attribute_value_spec_chain";
+         when Field_Entity_Name =>
+            return "entity_name";
+         when Field_Package =>
+            return "package";
+         when Field_Package_Body =>
+            return "package_body";
+         when Field_Need_Body =>
+            return "need_body";
+         when Field_Block_Configuration =>
+            return "block_configuration";
+         when Field_Concurrent_Statement_Chain =>
+            return "concurrent_statement_chain";
+         when Field_Chain =>
+            return "chain";
+         when Field_Port_Chain =>
+            return "port_chain";
+         when Field_Generic_Chain =>
+            return "generic_chain";
+         when Field_Type =>
+            return "type";
+         when Field_Subtype_Indication =>
+            return "subtype_indication";
+         when Field_Discrete_Range =>
+            return "discrete_range";
+         when Field_Type_Definition =>
+            return "type_definition";
+         when Field_Subtype_Definition =>
+            return "subtype_definition";
+         when Field_Nature =>
+            return "nature";
+         when Field_Mode =>
+            return "mode";
+         when Field_Signal_Kind =>
+            return "signal_kind";
+         when Field_Base_Name =>
+            return "base_name";
+         when Field_Interface_Declaration_Chain =>
+            return "interface_declaration_chain";
+         when Field_Subprogram_Specification =>
+            return "subprogram_specification";
+         when Field_Sequential_Statement_Chain =>
+            return "sequential_statement_chain";
+         when Field_Subprogram_Body =>
+            return "subprogram_body";
+         when Field_Overload_Number =>
+            return "overload_number";
+         when Field_Subprogram_Depth =>
+            return "subprogram_depth";
+         when Field_Subprogram_Hash =>
+            return "subprogram_hash";
+         when Field_Impure_Depth =>
+            return "impure_depth";
+         when Field_Return_Type =>
+            return "return_type";
+         when Field_Implicit_Definition =>
+            return "implicit_definition";
+         when Field_Type_Reference =>
+            return "type_reference";
+         when Field_Default_Value =>
+            return "default_value";
+         when Field_Deferred_Declaration =>
+            return "deferred_declaration";
+         when Field_Deferred_Declaration_Flag =>
+            return "deferred_declaration_flag";
+         when Field_Shared_Flag =>
+            return "shared_flag";
+         when Field_Design_Unit =>
+            return "design_unit";
+         when Field_Block_Statement =>
+            return "block_statement";
+         when Field_Signal_Driver =>
+            return "signal_driver";
+         when Field_Declaration_Chain =>
+            return "declaration_chain";
+         when Field_File_Logical_Name =>
+            return "file_logical_name";
+         when Field_File_Open_Kind =>
+            return "file_open_kind";
+         when Field_Element_Position =>
+            return "element_position";
+         when Field_Element_Declaration =>
+            return "element_declaration";
+         when Field_Selected_Element =>
+            return "selected_element";
+         when Field_Use_Clause_Chain =>
+            return "use_clause_chain";
+         when Field_Selected_Name =>
+            return "selected_name";
+         when Field_Type_Declarator =>
+            return "type_declarator";
+         when Field_Enumeration_Literal_List =>
+            return "enumeration_literal_list";
+         when Field_Entity_Class_Entry_Chain =>
+            return "entity_class_entry_chain";
+         when Field_Group_Constituent_List =>
+            return "group_constituent_list";
+         when Field_Unit_Chain =>
+            return "unit_chain";
+         when Field_Primary_Unit =>
+            return "primary_unit";
+         when Field_Identifier =>
+            return "identifier";
+         when Field_Label =>
+            return "label";
+         when Field_Visible_Flag =>
+            return "visible_flag";
+         when Field_Range_Constraint =>
+            return "range_constraint";
+         when Field_Direction =>
+            return "direction";
+         when Field_Left_Limit =>
+            return "left_limit";
+         when Field_Right_Limit =>
+            return "right_limit";
+         when Field_Base_Type =>
+            return "base_type";
+         when Field_Resolution_Indication =>
+            return "resolution_indication";
+         when Field_Record_Element_Resolution_Chain =>
+            return "record_element_resolution_chain";
+         when Field_Tolerance =>
+            return "tolerance";
+         when Field_Plus_Terminal =>
+            return "plus_terminal";
+         when Field_Minus_Terminal =>
+            return "minus_terminal";
+         when Field_Simultaneous_Left =>
+            return "simultaneous_left";
+         when Field_Simultaneous_Right =>
+            return "simultaneous_right";
+         when Field_Text_File_Flag =>
+            return "text_file_flag";
+         when Field_Only_Characters_Flag =>
+            return "only_characters_flag";
+         when Field_Type_Staticness =>
+            return "type_staticness";
+         when Field_Constraint_State =>
+            return "constraint_state";
+         when Field_Index_Subtype_List =>
+            return "index_subtype_list";
+         when Field_Index_Subtype_Definition_List =>
+            return "index_subtype_definition_list";
+         when Field_Element_Subtype_Indication =>
+            return "element_subtype_indication";
+         when Field_Element_Subtype =>
+            return "element_subtype";
+         when Field_Index_Constraint_List =>
+            return "index_constraint_list";
+         when Field_Array_Element_Constraint =>
+            return "array_element_constraint";
+         when Field_Elements_Declaration_List =>
+            return "elements_declaration_list";
+         when Field_Designated_Type =>
+            return "designated_type";
+         when Field_Designated_Subtype_Indication =>
+            return "designated_subtype_indication";
+         when Field_Index_List =>
+            return "index_list";
+         when Field_Reference =>
+            return "reference";
+         when Field_Nature_Declarator =>
+            return "nature_declarator";
+         when Field_Across_Type =>
+            return "across_type";
+         when Field_Through_Type =>
+            return "through_type";
+         when Field_Target =>
+            return "target";
+         when Field_Waveform_Chain =>
+            return "waveform_chain";
+         when Field_Guard =>
+            return "guard";
+         when Field_Delay_Mechanism =>
+            return "delay_mechanism";
+         when Field_Reject_Time_Expression =>
+            return "reject_time_expression";
+         when Field_Sensitivity_List =>
+            return "sensitivity_list";
+         when Field_Process_Origin =>
+            return "process_origin";
+         when Field_Condition_Clause =>
+            return "condition_clause";
+         when Field_Timeout_Clause =>
+            return "timeout_clause";
+         when Field_Postponed_Flag =>
+            return "postponed_flag";
+         when Field_Callees_List =>
+            return "callees_list";
+         when Field_Passive_Flag =>
+            return "passive_flag";
+         when Field_Resolution_Function_Flag =>
+            return "resolution_function_flag";
+         when Field_Wait_State =>
+            return "wait_state";
+         when Field_All_Sensitized_State =>
+            return "all_sensitized_state";
+         when Field_Seen_Flag =>
+            return "seen_flag";
+         when Field_Pure_Flag =>
+            return "pure_flag";
+         when Field_Foreign_Flag =>
+            return "foreign_flag";
+         when Field_Resolved_Flag =>
+            return "resolved_flag";
+         when Field_Signal_Type_Flag =>
+            return "signal_type_flag";
+         when Field_Has_Signal_Flag =>
+            return "has_signal_flag";
+         when Field_Purity_State =>
+            return "purity_state";
+         when Field_Elab_Flag =>
+            return "elab_flag";
+         when Field_Index_Constraint_Flag =>
+            return "index_constraint_flag";
+         when Field_Assertion_Condition =>
+            return "assertion_condition";
+         when Field_Report_Expression =>
+            return "report_expression";
+         when Field_Severity_Expression =>
+            return "severity_expression";
+         when Field_Instantiated_Unit =>
+            return "instantiated_unit";
+         when Field_Generic_Map_Aspect_Chain =>
+            return "generic_map_aspect_chain";
+         when Field_Port_Map_Aspect_Chain =>
+            return "port_map_aspect_chain";
+         when Field_Configuration_Name =>
+            return "configuration_name";
+         when Field_Component_Configuration =>
+            return "component_configuration";
+         when Field_Configuration_Specification =>
+            return "configuration_specification";
+         when Field_Default_Binding_Indication =>
+            return "default_binding_indication";
+         when Field_Default_Configuration_Declaration =>
+            return "default_configuration_declaration";
+         when Field_Expression =>
+            return "expression";
+         when Field_Allocator_Designated_Type =>
+            return "allocator_designated_type";
+         when Field_Selected_Waveform_Chain =>
+            return "selected_waveform_chain";
+         when Field_Conditional_Waveform_Chain =>
+            return "conditional_waveform_chain";
+         when Field_Guard_Expression =>
+            return "guard_expression";
+         when Field_Guard_Decl =>
+            return "guard_decl";
+         when Field_Guard_Sensitivity_List =>
+            return "guard_sensitivity_list";
+         when Field_Block_Block_Configuration =>
+            return "block_block_configuration";
+         when Field_Package_Header =>
+            return "package_header";
+         when Field_Block_Header =>
+            return "block_header";
+         when Field_Uninstantiated_Package_Name =>
+            return "uninstantiated_package_name";
+         when Field_Generate_Block_Configuration =>
+            return "generate_block_configuration";
+         when Field_Generation_Scheme =>
+            return "generation_scheme";
+         when Field_Condition =>
+            return "condition";
+         when Field_Else_Clause =>
+            return "else_clause";
+         when Field_Parameter_Specification =>
+            return "parameter_specification";
+         when Field_Parent =>
+            return "parent";
+         when Field_Loop_Label =>
+            return "loop_label";
+         when Field_Component_Name =>
+            return "component_name";
+         when Field_Instantiation_List =>
+            return "instantiation_list";
+         when Field_Entity_Aspect =>
+            return "entity_aspect";
+         when Field_Default_Entity_Aspect =>
+            return "default_entity_aspect";
+         when Field_Default_Generic_Map_Aspect_Chain =>
+            return "default_generic_map_aspect_chain";
+         when Field_Default_Port_Map_Aspect_Chain =>
+            return "default_port_map_aspect_chain";
+         when Field_Binding_Indication =>
+            return "binding_indication";
+         when Field_Named_Entity =>
+            return "named_entity";
+         when Field_Alias_Declaration =>
+            return "alias_declaration";
+         when Field_Expr_Staticness =>
+            return "expr_staticness";
+         when Field_Error_Origin =>
+            return "error_origin";
+         when Field_Operand =>
+            return "operand";
+         when Field_Left =>
+            return "left";
+         when Field_Right =>
+            return "right";
+         when Field_Unit_Name =>
+            return "unit_name";
+         when Field_Name =>
+            return "name";
+         when Field_Group_Template_Name =>
+            return "group_template_name";
+         when Field_Name_Staticness =>
+            return "name_staticness";
+         when Field_Prefix =>
+            return "prefix";
+         when Field_Signature_Prefix =>
+            return "signature_prefix";
+         when Field_Slice_Subtype =>
+            return "slice_subtype";
+         when Field_Suffix =>
+            return "suffix";
+         when Field_Index_Subtype =>
+            return "index_subtype";
+         when Field_Parameter =>
+            return "parameter";
+         when Field_Actual_Type =>
+            return "actual_type";
+         when Field_Associated_Interface =>
+            return "associated_interface";
+         when Field_Association_Chain =>
+            return "association_chain";
+         when Field_Individual_Association_Chain =>
+            return "individual_association_chain";
+         when Field_Aggregate_Info =>
+            return "aggregate_info";
+         when Field_Sub_Aggregate_Info =>
+            return "sub_aggregate_info";
+         when Field_Aggr_Dynamic_Flag =>
+            return "aggr_dynamic_flag";
+         when Field_Aggr_Min_Length =>
+            return "aggr_min_length";
+         when Field_Aggr_Low_Limit =>
+            return "aggr_low_limit";
+         when Field_Aggr_High_Limit =>
+            return "aggr_high_limit";
+         when Field_Aggr_Others_Flag =>
+            return "aggr_others_flag";
+         when Field_Aggr_Named_Flag =>
+            return "aggr_named_flag";
+         when Field_Value_Staticness =>
+            return "value_staticness";
+         when Field_Association_Choices_Chain =>
+            return "association_choices_chain";
+         when Field_Case_Statement_Alternative_Chain =>
+            return "case_statement_alternative_chain";
+         when Field_Choice_Staticness =>
+            return "choice_staticness";
+         when Field_Procedure_Call =>
+            return "procedure_call";
+         when Field_Implementation =>
+            return "implementation";
+         when Field_Parameter_Association_Chain =>
+            return "parameter_association_chain";
+         when Field_Method_Object =>
+            return "method_object";
+         when Field_Subtype_Type_Mark =>
+            return "subtype_type_mark";
+         when Field_Type_Conversion_Subtype =>
+            return "type_conversion_subtype";
+         when Field_Type_Mark =>
+            return "type_mark";
+         when Field_File_Type_Mark =>
+            return "file_type_mark";
+         when Field_Return_Type_Mark =>
+            return "return_type_mark";
+         when Field_Lexical_Layout =>
+            return "lexical_layout";
+         when Field_Incomplete_Type_List =>
+            return "incomplete_type_list";
+         when Field_Has_Disconnect_Flag =>
+            return "has_disconnect_flag";
+         when Field_Has_Active_Flag =>
+            return "has_active_flag";
+         when Field_Is_Within_Flag =>
+            return "is_within_flag";
+         when Field_Type_Marks_List =>
+            return "type_marks_list";
+         when Field_Implicit_Alias_Flag =>
+            return "implicit_alias_flag";
+         when Field_Alias_Signature =>
+            return "alias_signature";
+         when Field_Attribute_Signature =>
+            return "attribute_signature";
+         when Field_Overload_List =>
+            return "overload_list";
+         when Field_Simple_Name_Identifier =>
+            return "simple_name_identifier";
+         when Field_Simple_Name_Subtype =>
+            return "simple_name_subtype";
+         when Field_Protected_Type_Body =>
+            return "protected_type_body";
+         when Field_Protected_Type_Declaration =>
+            return "protected_type_declaration";
+         when Field_End_Location =>
+            return "end_location";
+         when Field_String_Id =>
+            return "string_id";
+         when Field_String_Length =>
+            return "string_length";
+         when Field_Use_Flag =>
+            return "use_flag";
+         when Field_End_Has_Reserved_Id =>
+            return "end_has_reserved_id";
+         when Field_End_Has_Identifier =>
+            return "end_has_identifier";
+         when Field_End_Has_Postponed =>
+            return "end_has_postponed";
+         when Field_Has_Begin =>
+            return "has_begin";
+         when Field_Has_Is =>
+            return "has_is";
+         when Field_Has_Pure =>
+            return "has_pure";
+         when Field_Has_Body =>
+            return "has_body";
+         when Field_Has_Identifier_List =>
+            return "has_identifier_list";
+         when Field_Has_Mode =>
+            return "has_mode";
+         when Field_Is_Ref =>
+            return "is_ref";
+         when Field_Psl_Property =>
+            return "psl_property";
+         when Field_Psl_Declaration =>
+            return "psl_declaration";
+         when Field_Psl_Expression =>
+            return "psl_expression";
+         when Field_Psl_Boolean =>
+            return "psl_boolean";
+         when Field_PSL_Clock =>
+            return "psl_clock";
+         when Field_PSL_NFA =>
+            return "psl_nfa";
+      end case;
+   end Get_Field_Image;
+
+   function Get_Iir_Image (K : Iir_Kind) return String is
+   begin
+      case K is
+         when Iir_Kind_Unused =>
+            return "unused";
+         when Iir_Kind_Error =>
+            return "error";
+         when Iir_Kind_Design_File =>
+            return "design_file";
+         when Iir_Kind_Design_Unit =>
+            return "design_unit";
+         when Iir_Kind_Library_Clause =>
+            return "library_clause";
+         when Iir_Kind_Use_Clause =>
+            return "use_clause";
+         when Iir_Kind_Integer_Literal =>
+            return "integer_literal";
+         when Iir_Kind_Floating_Point_Literal =>
+            return "floating_point_literal";
+         when Iir_Kind_Null_Literal =>
+            return "null_literal";
+         when Iir_Kind_String_Literal =>
+            return "string_literal";
+         when Iir_Kind_Physical_Int_Literal =>
+            return "physical_int_literal";
+         when Iir_Kind_Physical_Fp_Literal =>
+            return "physical_fp_literal";
+         when Iir_Kind_Bit_String_Literal =>
+            return "bit_string_literal";
+         when Iir_Kind_Simple_Aggregate =>
+            return "simple_aggregate";
+         when Iir_Kind_Overflow_Literal =>
+            return "overflow_literal";
+         when Iir_Kind_Waveform_Element =>
+            return "waveform_element";
+         when Iir_Kind_Conditional_Waveform =>
+            return "conditional_waveform";
+         when Iir_Kind_Association_Element_By_Expression =>
+            return "association_element_by_expression";
+         when Iir_Kind_Association_Element_By_Individual =>
+            return "association_element_by_individual";
+         when Iir_Kind_Association_Element_Open =>
+            return "association_element_open";
+         when Iir_Kind_Association_Element_Package =>
+            return "association_element_package";
+         when Iir_Kind_Choice_By_Others =>
+            return "choice_by_others";
+         when Iir_Kind_Choice_By_Expression =>
+            return "choice_by_expression";
+         when Iir_Kind_Choice_By_Range =>
+            return "choice_by_range";
+         when Iir_Kind_Choice_By_None =>
+            return "choice_by_none";
+         when Iir_Kind_Choice_By_Name =>
+            return "choice_by_name";
+         when Iir_Kind_Entity_Aspect_Entity =>
+            return "entity_aspect_entity";
+         when Iir_Kind_Entity_Aspect_Configuration =>
+            return "entity_aspect_configuration";
+         when Iir_Kind_Entity_Aspect_Open =>
+            return "entity_aspect_open";
+         when Iir_Kind_Block_Configuration =>
+            return "block_configuration";
+         when Iir_Kind_Block_Header =>
+            return "block_header";
+         when Iir_Kind_Component_Configuration =>
+            return "component_configuration";
+         when Iir_Kind_Binding_Indication =>
+            return "binding_indication";
+         when Iir_Kind_Entity_Class =>
+            return "entity_class";
+         when Iir_Kind_Attribute_Value =>
+            return "attribute_value";
+         when Iir_Kind_Signature =>
+            return "signature";
+         when Iir_Kind_Aggregate_Info =>
+            return "aggregate_info";
+         when Iir_Kind_Procedure_Call =>
+            return "procedure_call";
+         when Iir_Kind_Record_Element_Constraint =>
+            return "record_element_constraint";
+         when Iir_Kind_Array_Element_Resolution =>
+            return "array_element_resolution";
+         when Iir_Kind_Record_Resolution =>
+            return "record_resolution";
+         when Iir_Kind_Record_Element_Resolution =>
+            return "record_element_resolution";
+         when Iir_Kind_Attribute_Specification =>
+            return "attribute_specification";
+         when Iir_Kind_Disconnection_Specification =>
+            return "disconnection_specification";
+         when Iir_Kind_Configuration_Specification =>
+            return "configuration_specification";
+         when Iir_Kind_Access_Type_Definition =>
+            return "access_type_definition";
+         when Iir_Kind_Incomplete_Type_Definition =>
+            return "incomplete_type_definition";
+         when Iir_Kind_File_Type_Definition =>
+            return "file_type_definition";
+         when Iir_Kind_Protected_Type_Declaration =>
+            return "protected_type_declaration";
+         when Iir_Kind_Record_Type_Definition =>
+            return "record_type_definition";
+         when Iir_Kind_Array_Type_Definition =>
+            return "array_type_definition";
+         when Iir_Kind_Array_Subtype_Definition =>
+            return "array_subtype_definition";
+         when Iir_Kind_Record_Subtype_Definition =>
+            return "record_subtype_definition";
+         when Iir_Kind_Access_Subtype_Definition =>
+            return "access_subtype_definition";
+         when Iir_Kind_Physical_Subtype_Definition =>
+            return "physical_subtype_definition";
+         when Iir_Kind_Floating_Subtype_Definition =>
+            return "floating_subtype_definition";
+         when Iir_Kind_Integer_Subtype_Definition =>
+            return "integer_subtype_definition";
+         when Iir_Kind_Enumeration_Subtype_Definition =>
+            return "enumeration_subtype_definition";
+         when Iir_Kind_Enumeration_Type_Definition =>
+            return "enumeration_type_definition";
+         when Iir_Kind_Integer_Type_Definition =>
+            return "integer_type_definition";
+         when Iir_Kind_Floating_Type_Definition =>
+            return "floating_type_definition";
+         when Iir_Kind_Physical_Type_Definition =>
+            return "physical_type_definition";
+         when Iir_Kind_Range_Expression =>
+            return "range_expression";
+         when Iir_Kind_Protected_Type_Body =>
+            return "protected_type_body";
+         when Iir_Kind_Subtype_Definition =>
+            return "subtype_definition";
+         when Iir_Kind_Scalar_Nature_Definition =>
+            return "scalar_nature_definition";
+         when Iir_Kind_Overload_List =>
+            return "overload_list";
+         when Iir_Kind_Type_Declaration =>
+            return "type_declaration";
+         when Iir_Kind_Anonymous_Type_Declaration =>
+            return "anonymous_type_declaration";
+         when Iir_Kind_Subtype_Declaration =>
+            return "subtype_declaration";
+         when Iir_Kind_Nature_Declaration =>
+            return "nature_declaration";
+         when Iir_Kind_Subnature_Declaration =>
+            return "subnature_declaration";
+         when Iir_Kind_Package_Declaration =>
+            return "package_declaration";
+         when Iir_Kind_Package_Instantiation_Declaration =>
+            return "package_instantiation_declaration";
+         when Iir_Kind_Package_Body =>
+            return "package_body";
+         when Iir_Kind_Configuration_Declaration =>
+            return "configuration_declaration";
+         when Iir_Kind_Entity_Declaration =>
+            return "entity_declaration";
+         when Iir_Kind_Architecture_Body =>
+            return "architecture_body";
+         when Iir_Kind_Package_Header =>
+            return "package_header";
+         when Iir_Kind_Unit_Declaration =>
+            return "unit_declaration";
+         when Iir_Kind_Library_Declaration =>
+            return "library_declaration";
+         when Iir_Kind_Component_Declaration =>
+            return "component_declaration";
+         when Iir_Kind_Attribute_Declaration =>
+            return "attribute_declaration";
+         when Iir_Kind_Group_Template_Declaration =>
+            return "group_template_declaration";
+         when Iir_Kind_Group_Declaration =>
+            return "group_declaration";
+         when Iir_Kind_Element_Declaration =>
+            return "element_declaration";
+         when Iir_Kind_Non_Object_Alias_Declaration =>
+            return "non_object_alias_declaration";
+         when Iir_Kind_Psl_Declaration =>
+            return "psl_declaration";
+         when Iir_Kind_Terminal_Declaration =>
+            return "terminal_declaration";
+         when Iir_Kind_Free_Quantity_Declaration =>
+            return "free_quantity_declaration";
+         when Iir_Kind_Across_Quantity_Declaration =>
+            return "across_quantity_declaration";
+         when Iir_Kind_Through_Quantity_Declaration =>
+            return "through_quantity_declaration";
+         when Iir_Kind_Enumeration_Literal =>
+            return "enumeration_literal";
+         when Iir_Kind_Function_Declaration =>
+            return "function_declaration";
+         when Iir_Kind_Implicit_Function_Declaration =>
+            return "implicit_function_declaration";
+         when Iir_Kind_Implicit_Procedure_Declaration =>
+            return "implicit_procedure_declaration";
+         when Iir_Kind_Procedure_Declaration =>
+            return "procedure_declaration";
+         when Iir_Kind_Function_Body =>
+            return "function_body";
+         when Iir_Kind_Procedure_Body =>
+            return "procedure_body";
+         when Iir_Kind_Object_Alias_Declaration =>
+            return "object_alias_declaration";
+         when Iir_Kind_File_Declaration =>
+            return "file_declaration";
+         when Iir_Kind_Guard_Signal_Declaration =>
+            return "guard_signal_declaration";
+         when Iir_Kind_Signal_Declaration =>
+            return "signal_declaration";
+         when Iir_Kind_Variable_Declaration =>
+            return "variable_declaration";
+         when Iir_Kind_Constant_Declaration =>
+            return "constant_declaration";
+         when Iir_Kind_Iterator_Declaration =>
+            return "iterator_declaration";
+         when Iir_Kind_Interface_Constant_Declaration =>
+            return "interface_constant_declaration";
+         when Iir_Kind_Interface_Variable_Declaration =>
+            return "interface_variable_declaration";
+         when Iir_Kind_Interface_Signal_Declaration =>
+            return "interface_signal_declaration";
+         when Iir_Kind_Interface_File_Declaration =>
+            return "interface_file_declaration";
+         when Iir_Kind_Interface_Package_Declaration =>
+            return "interface_package_declaration";
+         when Iir_Kind_Identity_Operator =>
+            return "identity_operator";
+         when Iir_Kind_Negation_Operator =>
+            return "negation_operator";
+         when Iir_Kind_Absolute_Operator =>
+            return "absolute_operator";
+         when Iir_Kind_Not_Operator =>
+            return "not_operator";
+         when Iir_Kind_Condition_Operator =>
+            return "condition_operator";
+         when Iir_Kind_Reduction_And_Operator =>
+            return "reduction_and_operator";
+         when Iir_Kind_Reduction_Or_Operator =>
+            return "reduction_or_operator";
+         when Iir_Kind_Reduction_Nand_Operator =>
+            return "reduction_nand_operator";
+         when Iir_Kind_Reduction_Nor_Operator =>
+            return "reduction_nor_operator";
+         when Iir_Kind_Reduction_Xor_Operator =>
+            return "reduction_xor_operator";
+         when Iir_Kind_Reduction_Xnor_Operator =>
+            return "reduction_xnor_operator";
+         when Iir_Kind_And_Operator =>
+            return "and_operator";
+         when Iir_Kind_Or_Operator =>
+            return "or_operator";
+         when Iir_Kind_Nand_Operator =>
+            return "nand_operator";
+         when Iir_Kind_Nor_Operator =>
+            return "nor_operator";
+         when Iir_Kind_Xor_Operator =>
+            return "xor_operator";
+         when Iir_Kind_Xnor_Operator =>
+            return "xnor_operator";
+         when Iir_Kind_Equality_Operator =>
+            return "equality_operator";
+         when Iir_Kind_Inequality_Operator =>
+            return "inequality_operator";
+         when Iir_Kind_Less_Than_Operator =>
+            return "less_than_operator";
+         when Iir_Kind_Less_Than_Or_Equal_Operator =>
+            return "less_than_or_equal_operator";
+         when Iir_Kind_Greater_Than_Operator =>
+            return "greater_than_operator";
+         when Iir_Kind_Greater_Than_Or_Equal_Operator =>
+            return "greater_than_or_equal_operator";
+         when Iir_Kind_Match_Equality_Operator =>
+            return "match_equality_operator";
+         when Iir_Kind_Match_Inequality_Operator =>
+            return "match_inequality_operator";
+         when Iir_Kind_Match_Less_Than_Operator =>
+            return "match_less_than_operator";
+         when Iir_Kind_Match_Less_Than_Or_Equal_Operator =>
+            return "match_less_than_or_equal_operator";
+         when Iir_Kind_Match_Greater_Than_Operator =>
+            return "match_greater_than_operator";
+         when Iir_Kind_Match_Greater_Than_Or_Equal_Operator =>
+            return "match_greater_than_or_equal_operator";
+         when Iir_Kind_Sll_Operator =>
+            return "sll_operator";
+         when Iir_Kind_Sla_Operator =>
+            return "sla_operator";
+         when Iir_Kind_Srl_Operator =>
+            return "srl_operator";
+         when Iir_Kind_Sra_Operator =>
+            return "sra_operator";
+         when Iir_Kind_Rol_Operator =>
+            return "rol_operator";
+         when Iir_Kind_Ror_Operator =>
+            return "ror_operator";
+         when Iir_Kind_Addition_Operator =>
+            return "addition_operator";
+         when Iir_Kind_Substraction_Operator =>
+            return "substraction_operator";
+         when Iir_Kind_Concatenation_Operator =>
+            return "concatenation_operator";
+         when Iir_Kind_Multiplication_Operator =>
+            return "multiplication_operator";
+         when Iir_Kind_Division_Operator =>
+            return "division_operator";
+         when Iir_Kind_Modulus_Operator =>
+            return "modulus_operator";
+         when Iir_Kind_Remainder_Operator =>
+            return "remainder_operator";
+         when Iir_Kind_Exponentiation_Operator =>
+            return "exponentiation_operator";
+         when Iir_Kind_Function_Call =>
+            return "function_call";
+         when Iir_Kind_Aggregate =>
+            return "aggregate";
+         when Iir_Kind_Parenthesis_Expression =>
+            return "parenthesis_expression";
+         when Iir_Kind_Qualified_Expression =>
+            return "qualified_expression";
+         when Iir_Kind_Type_Conversion =>
+            return "type_conversion";
+         when Iir_Kind_Allocator_By_Expression =>
+            return "allocator_by_expression";
+         when Iir_Kind_Allocator_By_Subtype =>
+            return "allocator_by_subtype";
+         when Iir_Kind_Selected_Element =>
+            return "selected_element";
+         when Iir_Kind_Dereference =>
+            return "dereference";
+         when Iir_Kind_Implicit_Dereference =>
+            return "implicit_dereference";
+         when Iir_Kind_Slice_Name =>
+            return "slice_name";
+         when Iir_Kind_Indexed_Name =>
+            return "indexed_name";
+         when Iir_Kind_Psl_Expression =>
+            return "psl_expression";
+         when Iir_Kind_Sensitized_Process_Statement =>
+            return "sensitized_process_statement";
+         when Iir_Kind_Process_Statement =>
+            return "process_statement";
+         when Iir_Kind_Concurrent_Conditional_Signal_Assignment =>
+            return "concurrent_conditional_signal_assignment";
+         when Iir_Kind_Concurrent_Selected_Signal_Assignment =>
+            return "concurrent_selected_signal_assignment";
+         when Iir_Kind_Concurrent_Assertion_Statement =>
+            return "concurrent_assertion_statement";
+         when Iir_Kind_Psl_Default_Clock =>
+            return "psl_default_clock";
+         when Iir_Kind_Psl_Assert_Statement =>
+            return "psl_assert_statement";
+         when Iir_Kind_Psl_Cover_Statement =>
+            return "psl_cover_statement";
+         when Iir_Kind_Concurrent_Procedure_Call_Statement =>
+            return "concurrent_procedure_call_statement";
+         when Iir_Kind_Block_Statement =>
+            return "block_statement";
+         when Iir_Kind_Generate_Statement =>
+            return "generate_statement";
+         when Iir_Kind_Component_Instantiation_Statement =>
+            return "component_instantiation_statement";
+         when Iir_Kind_Simple_Simultaneous_Statement =>
+            return "simple_simultaneous_statement";
+         when Iir_Kind_Signal_Assignment_Statement =>
+            return "signal_assignment_statement";
+         when Iir_Kind_Null_Statement =>
+            return "null_statement";
+         when Iir_Kind_Assertion_Statement =>
+            return "assertion_statement";
+         when Iir_Kind_Report_Statement =>
+            return "report_statement";
+         when Iir_Kind_Wait_Statement =>
+            return "wait_statement";
+         when Iir_Kind_Variable_Assignment_Statement =>
+            return "variable_assignment_statement";
+         when Iir_Kind_Return_Statement =>
+            return "return_statement";
+         when Iir_Kind_For_Loop_Statement =>
+            return "for_loop_statement";
+         when Iir_Kind_While_Loop_Statement =>
+            return "while_loop_statement";
+         when Iir_Kind_Next_Statement =>
+            return "next_statement";
+         when Iir_Kind_Exit_Statement =>
+            return "exit_statement";
+         when Iir_Kind_Case_Statement =>
+            return "case_statement";
+         when Iir_Kind_Procedure_Call_Statement =>
+            return "procedure_call_statement";
+         when Iir_Kind_If_Statement =>
+            return "if_statement";
+         when Iir_Kind_Elsif =>
+            return "elsif";
+         when Iir_Kind_Character_Literal =>
+            return "character_literal";
+         when Iir_Kind_Simple_Name =>
+            return "simple_name";
+         when Iir_Kind_Selected_Name =>
+            return "selected_name";
+         when Iir_Kind_Operator_Symbol =>
+            return "operator_symbol";
+         when Iir_Kind_Selected_By_All_Name =>
+            return "selected_by_all_name";
+         when Iir_Kind_Parenthesis_Name =>
+            return "parenthesis_name";
+         when Iir_Kind_Base_Attribute =>
+            return "base_attribute";
+         when Iir_Kind_Left_Type_Attribute =>
+            return "left_type_attribute";
+         when Iir_Kind_Right_Type_Attribute =>
+            return "right_type_attribute";
+         when Iir_Kind_High_Type_Attribute =>
+            return "high_type_attribute";
+         when Iir_Kind_Low_Type_Attribute =>
+            return "low_type_attribute";
+         when Iir_Kind_Ascending_Type_Attribute =>
+            return "ascending_type_attribute";
+         when Iir_Kind_Image_Attribute =>
+            return "image_attribute";
+         when Iir_Kind_Value_Attribute =>
+            return "value_attribute";
+         when Iir_Kind_Pos_Attribute =>
+            return "pos_attribute";
+         when Iir_Kind_Val_Attribute =>
+            return "val_attribute";
+         when Iir_Kind_Succ_Attribute =>
+            return "succ_attribute";
+         when Iir_Kind_Pred_Attribute =>
+            return "pred_attribute";
+         when Iir_Kind_Leftof_Attribute =>
+            return "leftof_attribute";
+         when Iir_Kind_Rightof_Attribute =>
+            return "rightof_attribute";
+         when Iir_Kind_Delayed_Attribute =>
+            return "delayed_attribute";
+         when Iir_Kind_Stable_Attribute =>
+            return "stable_attribute";
+         when Iir_Kind_Quiet_Attribute =>
+            return "quiet_attribute";
+         when Iir_Kind_Transaction_Attribute =>
+            return "transaction_attribute";
+         when Iir_Kind_Event_Attribute =>
+            return "event_attribute";
+         when Iir_Kind_Active_Attribute =>
+            return "active_attribute";
+         when Iir_Kind_Last_Event_Attribute =>
+            return "last_event_attribute";
+         when Iir_Kind_Last_Active_Attribute =>
+            return "last_active_attribute";
+         when Iir_Kind_Last_Value_Attribute =>
+            return "last_value_attribute";
+         when Iir_Kind_Driving_Attribute =>
+            return "driving_attribute";
+         when Iir_Kind_Driving_Value_Attribute =>
+            return "driving_value_attribute";
+         when Iir_Kind_Behavior_Attribute =>
+            return "behavior_attribute";
+         when Iir_Kind_Structure_Attribute =>
+            return "structure_attribute";
+         when Iir_Kind_Simple_Name_Attribute =>
+            return "simple_name_attribute";
+         when Iir_Kind_Instance_Name_Attribute =>
+            return "instance_name_attribute";
+         when Iir_Kind_Path_Name_Attribute =>
+            return "path_name_attribute";
+         when Iir_Kind_Left_Array_Attribute =>
+            return "left_array_attribute";
+         when Iir_Kind_Right_Array_Attribute =>
+            return "right_array_attribute";
+         when Iir_Kind_High_Array_Attribute =>
+            return "high_array_attribute";
+         when Iir_Kind_Low_Array_Attribute =>
+            return "low_array_attribute";
+         when Iir_Kind_Length_Array_Attribute =>
+            return "length_array_attribute";
+         when Iir_Kind_Ascending_Array_Attribute =>
+            return "ascending_array_attribute";
+         when Iir_Kind_Range_Array_Attribute =>
+            return "range_array_attribute";
+         when Iir_Kind_Reverse_Range_Array_Attribute =>
+            return "reverse_range_array_attribute";
+         when Iir_Kind_Attribute_Name =>
+            return "attribute_name";
+      end case;
+   end Get_Iir_Image;
+
+   function Get_Field_Attribute (F : Fields_Enum) return Field_Attribute is
+   begin
+      case F is
+         when Field_First_Design_Unit =>
+            return Attr_Chain;
+         when Field_Last_Design_Unit =>
+            return Attr_Ref;
+         when Field_Library_Declaration =>
+            return Attr_None;
+         when Field_File_Time_Stamp =>
+            return Attr_None;
+         when Field_Analysis_Time_Stamp =>
+            return Attr_None;
+         when Field_Library =>
+            return Attr_Ref;
+         when Field_File_Dependence_List =>
+            return Attr_None;
+         when Field_Design_File_Filename =>
+            return Attr_None;
+         when Field_Design_File_Directory =>
+            return Attr_None;
+         when Field_Design_File =>
+            return Attr_Ref;
+         when Field_Design_File_Chain =>
+            return Attr_Chain;
+         when Field_Library_Directory =>
+            return Attr_None;
+         when Field_Date =>
+            return Attr_None;
+         when Field_Context_Items =>
+            return Attr_Chain;
+         when Field_Dependence_List =>
+            return Attr_Of_Ref;
+         when Field_Analysis_Checks_List =>
+            return Attr_None;
+         when Field_Date_State =>
+            return Attr_None;
+         when Field_Guarded_Target_State =>
+            return Attr_None;
+         when Field_Library_Unit =>
+            return Attr_None;
+         when Field_Hash_Chain =>
+            return Attr_Ref;
+         when Field_Design_Unit_Source_Pos =>
+            return Attr_None;
+         when Field_Design_Unit_Source_Line =>
+            return Attr_None;
+         when Field_Design_Unit_Source_Col =>
+            return Attr_None;
+         when Field_Value =>
+            return Attr_None;
+         when Field_Enum_Pos =>
+            return Attr_None;
+         when Field_Physical_Literal =>
+            return Attr_None;
+         when Field_Physical_Unit_Value =>
+            return Attr_None;
+         when Field_Fp_Value =>
+            return Attr_None;
+         when Field_Enumeration_Decl =>
+            return Attr_Ref;
+         when Field_Simple_Aggregate_List =>
+            return Attr_None;
+         when Field_Bit_String_Base =>
+            return Attr_None;
+         when Field_Bit_String_0 =>
+            return Attr_None;
+         when Field_Bit_String_1 =>
+            return Attr_None;
+         when Field_Literal_Origin =>
+            return Attr_None;
+         when Field_Range_Origin =>
+            return Attr_None;
+         when Field_Literal_Subtype =>
+            return Attr_None;
+         when Field_Entity_Class =>
+            return Attr_None;
+         when Field_Entity_Name_List =>
+            return Attr_None;
+         when Field_Attribute_Designator =>
+            return Attr_None;
+         when Field_Attribute_Specification_Chain =>
+            return Attr_None;
+         when Field_Attribute_Specification =>
+            return Attr_Ref;
+         when Field_Signal_List =>
+            return Attr_None;
+         when Field_Designated_Entity =>
+            return Attr_Ref;
+         when Field_Formal =>
+            return Attr_None;
+         when Field_Actual =>
+            return Attr_None;
+         when Field_In_Conversion =>
+            return Attr_None;
+         when Field_Out_Conversion =>
+            return Attr_None;
+         when Field_Whole_Association_Flag =>
+            return Attr_None;
+         when Field_Collapse_Signal_Flag =>
+            return Attr_None;
+         when Field_Artificial_Flag =>
+            return Attr_None;
+         when Field_Open_Flag =>
+            return Attr_None;
+         when Field_After_Drivers_Flag =>
+            return Attr_None;
+         when Field_We_Value =>
+            return Attr_None;
+         when Field_Time =>
+            return Attr_None;
+         when Field_Associated_Expr =>
+            return Attr_None;
+         when Field_Associated_Chain =>
+            return Attr_Chain;
+         when Field_Choice_Name =>
+            return Attr_None;
+         when Field_Choice_Expression =>
+            return Attr_None;
+         when Field_Choice_Range =>
+            return Attr_None;
+         when Field_Same_Alternative_Flag =>
+            return Attr_None;
+         when Field_Architecture =>
+            return Attr_None;
+         when Field_Block_Specification =>
+            return Attr_None;
+         when Field_Prev_Block_Configuration =>
+            return Attr_Ref;
+         when Field_Configuration_Item_Chain =>
+            return Attr_Chain;
+         when Field_Attribute_Value_Chain =>
+            return Attr_Chain;
+         when Field_Spec_Chain =>
+            return Attr_None;
+         when Field_Attribute_Value_Spec_Chain =>
+            return Attr_None;
+         when Field_Entity_Name =>
+            return Attr_None;
+         when Field_Package =>
+            return Attr_Ref;
+         when Field_Package_Body =>
+            return Attr_Ref;
+         when Field_Need_Body =>
+            return Attr_None;
+         when Field_Block_Configuration =>
+            return Attr_None;
+         when Field_Concurrent_Statement_Chain =>
+            return Attr_Chain;
+         when Field_Chain =>
+            return Attr_Chain_Next;
+         when Field_Port_Chain =>
+            return Attr_Chain;
+         when Field_Generic_Chain =>
+            return Attr_Chain;
+         when Field_Type =>
+            return Attr_Ref;
+         when Field_Subtype_Indication =>
+            return Attr_Maybe_Ref;
+         when Field_Discrete_Range =>
+            return Attr_None;
+         when Field_Type_Definition =>
+            return Attr_None;
+         when Field_Subtype_Definition =>
+            return Attr_None;
+         when Field_Nature =>
+            return Attr_None;
+         when Field_Mode =>
+            return Attr_None;
+         when Field_Signal_Kind =>
+            return Attr_None;
+         when Field_Base_Name =>
+            return Attr_Ref;
+         when Field_Interface_Declaration_Chain =>
+            return Attr_Chain;
+         when Field_Subprogram_Specification =>
+            return Attr_Ref;
+         when Field_Sequential_Statement_Chain =>
+            return Attr_Chain;
+         when Field_Subprogram_Body =>
+            return Attr_Ref;
+         when Field_Overload_Number =>
+            return Attr_None;
+         when Field_Subprogram_Depth =>
+            return Attr_None;
+         when Field_Subprogram_Hash =>
+            return Attr_None;
+         when Field_Impure_Depth =>
+            return Attr_None;
+         when Field_Return_Type =>
+            return Attr_Ref;
+         when Field_Implicit_Definition =>
+            return Attr_None;
+         when Field_Type_Reference =>
+            return Attr_Ref;
+         when Field_Default_Value =>
+            return Attr_Maybe_Ref;
+         when Field_Deferred_Declaration =>
+            return Attr_None;
+         when Field_Deferred_Declaration_Flag =>
+            return Attr_None;
+         when Field_Shared_Flag =>
+            return Attr_None;
+         when Field_Design_Unit =>
+            return Attr_None;
+         when Field_Block_Statement =>
+            return Attr_None;
+         when Field_Signal_Driver =>
+            return Attr_None;
+         when Field_Declaration_Chain =>
+            return Attr_Chain;
+         when Field_File_Logical_Name =>
+            return Attr_None;
+         when Field_File_Open_Kind =>
+            return Attr_None;
+         when Field_Element_Position =>
+            return Attr_None;
+         when Field_Element_Declaration =>
+            return Attr_None;
+         when Field_Selected_Element =>
+            return Attr_Ref;
+         when Field_Use_Clause_Chain =>
+            return Attr_None;
+         when Field_Selected_Name =>
+            return Attr_None;
+         when Field_Type_Declarator =>
+            return Attr_Ref;
+         when Field_Enumeration_Literal_List =>
+            return Attr_None;
+         when Field_Entity_Class_Entry_Chain =>
+            return Attr_Chain;
+         when Field_Group_Constituent_List =>
+            return Attr_None;
+         when Field_Unit_Chain =>
+            return Attr_Chain;
+         when Field_Primary_Unit =>
+            return Attr_Ref;
+         when Field_Identifier =>
+            return Attr_None;
+         when Field_Label =>
+            return Attr_None;
+         when Field_Visible_Flag =>
+            return Attr_None;
+         when Field_Range_Constraint =>
+            return Attr_None;
+         when Field_Direction =>
+            return Attr_None;
+         when Field_Left_Limit =>
+            return Attr_None;
+         when Field_Right_Limit =>
+            return Attr_None;
+         when Field_Base_Type =>
+            return Attr_Ref;
+         when Field_Resolution_Indication =>
+            return Attr_None;
+         when Field_Record_Element_Resolution_Chain =>
+            return Attr_Chain;
+         when Field_Tolerance =>
+            return Attr_None;
+         when Field_Plus_Terminal =>
+            return Attr_None;
+         when Field_Minus_Terminal =>
+            return Attr_None;
+         when Field_Simultaneous_Left =>
+            return Attr_None;
+         when Field_Simultaneous_Right =>
+            return Attr_None;
+         when Field_Text_File_Flag =>
+            return Attr_None;
+         when Field_Only_Characters_Flag =>
+            return Attr_None;
+         when Field_Type_Staticness =>
+            return Attr_None;
+         when Field_Constraint_State =>
+            return Attr_None;
+         when Field_Index_Subtype_List =>
+            return Attr_Ref;
+         when Field_Index_Subtype_Definition_List =>
+            return Attr_None;
+         when Field_Element_Subtype_Indication =>
+            return Attr_None;
+         when Field_Element_Subtype =>
+            return Attr_Ref;
+         when Field_Index_Constraint_List =>
+            return Attr_None;
+         when Field_Array_Element_Constraint =>
+            return Attr_None;
+         when Field_Elements_Declaration_List =>
+            return Attr_None;
+         when Field_Designated_Type =>
+            return Attr_Ref;
+         when Field_Designated_Subtype_Indication =>
+            return Attr_None;
+         when Field_Index_List =>
+            return Attr_None;
+         when Field_Reference =>
+            return Attr_None;
+         when Field_Nature_Declarator =>
+            return Attr_None;
+         when Field_Across_Type =>
+            return Attr_None;
+         when Field_Through_Type =>
+            return Attr_None;
+         when Field_Target =>
+            return Attr_None;
+         when Field_Waveform_Chain =>
+            return Attr_Chain;
+         when Field_Guard =>
+            return Attr_None;
+         when Field_Delay_Mechanism =>
+            return Attr_None;
+         when Field_Reject_Time_Expression =>
+            return Attr_None;
+         when Field_Sensitivity_List =>
+            return Attr_None;
+         when Field_Process_Origin =>
+            return Attr_None;
+         when Field_Condition_Clause =>
+            return Attr_None;
+         when Field_Timeout_Clause =>
+            return Attr_None;
+         when Field_Postponed_Flag =>
+            return Attr_None;
+         when Field_Callees_List =>
+            return Attr_Of_Ref;
+         when Field_Passive_Flag =>
+            return Attr_None;
+         when Field_Resolution_Function_Flag =>
+            return Attr_None;
+         when Field_Wait_State =>
+            return Attr_None;
+         when Field_All_Sensitized_State =>
+            return Attr_None;
+         when Field_Seen_Flag =>
+            return Attr_None;
+         when Field_Pure_Flag =>
+            return Attr_None;
+         when Field_Foreign_Flag =>
+            return Attr_None;
+         when Field_Resolved_Flag =>
+            return Attr_None;
+         when Field_Signal_Type_Flag =>
+            return Attr_None;
+         when Field_Has_Signal_Flag =>
+            return Attr_None;
+         when Field_Purity_State =>
+            return Attr_None;
+         when Field_Elab_Flag =>
+            return Attr_None;
+         when Field_Index_Constraint_Flag =>
+            return Attr_None;
+         when Field_Assertion_Condition =>
+            return Attr_None;
+         when Field_Report_Expression =>
+            return Attr_None;
+         when Field_Severity_Expression =>
+            return Attr_None;
+         when Field_Instantiated_Unit =>
+            return Attr_None;
+         when Field_Generic_Map_Aspect_Chain =>
+            return Attr_Chain;
+         when Field_Port_Map_Aspect_Chain =>
+            return Attr_Chain;
+         when Field_Configuration_Name =>
+            return Attr_None;
+         when Field_Component_Configuration =>
+            return Attr_None;
+         when Field_Configuration_Specification =>
+            return Attr_None;
+         when Field_Default_Binding_Indication =>
+            return Attr_None;
+         when Field_Default_Configuration_Declaration =>
+            return Attr_None;
+         when Field_Expression =>
+            return Attr_None;
+         when Field_Allocator_Designated_Type =>
+            return Attr_Ref;
+         when Field_Selected_Waveform_Chain =>
+            return Attr_Chain;
+         when Field_Conditional_Waveform_Chain =>
+            return Attr_Chain;
+         when Field_Guard_Expression =>
+            return Attr_None;
+         when Field_Guard_Decl =>
+            return Attr_None;
+         when Field_Guard_Sensitivity_List =>
+            return Attr_None;
+         when Field_Block_Block_Configuration =>
+            return Attr_None;
+         when Field_Package_Header =>
+            return Attr_None;
+         when Field_Block_Header =>
+            return Attr_None;
+         when Field_Uninstantiated_Package_Name =>
+            return Attr_None;
+         when Field_Generate_Block_Configuration =>
+            return Attr_None;
+         when Field_Generation_Scheme =>
+            return Attr_None;
+         when Field_Condition =>
+            return Attr_None;
+         when Field_Else_Clause =>
+            return Attr_None;
+         when Field_Parameter_Specification =>
+            return Attr_None;
+         when Field_Parent =>
+            return Attr_Ref;
+         when Field_Loop_Label =>
+            return Attr_None;
+         when Field_Component_Name =>
+            return Attr_None;
+         when Field_Instantiation_List =>
+            return Attr_None;
+         when Field_Entity_Aspect =>
+            return Attr_None;
+         when Field_Default_Entity_Aspect =>
+            return Attr_None;
+         when Field_Default_Generic_Map_Aspect_Chain =>
+            return Attr_Chain;
+         when Field_Default_Port_Map_Aspect_Chain =>
+            return Attr_Chain;
+         when Field_Binding_Indication =>
+            return Attr_None;
+         when Field_Named_Entity =>
+            return Attr_Ref;
+         when Field_Alias_Declaration =>
+            return Attr_None;
+         when Field_Expr_Staticness =>
+            return Attr_None;
+         when Field_Error_Origin =>
+            return Attr_None;
+         when Field_Operand =>
+            return Attr_None;
+         when Field_Left =>
+            return Attr_None;
+         when Field_Right =>
+            return Attr_None;
+         when Field_Unit_Name =>
+            return Attr_None;
+         when Field_Name =>
+            return Attr_None;
+         when Field_Group_Template_Name =>
+            return Attr_None;
+         when Field_Name_Staticness =>
+            return Attr_None;
+         when Field_Prefix =>
+            return Attr_None;
+         when Field_Signature_Prefix =>
+            return Attr_Ref;
+         when Field_Slice_Subtype =>
+            return Attr_None;
+         when Field_Suffix =>
+            return Attr_None;
+         when Field_Index_Subtype =>
+            return Attr_None;
+         when Field_Parameter =>
+            return Attr_None;
+         when Field_Actual_Type =>
+            return Attr_None;
+         when Field_Associated_Interface =>
+            return Attr_Ref;
+         when Field_Association_Chain =>
+            return Attr_Chain;
+         when Field_Individual_Association_Chain =>
+            return Attr_Chain;
+         when Field_Aggregate_Info =>
+            return Attr_None;
+         when Field_Sub_Aggregate_Info =>
+            return Attr_None;
+         when Field_Aggr_Dynamic_Flag =>
+            return Attr_None;
+         when Field_Aggr_Min_Length =>
+            return Attr_None;
+         when Field_Aggr_Low_Limit =>
+            return Attr_None;
+         when Field_Aggr_High_Limit =>
+            return Attr_None;
+         when Field_Aggr_Others_Flag =>
+            return Attr_None;
+         when Field_Aggr_Named_Flag =>
+            return Attr_None;
+         when Field_Value_Staticness =>
+            return Attr_None;
+         when Field_Association_Choices_Chain =>
+            return Attr_Chain;
+         when Field_Case_Statement_Alternative_Chain =>
+            return Attr_Chain;
+         when Field_Choice_Staticness =>
+            return Attr_None;
+         when Field_Procedure_Call =>
+            return Attr_None;
+         when Field_Implementation =>
+            return Attr_Ref;
+         when Field_Parameter_Association_Chain =>
+            return Attr_Chain;
+         when Field_Method_Object =>
+            return Attr_None;
+         when Field_Subtype_Type_Mark =>
+            return Attr_None;
+         when Field_Type_Conversion_Subtype =>
+            return Attr_None;
+         when Field_Type_Mark =>
+            return Attr_None;
+         when Field_File_Type_Mark =>
+            return Attr_None;
+         when Field_Return_Type_Mark =>
+            return Attr_None;
+         when Field_Lexical_Layout =>
+            return Attr_None;
+         when Field_Incomplete_Type_List =>
+            return Attr_None;
+         when Field_Has_Disconnect_Flag =>
+            return Attr_None;
+         when Field_Has_Active_Flag =>
+            return Attr_None;
+         when Field_Is_Within_Flag =>
+            return Attr_None;
+         when Field_Type_Marks_List =>
+            return Attr_None;
+         when Field_Implicit_Alias_Flag =>
+            return Attr_None;
+         when Field_Alias_Signature =>
+            return Attr_None;
+         when Field_Attribute_Signature =>
+            return Attr_None;
+         when Field_Overload_List =>
+            return Attr_Of_Ref;
+         when Field_Simple_Name_Identifier =>
+            return Attr_None;
+         when Field_Simple_Name_Subtype =>
+            return Attr_None;
+         when Field_Protected_Type_Body =>
+            return Attr_None;
+         when Field_Protected_Type_Declaration =>
+            return Attr_None;
+         when Field_End_Location =>
+            return Attr_None;
+         when Field_String_Id =>
+            return Attr_None;
+         when Field_String_Length =>
+            return Attr_None;
+         when Field_Use_Flag =>
+            return Attr_None;
+         when Field_End_Has_Reserved_Id =>
+            return Attr_None;
+         when Field_End_Has_Identifier =>
+            return Attr_None;
+         when Field_End_Has_Postponed =>
+            return Attr_None;
+         when Field_Has_Begin =>
+            return Attr_None;
+         when Field_Has_Is =>
+            return Attr_None;
+         when Field_Has_Pure =>
+            return Attr_None;
+         when Field_Has_Body =>
+            return Attr_None;
+         when Field_Has_Identifier_List =>
+            return Attr_None;
+         when Field_Has_Mode =>
+            return Attr_None;
+         when Field_Is_Ref =>
+            return Attr_None;
+         when Field_Psl_Property =>
+            return Attr_None;
+         when Field_Psl_Declaration =>
+            return Attr_None;
+         when Field_Psl_Expression =>
+            return Attr_None;
+         when Field_Psl_Boolean =>
+            return Attr_None;
+         when Field_PSL_Clock =>
+            return Attr_None;
+         when Field_PSL_NFA =>
+            return Attr_None;
+      end case;
+   end Get_Field_Attribute;
+
+   Fields_Of_Iir : constant Fields_Array :=
+     (
+      --  Iir_Kind_Unused
+      --  Iir_Kind_Error
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Expr_Staticness,
+      Field_Error_Origin,
+      Field_Type,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Design_File
+      Field_Design_File_Directory,
+      Field_Design_File_Filename,
+      Field_Analysis_Time_Stamp,
+      Field_File_Time_Stamp,
+      Field_Elab_Flag,
+      Field_File_Dependence_List,
+      Field_Chain,
+      Field_First_Design_Unit,
+      Field_Library,
+      Field_Last_Design_Unit,
+      --  Iir_Kind_Design_Unit
+      Field_Date,
+      Field_Design_Unit_Source_Line,
+      Field_Design_Unit_Source_Col,
+      Field_Identifier,
+      Field_Design_Unit_Source_Pos,
+      Field_End_Location,
+      Field_Elab_Flag,
+      Field_Date_State,
+      Field_Context_Items,
+      Field_Chain,
+      Field_Library_Unit,
+      Field_Analysis_Checks_List,
+      Field_Design_File,
+      Field_Hash_Chain,
+      Field_Dependence_List,
+      --  Iir_Kind_Library_Clause
+      Field_Identifier,
+      Field_Has_Identifier_List,
+      Field_Library_Declaration,
+      Field_Chain,
+      Field_Parent,
+      --  Iir_Kind_Use_Clause
+      Field_Selected_Name,
+      Field_Chain,
+      Field_Use_Clause_Chain,
+      Field_Parent,
+      --  Iir_Kind_Integer_Literal
+      Field_Value,
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Type,
+      --  Iir_Kind_Floating_Point_Literal
+      Field_Fp_Value,
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Type,
+      --  Iir_Kind_Null_Literal
+      Field_Expr_Staticness,
+      Field_Type,
+      --  Iir_Kind_String_Literal
+      Field_String_Id,
+      Field_String_Length,
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Literal_Subtype,
+      Field_Type,
+      --  Iir_Kind_Physical_Int_Literal
+      Field_Value,
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Unit_Name,
+      Field_Type,
+      --  Iir_Kind_Physical_Fp_Literal
+      Field_Fp_Value,
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Unit_Name,
+      Field_Type,
+      --  Iir_Kind_Bit_String_Literal
+      Field_String_Id,
+      Field_String_Length,
+      Field_Bit_String_Base,
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Literal_Subtype,
+      Field_Bit_String_0,
+      Field_Bit_String_1,
+      Field_Type,
+      --  Iir_Kind_Simple_Aggregate
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Simple_Aggregate_List,
+      Field_Literal_Subtype,
+      Field_Type,
+      --  Iir_Kind_Overflow_Literal
+      Field_Expr_Staticness,
+      Field_Literal_Origin,
+      Field_Type,
+      --  Iir_Kind_Waveform_Element
+      Field_We_Value,
+      Field_Chain,
+      Field_Time,
+      --  Iir_Kind_Conditional_Waveform
+      Field_Condition,
+      Field_Chain,
+      Field_Waveform_Chain,
+      --  Iir_Kind_Association_Element_By_Expression
+      Field_Whole_Association_Flag,
+      Field_Collapse_Signal_Flag,
+      Field_Formal,
+      Field_Chain,
+      Field_Actual,
+      Field_In_Conversion,
+      Field_Out_Conversion,
+      --  Iir_Kind_Association_Element_By_Individual
+      Field_Whole_Association_Flag,
+      Field_Collapse_Signal_Flag,
+      Field_Formal,
+      Field_Chain,
+      Field_Actual_Type,
+      Field_Individual_Association_Chain,
+      --  Iir_Kind_Association_Element_Open
+      Field_Whole_Association_Flag,
+      Field_Collapse_Signal_Flag,
+      Field_Artificial_Flag,
+      Field_Formal,
+      Field_Chain,
+      --  Iir_Kind_Association_Element_Package
+      Field_Whole_Association_Flag,
+      Field_Collapse_Signal_Flag,
+      Field_Formal,
+      Field_Chain,
+      Field_Actual,
+      Field_Associated_Interface,
+      --  Iir_Kind_Choice_By_Others
+      Field_Same_Alternative_Flag,
+      Field_Chain,
+      Field_Associated_Expr,
+      Field_Associated_Chain,
+      Field_Parent,
+      --  Iir_Kind_Choice_By_Expression
+      Field_Same_Alternative_Flag,
+      Field_Choice_Staticness,
+      Field_Chain,
+      Field_Associated_Expr,
+      Field_Associated_Chain,
+      Field_Choice_Expression,
+      Field_Parent,
+      --  Iir_Kind_Choice_By_Range
+      Field_Same_Alternative_Flag,
+      Field_Choice_Staticness,
+      Field_Chain,
+      Field_Associated_Expr,
+      Field_Associated_Chain,
+      Field_Choice_Range,
+      Field_Parent,
+      --  Iir_Kind_Choice_By_None
+      Field_Same_Alternative_Flag,
+      Field_Chain,
+      Field_Associated_Expr,
+      Field_Associated_Chain,
+      Field_Parent,
+      --  Iir_Kind_Choice_By_Name
+      Field_Same_Alternative_Flag,
+      Field_Chain,
+      Field_Associated_Expr,
+      Field_Associated_Chain,
+      Field_Choice_Name,
+      Field_Parent,
+      --  Iir_Kind_Entity_Aspect_Entity
+      Field_Entity_Name,
+      Field_Architecture,
+      --  Iir_Kind_Entity_Aspect_Configuration
+      Field_Configuration_Name,
+      --  Iir_Kind_Entity_Aspect_Open
+      --  Iir_Kind_Block_Configuration
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Configuration_Item_Chain,
+      Field_Block_Specification,
+      Field_Parent,
+      Field_Prev_Block_Configuration,
+      --  Iir_Kind_Block_Header
+      Field_Generic_Chain,
+      Field_Port_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Port_Map_Aspect_Chain,
+      --  Iir_Kind_Component_Configuration
+      Field_Instantiation_List,
+      Field_Chain,
+      Field_Binding_Indication,
+      Field_Component_Name,
+      Field_Block_Configuration,
+      Field_Parent,
+      --  Iir_Kind_Binding_Indication
+      Field_Default_Entity_Aspect,
+      Field_Entity_Aspect,
+      Field_Default_Generic_Map_Aspect_Chain,
+      Field_Default_Port_Map_Aspect_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Port_Map_Aspect_Chain,
+      --  Iir_Kind_Entity_Class
+      Field_Entity_Class,
+      Field_Chain,
+      --  Iir_Kind_Attribute_Value
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Spec_Chain,
+      Field_Chain,
+      Field_Type,
+      Field_Designated_Entity,
+      Field_Attribute_Specification,
+      Field_Base_Name,
+      --  Iir_Kind_Signature
+      Field_Type_Marks_List,
+      Field_Return_Type_Mark,
+      Field_Signature_Prefix,
+      --  Iir_Kind_Aggregate_Info
+      Field_Aggr_Min_Length,
+      Field_Aggr_Others_Flag,
+      Field_Aggr_Dynamic_Flag,
+      Field_Aggr_Named_Flag,
+      Field_Sub_Aggregate_Info,
+      Field_Aggr_Low_Limit,
+      Field_Aggr_High_Limit,
+      --  Iir_Kind_Procedure_Call
+      Field_Prefix,
+      Field_Parameter_Association_Chain,
+      Field_Method_Object,
+      Field_Implementation,
+      --  Iir_Kind_Record_Element_Constraint
+      Field_Identifier,
+      Field_Element_Position,
+      Field_Visible_Flag,
+      Field_Element_Declaration,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Array_Element_Resolution
+      Field_Resolution_Indication,
+      --  Iir_Kind_Record_Resolution
+      Field_Record_Element_Resolution_Chain,
+      --  Iir_Kind_Record_Element_Resolution
+      Field_Identifier,
+      Field_Chain,
+      Field_Resolution_Indication,
+      --  Iir_Kind_Attribute_Specification
+      Field_Entity_Class,
+      Field_Entity_Name_List,
+      Field_Chain,
+      Field_Attribute_Value_Spec_Chain,
+      Field_Expression,
+      Field_Attribute_Designator,
+      Field_Attribute_Specification_Chain,
+      Field_Parent,
+      --  Iir_Kind_Disconnection_Specification
+      Field_Chain,
+      Field_Signal_List,
+      Field_Type_Mark,
+      Field_Expression,
+      Field_Parent,
+      --  Iir_Kind_Configuration_Specification
+      Field_Instantiation_List,
+      Field_Chain,
+      Field_Binding_Indication,
+      Field_Component_Name,
+      Field_Parent,
+      --  Iir_Kind_Access_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Type_Staticness,
+      Field_Designated_Subtype_Indication,
+      Field_Designated_Type,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Incomplete_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Incomplete_Type_List,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_File_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Text_File_Flag,
+      Field_Type_Staticness,
+      Field_File_Type_Mark,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Protected_Type_Declaration
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Type_Staticness,
+      Field_Declaration_Chain,
+      Field_Protected_Type_Body,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Record_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Type_Staticness,
+      Field_Constraint_State,
+      Field_Elements_Declaration_List,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Array_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Index_Constraint_Flag,
+      Field_Type_Staticness,
+      Field_Constraint_State,
+      Field_Element_Subtype_Indication,
+      Field_Index_Subtype_Definition_List,
+      Field_Element_Subtype,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      Field_Index_Subtype_List,
+      --  Iir_Kind_Array_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Index_Constraint_Flag,
+      Field_Type_Staticness,
+      Field_Constraint_State,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Index_Constraint_List,
+      Field_Tolerance,
+      Field_Array_Element_Constraint,
+      Field_Element_Subtype,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      Field_Index_Subtype_List,
+      --  Iir_Kind_Record_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Constraint_State,
+      Field_Elements_Declaration_List,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Tolerance,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Access_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Type_Staticness,
+      Field_Subtype_Type_Mark,
+      Field_Designated_Subtype_Indication,
+      Field_Designated_Type,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Physical_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Range_Constraint,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Floating_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Range_Constraint,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Tolerance,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Integer_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Range_Constraint,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Enumeration_Subtype_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Range_Constraint,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Enumeration_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Only_Characters_Flag,
+      Field_Type_Staticness,
+      Field_Range_Constraint,
+      Field_Enumeration_Literal_List,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Integer_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Floating_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_Type_Staticness,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Physical_Type_Definition
+      Field_Resolved_Flag,
+      Field_Signal_Type_Flag,
+      Field_Has_Signal_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Type_Staticness,
+      Field_Unit_Chain,
+      Field_Type_Declarator,
+      Field_Base_Type,
+      --  Iir_Kind_Range_Expression
+      Field_Expr_Staticness,
+      Field_Direction,
+      Field_Left_Limit,
+      Field_Right_Limit,
+      Field_Range_Origin,
+      Field_Type,
+      --  Iir_Kind_Protected_Type_Body
+      Field_Identifier,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Protected_Type_Declaration,
+      Field_Parent,
+      --  Iir_Kind_Subtype_Definition
+      Field_Range_Constraint,
+      Field_Subtype_Type_Mark,
+      Field_Resolution_Indication,
+      Field_Tolerance,
+      --  Iir_Kind_Scalar_Nature_Definition
+      Field_Reference,
+      Field_Nature_Declarator,
+      Field_Across_Type,
+      Field_Through_Type,
+      --  Iir_Kind_Overload_List
+      Field_Overload_List,
+      --  Iir_Kind_Type_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Type_Definition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      --  Iir_Kind_Anonymous_Type_Declaration
+      Field_Identifier,
+      Field_Type_Definition,
+      Field_Chain,
+      Field_Subtype_Definition,
+      Field_Parent,
+      --  Iir_Kind_Subtype_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Subtype_Indication,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Nature_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Nature,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      --  Iir_Kind_Subnature_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Nature,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      --  Iir_Kind_Package_Declaration
+      Field_Identifier,
+      Field_Need_Body,
+      Field_Visible_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Package_Header,
+      Field_Parent,
+      Field_Package_Body,
+      --  Iir_Kind_Package_Instantiation_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Uninstantiated_Package_Name,
+      Field_Generic_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Parent,
+      Field_Package_Body,
+      --  Iir_Kind_Package_Body
+      Field_Identifier,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Parent,
+      Field_Package,
+      --  Iir_Kind_Configuration_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Entity_Name,
+      Field_Attribute_Value_Chain,
+      Field_Block_Configuration,
+      Field_Parent,
+      --  Iir_Kind_Entity_Declaration
+      Field_Identifier,
+      Field_Has_Begin,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Concurrent_Statement_Chain,
+      Field_Generic_Chain,
+      Field_Port_Chain,
+      Field_Parent,
+      --  Iir_Kind_Architecture_Body
+      Field_Identifier,
+      Field_Foreign_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Entity_Name,
+      Field_Attribute_Value_Chain,
+      Field_Concurrent_Statement_Chain,
+      Field_Default_Configuration_Declaration,
+      Field_Parent,
+      --  Iir_Kind_Package_Header
+      Field_Generic_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      --  Iir_Kind_Unit_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Physical_Literal,
+      Field_Physical_Unit_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Library_Declaration
+      Field_Date,
+      Field_Library_Directory,
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Design_File_Chain,
+      Field_Chain,
+      --  Iir_Kind_Component_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Has_Is,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Generic_Chain,
+      Field_Port_Chain,
+      Field_Parent,
+      --  Iir_Kind_Attribute_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Chain,
+      Field_Type_Mark,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Group_Template_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Entity_Class_Entry_Chain,
+      Field_Chain,
+      Field_Parent,
+      --  Iir_Kind_Group_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Group_Constituent_List,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Group_Template_Name,
+      Field_Parent,
+      --  Iir_Kind_Element_Declaration
+      Field_Identifier,
+      Field_Element_Position,
+      Field_Has_Identifier_List,
+      Field_Visible_Flag,
+      Field_Is_Ref,
+      Field_Subtype_Indication,
+      Field_Type,
+      --  Iir_Kind_Non_Object_Alias_Declaration
+      Field_Identifier,
+      Field_Implicit_Alias_Flag,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Chain,
+      Field_Name,
+      Field_Alias_Signature,
+      Field_Parent,
+      --  Iir_Kind_Psl_Declaration
+      Field_Psl_Declaration,
+      Field_Identifier,
+      Field_PSL_Clock,
+      Field_PSL_NFA,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Chain,
+      Field_Parent,
+      --  Iir_Kind_Terminal_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Nature,
+      Field_Chain,
+      Field_Parent,
+      --  Iir_Kind_Free_Quantity_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Across_Quantity_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Tolerance,
+      Field_Plus_Terminal,
+      Field_Minus_Terminal,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Through_Quantity_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Tolerance,
+      Field_Plus_Terminal,
+      Field_Minus_Terminal,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Enumeration_Literal
+      Field_Enum_Pos,
+      Field_Subprogram_Hash,
+      Field_Identifier,
+      Field_Seen_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Literal_Origin,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      Field_Type,
+      Field_Enumeration_Decl,
+      --  Iir_Kind_Function_Declaration
+      Field_Subprogram_Depth,
+      Field_Subprogram_Hash,
+      Field_Overload_Number,
+      Field_Identifier,
+      Field_Seen_Flag,
+      Field_Pure_Flag,
+      Field_Foreign_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Use_Flag,
+      Field_Resolution_Function_Flag,
+      Field_Has_Pure,
+      Field_Has_Body,
+      Field_Wait_State,
+      Field_All_Sensitized_State,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Interface_Declaration_Chain,
+      Field_Generic_Chain,
+      Field_Return_Type_Mark,
+      Field_Parent,
+      Field_Return_Type,
+      Field_Subprogram_Body,
+      --  Iir_Kind_Implicit_Function_Declaration
+      Field_Subprogram_Hash,
+      Field_Overload_Number,
+      Field_Identifier,
+      Field_Implicit_Definition,
+      Field_Seen_Flag,
+      Field_Pure_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Use_Flag,
+      Field_Wait_State,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Interface_Declaration_Chain,
+      Field_Generic_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Parent,
+      Field_Return_Type,
+      Field_Type_Reference,
+      --  Iir_Kind_Implicit_Procedure_Declaration
+      Field_Subprogram_Hash,
+      Field_Overload_Number,
+      Field_Identifier,
+      Field_Implicit_Definition,
+      Field_Seen_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Use_Flag,
+      Field_Wait_State,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Interface_Declaration_Chain,
+      Field_Generic_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Parent,
+      Field_Type_Reference,
+      --  Iir_Kind_Procedure_Declaration
+      Field_Subprogram_Depth,
+      Field_Subprogram_Hash,
+      Field_Overload_Number,
+      Field_Identifier,
+      Field_Seen_Flag,
+      Field_Passive_Flag,
+      Field_Foreign_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Use_Flag,
+      Field_Has_Body,
+      Field_Wait_State,
+      Field_Purity_State,
+      Field_All_Sensitized_State,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Interface_Declaration_Chain,
+      Field_Generic_Chain,
+      Field_Return_Type_Mark,
+      Field_Parent,
+      Field_Subprogram_Body,
+      --  Iir_Kind_Function_Body
+      Field_Impure_Depth,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Parent,
+      Field_Subprogram_Specification,
+      Field_Callees_List,
+      --  Iir_Kind_Procedure_Body
+      Field_Impure_Depth,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Parent,
+      Field_Subprogram_Specification,
+      Field_Callees_List,
+      --  Iir_Kind_Object_Alias_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_After_Drivers_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Name,
+      Field_Subtype_Indication,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_File_Declaration
+      Field_Identifier,
+      Field_Has_Identifier_List,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Has_Mode,
+      Field_Mode,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_File_Logical_Name,
+      Field_File_Open_Kind,
+      Field_Subtype_Indication,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Guard_Signal_Declaration
+      Field_Identifier,
+      Field_Has_Active_Flag,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Signal_Kind,
+      Field_Guard_Expression,
+      Field_Attribute_Value_Chain,
+      Field_Guard_Sensitivity_List,
+      Field_Block_Statement,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Signal_Declaration
+      Field_Identifier,
+      Field_Has_Disconnect_Flag,
+      Field_Has_Active_Flag,
+      Field_Has_Identifier_List,
+      Field_Visible_Flag,
+      Field_After_Drivers_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Signal_Kind,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Signal_Driver,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Variable_Declaration
+      Field_Identifier,
+      Field_Shared_Flag,
+      Field_Has_Identifier_List,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Constant_Declaration
+      Field_Identifier,
+      Field_Deferred_Declaration_Flag,
+      Field_Has_Identifier_List,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Deferred_Declaration,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Iterator_Declaration
+      Field_Identifier,
+      Field_Has_Identifier_List,
+      Field_Visible_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Discrete_Range,
+      Field_Subtype_Indication,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Interface_Constant_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_After_Drivers_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Mode,
+      Field_Lexical_Layout,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Interface_Variable_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_After_Drivers_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Mode,
+      Field_Lexical_Layout,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Interface_Signal_Declaration
+      Field_Identifier,
+      Field_Has_Disconnect_Flag,
+      Field_Has_Active_Flag,
+      Field_Open_Flag,
+      Field_Visible_Flag,
+      Field_After_Drivers_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Mode,
+      Field_Lexical_Layout,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Signal_Kind,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Interface_File_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_After_Drivers_Flag,
+      Field_Use_Flag,
+      Field_Is_Ref,
+      Field_Mode,
+      Field_Lexical_Layout,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Subtype_Indication,
+      Field_Default_Value,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_Interface_Package_Declaration
+      Field_Identifier,
+      Field_Visible_Flag,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Uninstantiated_Package_Name,
+      Field_Generic_Chain,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Parent,
+      --  Iir_Kind_Identity_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Negation_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Absolute_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Not_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Condition_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Reduction_And_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Reduction_Or_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Reduction_Nand_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Reduction_Nor_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Reduction_Xor_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Reduction_Xnor_Operator
+      Field_Expr_Staticness,
+      Field_Operand,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_And_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Or_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Nand_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Nor_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Xor_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Xnor_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Equality_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Inequality_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Less_Than_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Less_Than_Or_Equal_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Greater_Than_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Greater_Than_Or_Equal_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Match_Equality_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Match_Inequality_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Match_Less_Than_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Match_Less_Than_Or_Equal_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Match_Greater_Than_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Match_Greater_Than_Or_Equal_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Sll_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Sla_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Srl_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Sra_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Rol_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Ror_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Addition_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Substraction_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Concatenation_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Multiplication_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Division_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Modulus_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Remainder_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Exponentiation_Operator
+      Field_Expr_Staticness,
+      Field_Left,
+      Field_Right,
+      Field_Type,
+      Field_Implementation,
+      --  Iir_Kind_Function_Call
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter_Association_Chain,
+      Field_Method_Object,
+      Field_Type,
+      Field_Implementation,
+      Field_Base_Name,
+      --  Iir_Kind_Aggregate
+      Field_Expr_Staticness,
+      Field_Value_Staticness,
+      Field_Aggregate_Info,
+      Field_Association_Choices_Chain,
+      Field_Literal_Subtype,
+      Field_Type,
+      --  Iir_Kind_Parenthesis_Expression
+      Field_Expr_Staticness,
+      Field_Expression,
+      Field_Type,
+      --  Iir_Kind_Qualified_Expression
+      Field_Expr_Staticness,
+      Field_Type_Mark,
+      Field_Expression,
+      Field_Type,
+      --  Iir_Kind_Type_Conversion
+      Field_Expr_Staticness,
+      Field_Type_Conversion_Subtype,
+      Field_Type_Mark,
+      Field_Expression,
+      Field_Type,
+      --  Iir_Kind_Allocator_By_Expression
+      Field_Expr_Staticness,
+      Field_Expression,
+      Field_Type,
+      Field_Allocator_Designated_Type,
+      --  Iir_Kind_Allocator_By_Subtype
+      Field_Expr_Staticness,
+      Field_Subtype_Indication,
+      Field_Type,
+      Field_Allocator_Designated_Type,
+      --  Iir_Kind_Selected_Element
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Selected_Element,
+      Field_Base_Name,
+      --  Iir_Kind_Dereference
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Implicit_Dereference
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Slice_Name
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Suffix,
+      Field_Slice_Subtype,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Indexed_Name
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_List,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Psl_Expression
+      Field_Psl_Expression,
+      Field_Type,
+      --  Iir_Kind_Sensitized_Process_Statement
+      Field_Label,
+      Field_Seen_Flag,
+      Field_End_Has_Postponed,
+      Field_Passive_Flag,
+      Field_Postponed_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Has_Is,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Wait_State,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Sensitivity_List,
+      Field_Process_Origin,
+      Field_Parent,
+      Field_Callees_List,
+      --  Iir_Kind_Process_Statement
+      Field_Label,
+      Field_Seen_Flag,
+      Field_End_Has_Postponed,
+      Field_Passive_Flag,
+      Field_Postponed_Flag,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_Has_Is,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Wait_State,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Process_Origin,
+      Field_Parent,
+      Field_Callees_List,
+      --  Iir_Kind_Concurrent_Conditional_Signal_Assignment
+      Field_Delay_Mechanism,
+      Field_Label,
+      Field_Postponed_Flag,
+      Field_Visible_Flag,
+      Field_Guarded_Target_State,
+      Field_Target,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Reject_Time_Expression,
+      Field_Conditional_Waveform_Chain,
+      Field_Guard,
+      Field_Parent,
+      --  Iir_Kind_Concurrent_Selected_Signal_Assignment
+      Field_Delay_Mechanism,
+      Field_Label,
+      Field_Postponed_Flag,
+      Field_Visible_Flag,
+      Field_Guarded_Target_State,
+      Field_Target,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Expression,
+      Field_Reject_Time_Expression,
+      Field_Selected_Waveform_Chain,
+      Field_Guard,
+      Field_Parent,
+      --  Iir_Kind_Concurrent_Assertion_Statement
+      Field_Label,
+      Field_Postponed_Flag,
+      Field_Visible_Flag,
+      Field_Assertion_Condition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Severity_Expression,
+      Field_Report_Expression,
+      Field_Parent,
+      --  Iir_Kind_Psl_Default_Clock
+      Field_Psl_Boolean,
+      Field_Label,
+      Field_Chain,
+      Field_Parent,
+      --  Iir_Kind_Psl_Assert_Statement
+      Field_Psl_Property,
+      Field_Label,
+      Field_PSL_Clock,
+      Field_PSL_NFA,
+      Field_Visible_Flag,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Severity_Expression,
+      Field_Report_Expression,
+      Field_Parent,
+      --  Iir_Kind_Psl_Cover_Statement
+      Field_Psl_Property,
+      Field_Label,
+      Field_PSL_Clock,
+      Field_PSL_NFA,
+      Field_Visible_Flag,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Severity_Expression,
+      Field_Report_Expression,
+      Field_Parent,
+      --  Iir_Kind_Concurrent_Procedure_Call_Statement
+      Field_Label,
+      Field_Postponed_Flag,
+      Field_Visible_Flag,
+      Field_Procedure_Call,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      --  Iir_Kind_Block_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Concurrent_Statement_Chain,
+      Field_Block_Block_Configuration,
+      Field_Block_Header,
+      Field_Guard_Decl,
+      Field_Parent,
+      --  Iir_Kind_Generate_Statement
+      Field_Label,
+      Field_Has_Begin,
+      Field_Visible_Flag,
+      Field_End_Has_Reserved_Id,
+      Field_End_Has_Identifier,
+      Field_Declaration_Chain,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Concurrent_Statement_Chain,
+      Field_Generation_Scheme,
+      Field_Generate_Block_Configuration,
+      Field_Parent,
+      --  Iir_Kind_Component_Instantiation_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Instantiated_Unit,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Default_Binding_Indication,
+      Field_Component_Configuration,
+      Field_Configuration_Specification,
+      Field_Generic_Map_Aspect_Chain,
+      Field_Port_Map_Aspect_Chain,
+      Field_Parent,
+      --  Iir_Kind_Simple_Simultaneous_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Simultaneous_Left,
+      Field_Simultaneous_Right,
+      Field_Tolerance,
+      Field_Parent,
+      --  Iir_Kind_Signal_Assignment_Statement
+      Field_Delay_Mechanism,
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Guarded_Target_State,
+      Field_Target,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Waveform_Chain,
+      Field_Reject_Time_Expression,
+      Field_Parent,
+      --  Iir_Kind_Null_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      --  Iir_Kind_Assertion_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Assertion_Condition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Severity_Expression,
+      Field_Report_Expression,
+      Field_Parent,
+      --  Iir_Kind_Report_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Severity_Expression,
+      Field_Report_Expression,
+      Field_Parent,
+      --  Iir_Kind_Wait_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Timeout_Clause,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Condition_Clause,
+      Field_Sensitivity_List,
+      Field_Parent,
+      --  Iir_Kind_Variable_Assignment_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Target,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Expression,
+      Field_Parent,
+      --  Iir_Kind_Return_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Expression,
+      Field_Parent,
+      Field_Type,
+      --  Iir_Kind_For_Loop_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Is_Within_Flag,
+      Field_End_Has_Identifier,
+      Field_Parameter_Specification,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Parent,
+      --  Iir_Kind_While_Loop_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_End_Has_Identifier,
+      Field_Condition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Parent,
+      --  Iir_Kind_Next_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Condition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Loop_Label,
+      Field_Parent,
+      --  Iir_Kind_Exit_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Condition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Loop_Label,
+      Field_Parent,
+      --  Iir_Kind_Case_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_End_Has_Identifier,
+      Field_Case_Statement_Alternative_Chain,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Expression,
+      Field_Parent,
+      --  Iir_Kind_Procedure_Call_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_Procedure_Call,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Parent,
+      --  Iir_Kind_If_Statement
+      Field_Label,
+      Field_Visible_Flag,
+      Field_End_Has_Identifier,
+      Field_Condition,
+      Field_Chain,
+      Field_Attribute_Value_Chain,
+      Field_Sequential_Statement_Chain,
+      Field_Else_Clause,
+      Field_Parent,
+      --  Iir_Kind_Elsif
+      Field_End_Has_Identifier,
+      Field_Condition,
+      Field_Sequential_Statement_Chain,
+      Field_Else_Clause,
+      Field_Parent,
+      --  Iir_Kind_Character_Literal
+      Field_Identifier,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Alias_Declaration,
+      Field_Type,
+      Field_Named_Entity,
+      Field_Base_Name,
+      --  Iir_Kind_Simple_Name
+      Field_Identifier,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Alias_Declaration,
+      Field_Type,
+      Field_Named_Entity,
+      Field_Base_Name,
+      --  Iir_Kind_Selected_Name
+      Field_Identifier,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Alias_Declaration,
+      Field_Type,
+      Field_Named_Entity,
+      Field_Base_Name,
+      --  Iir_Kind_Operator_Symbol
+      Field_Identifier,
+      Field_Alias_Declaration,
+      Field_Type,
+      Field_Named_Entity,
+      Field_Base_Name,
+      --  Iir_Kind_Selected_By_All_Name
+      Field_Expr_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Named_Entity,
+      Field_Base_Name,
+      --  Iir_Kind_Parenthesis_Name
+      Field_Prefix,
+      Field_Association_Chain,
+      Field_Type,
+      Field_Named_Entity,
+      --  Iir_Kind_Base_Attribute
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Left_Type_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Right_Type_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_High_Type_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Low_Type_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Ascending_Type_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Image_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Value_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Pos_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Val_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Succ_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Pred_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Leftof_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Rightof_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Delayed_Attribute
+      Field_Has_Active_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Chain,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Stable_Attribute
+      Field_Has_Active_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Chain,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Quiet_Attribute
+      Field_Has_Active_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Chain,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Transaction_Attribute
+      Field_Has_Active_Flag,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Chain,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Event_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Active_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Last_Event_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Last_Active_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Last_Value_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Driving_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Driving_Value_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      --  Iir_Kind_Behavior_Attribute
+      --  Iir_Kind_Structure_Attribute
+      --  Iir_Kind_Simple_Name_Attribute
+      Field_Simple_Name_Identifier,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Simple_Name_Subtype,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Instance_Name_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Path_Name_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Left_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Right_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_High_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Low_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Length_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Ascending_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Range_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Reverse_Range_Array_Attribute
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Index_Subtype,
+      Field_Parameter,
+      Field_Type,
+      Field_Base_Name,
+      --  Iir_Kind_Attribute_Name
+      Field_Identifier,
+      Field_Expr_Staticness,
+      Field_Name_Staticness,
+      Field_Prefix,
+      Field_Attribute_Signature,
+      Field_Type,
+      Field_Named_Entity,
+      Field_Base_Name
+     );
+
+   Fields_Of_Iir_Last : constant array (Iir_Kind) of Integer :=
+     (
+      Iir_Kind_Unused => -1,
+      Iir_Kind_Error => 7,
+      Iir_Kind_Design_File => 17,
+      Iir_Kind_Design_Unit => 32,
+      Iir_Kind_Library_Clause => 37,
+      Iir_Kind_Use_Clause => 41,
+      Iir_Kind_Integer_Literal => 45,
+      Iir_Kind_Floating_Point_Literal => 49,
+      Iir_Kind_Null_Literal => 51,
+      Iir_Kind_String_Literal => 57,
+      Iir_Kind_Physical_Int_Literal => 62,
+      Iir_Kind_Physical_Fp_Literal => 67,
+      Iir_Kind_Bit_String_Literal => 76,
+      Iir_Kind_Simple_Aggregate => 81,
+      Iir_Kind_Overflow_Literal => 84,
+      Iir_Kind_Waveform_Element => 87,
+      Iir_Kind_Conditional_Waveform => 90,
+      Iir_Kind_Association_Element_By_Expression => 97,
+      Iir_Kind_Association_Element_By_Individual => 103,
+      Iir_Kind_Association_Element_Open => 108,
+      Iir_Kind_Association_Element_Package => 114,
+      Iir_Kind_Choice_By_Others => 119,
+      Iir_Kind_Choice_By_Expression => 126,
+      Iir_Kind_Choice_By_Range => 133,
+      Iir_Kind_Choice_By_None => 138,
+      Iir_Kind_Choice_By_Name => 144,
+      Iir_Kind_Entity_Aspect_Entity => 146,
+      Iir_Kind_Entity_Aspect_Configuration => 147,
+      Iir_Kind_Entity_Aspect_Open => 147,
+      Iir_Kind_Block_Configuration => 153,
+      Iir_Kind_Block_Header => 157,
+      Iir_Kind_Component_Configuration => 163,
+      Iir_Kind_Binding_Indication => 169,
+      Iir_Kind_Entity_Class => 171,
+      Iir_Kind_Attribute_Value => 179,
+      Iir_Kind_Signature => 182,
+      Iir_Kind_Aggregate_Info => 189,
+      Iir_Kind_Procedure_Call => 193,
+      Iir_Kind_Record_Element_Constraint => 199,
+      Iir_Kind_Array_Element_Resolution => 200,
+      Iir_Kind_Record_Resolution => 201,
+      Iir_Kind_Record_Element_Resolution => 204,
+      Iir_Kind_Attribute_Specification => 212,
+      Iir_Kind_Disconnection_Specification => 217,
+      Iir_Kind_Configuration_Specification => 222,
+      Iir_Kind_Access_Type_Definition => 229,
+      Iir_Kind_Incomplete_Type_Definition => 236,
+      Iir_Kind_File_Type_Definition => 243,
+      Iir_Kind_Protected_Type_Declaration => 252,
+      Iir_Kind_Record_Type_Definition => 262,
+      Iir_Kind_Array_Type_Definition => 274,
+      Iir_Kind_Array_Subtype_Definition => 289,
+      Iir_Kind_Record_Subtype_Definition => 300,
+      Iir_Kind_Access_Subtype_Definition => 308,
+      Iir_Kind_Physical_Subtype_Definition => 317,
+      Iir_Kind_Floating_Subtype_Definition => 327,
+      Iir_Kind_Integer_Subtype_Definition => 336,
+      Iir_Kind_Enumeration_Subtype_Definition => 345,
+      Iir_Kind_Enumeration_Type_Definition => 354,
+      Iir_Kind_Integer_Type_Definition => 360,
+      Iir_Kind_Floating_Type_Definition => 366,
+      Iir_Kind_Physical_Type_Definition => 375,
+      Iir_Kind_Range_Expression => 381,
+      Iir_Kind_Protected_Type_Body => 388,
+      Iir_Kind_Subtype_Definition => 392,
+      Iir_Kind_Scalar_Nature_Definition => 396,
+      Iir_Kind_Overload_List => 397,
+      Iir_Kind_Type_Declaration => 404,
+      Iir_Kind_Anonymous_Type_Declaration => 409,
+      Iir_Kind_Subtype_Declaration => 418,
+      Iir_Kind_Nature_Declaration => 425,
+      Iir_Kind_Subnature_Declaration => 432,
+      Iir_Kind_Package_Declaration => 442,
+      Iir_Kind_Package_Instantiation_Declaration => 453,
+      Iir_Kind_Package_Body => 459,
+      Iir_Kind_Configuration_Declaration => 468,
+      Iir_Kind_Entity_Declaration => 480,
+      Iir_Kind_Architecture_Body => 492,
+      Iir_Kind_Package_Header => 494,
+      Iir_Kind_Unit_Declaration => 504,
+      Iir_Kind_Library_Declaration => 510,
+      Iir_Kind_Component_Declaration => 521,
+      Iir_Kind_Attribute_Declaration => 528,
+      Iir_Kind_Group_Template_Declaration => 534,
+      Iir_Kind_Group_Declaration => 542,
+      Iir_Kind_Element_Declaration => 549,
+      Iir_Kind_Non_Object_Alias_Declaration => 557,
+      Iir_Kind_Psl_Declaration => 565,
+      Iir_Kind_Terminal_Declaration => 571,
+      Iir_Kind_Free_Quantity_Declaration => 581,
+      Iir_Kind_Across_Quantity_Declaration => 594,
+      Iir_Kind_Through_Quantity_Declaration => 607,
+      Iir_Kind_Enumeration_Literal => 620,
+      Iir_Kind_Function_Declaration => 643,
+      Iir_Kind_Implicit_Function_Declaration => 661,
+      Iir_Kind_Implicit_Procedure_Declaration => 677,
+      Iir_Kind_Procedure_Declaration => 698,
+      Iir_Kind_Function_Body => 707,
+      Iir_Kind_Procedure_Body => 716,
+      Iir_Kind_Object_Alias_Declaration => 728,
+      Iir_Kind_File_Declaration => 744,
+      Iir_Kind_Guard_Signal_Declaration => 757,
+      Iir_Kind_Signal_Declaration => 775,
+      Iir_Kind_Variable_Declaration => 789,
+      Iir_Kind_Constant_Declaration => 804,
+      Iir_Kind_Iterator_Declaration => 817,
+      Iir_Kind_Interface_Constant_Declaration => 832,
+      Iir_Kind_Interface_Variable_Declaration => 847,
+      Iir_Kind_Interface_Signal_Declaration => 866,
+      Iir_Kind_Interface_File_Declaration => 881,
+      Iir_Kind_Interface_Package_Declaration => 890,
+      Iir_Kind_Identity_Operator => 894,
+      Iir_Kind_Negation_Operator => 898,
+      Iir_Kind_Absolute_Operator => 902,
+      Iir_Kind_Not_Operator => 906,
+      Iir_Kind_Condition_Operator => 910,
+      Iir_Kind_Reduction_And_Operator => 914,
+      Iir_Kind_Reduction_Or_Operator => 918,
+      Iir_Kind_Reduction_Nand_Operator => 922,
+      Iir_Kind_Reduction_Nor_Operator => 926,
+      Iir_Kind_Reduction_Xor_Operator => 930,
+      Iir_Kind_Reduction_Xnor_Operator => 934,
+      Iir_Kind_And_Operator => 939,
+      Iir_Kind_Or_Operator => 944,
+      Iir_Kind_Nand_Operator => 949,
+      Iir_Kind_Nor_Operator => 954,
+      Iir_Kind_Xor_Operator => 959,
+      Iir_Kind_Xnor_Operator => 964,
+      Iir_Kind_Equality_Operator => 969,
+      Iir_Kind_Inequality_Operator => 974,
+      Iir_Kind_Less_Than_Operator => 979,
+      Iir_Kind_Less_Than_Or_Equal_Operator => 984,
+      Iir_Kind_Greater_Than_Operator => 989,
+      Iir_Kind_Greater_Than_Or_Equal_Operator => 994,
+      Iir_Kind_Match_Equality_Operator => 999,
+      Iir_Kind_Match_Inequality_Operator => 1004,
+      Iir_Kind_Match_Less_Than_Operator => 1009,
+      Iir_Kind_Match_Less_Than_Or_Equal_Operator => 1014,
+      Iir_Kind_Match_Greater_Than_Operator => 1019,
+      Iir_Kind_Match_Greater_Than_Or_Equal_Operator => 1024,
+      Iir_Kind_Sll_Operator => 1029,
+      Iir_Kind_Sla_Operator => 1034,
+      Iir_Kind_Srl_Operator => 1039,
+      Iir_Kind_Sra_Operator => 1044,
+      Iir_Kind_Rol_Operator => 1049,
+      Iir_Kind_Ror_Operator => 1054,
+      Iir_Kind_Addition_Operator => 1059,
+      Iir_Kind_Substraction_Operator => 1064,
+      Iir_Kind_Concatenation_Operator => 1069,
+      Iir_Kind_Multiplication_Operator => 1074,
+      Iir_Kind_Division_Operator => 1079,
+      Iir_Kind_Modulus_Operator => 1084,
+      Iir_Kind_Remainder_Operator => 1089,
+      Iir_Kind_Exponentiation_Operator => 1094,
+      Iir_Kind_Function_Call => 1102,
+      Iir_Kind_Aggregate => 1108,
+      Iir_Kind_Parenthesis_Expression => 1111,
+      Iir_Kind_Qualified_Expression => 1115,
+      Iir_Kind_Type_Conversion => 1120,
+      Iir_Kind_Allocator_By_Expression => 1124,
+      Iir_Kind_Allocator_By_Subtype => 1128,
+      Iir_Kind_Selected_Element => 1134,
+      Iir_Kind_Dereference => 1139,
+      Iir_Kind_Implicit_Dereference => 1144,
+      Iir_Kind_Slice_Name => 1151,
+      Iir_Kind_Indexed_Name => 1157,
+      Iir_Kind_Psl_Expression => 1159,
+      Iir_Kind_Sensitized_Process_Statement => 1178,
+      Iir_Kind_Process_Statement => 1196,
+      Iir_Kind_Concurrent_Conditional_Signal_Assignment => 1208,
+      Iir_Kind_Concurrent_Selected_Signal_Assignment => 1221,
+      Iir_Kind_Concurrent_Assertion_Statement => 1230,
+      Iir_Kind_Psl_Default_Clock => 1234,
+      Iir_Kind_Psl_Assert_Statement => 1244,
+      Iir_Kind_Psl_Cover_Statement => 1254,
+      Iir_Kind_Concurrent_Procedure_Call_Statement => 1261,
+      Iir_Kind_Block_Statement => 1274,
+      Iir_Kind_Generate_Statement => 1286,
+      Iir_Kind_Component_Instantiation_Statement => 1297,
+      Iir_Kind_Simple_Simultaneous_Statement => 1305,
+      Iir_Kind_Signal_Assignment_Statement => 1315,
+      Iir_Kind_Null_Statement => 1320,
+      Iir_Kind_Assertion_Statement => 1328,
+      Iir_Kind_Report_Statement => 1335,
+      Iir_Kind_Wait_Statement => 1343,
+      Iir_Kind_Variable_Assignment_Statement => 1350,
+      Iir_Kind_Return_Statement => 1357,
+      Iir_Kind_For_Loop_Statement => 1366,
+      Iir_Kind_While_Loop_Statement => 1374,
+      Iir_Kind_Next_Statement => 1381,
+      Iir_Kind_Exit_Statement => 1388,
+      Iir_Kind_Case_Statement => 1396,
+      Iir_Kind_Procedure_Call_Statement => 1402,
+      Iir_Kind_If_Statement => 1411,
+      Iir_Kind_Elsif => 1416,
+      Iir_Kind_Character_Literal => 1423,
+      Iir_Kind_Simple_Name => 1430,
+      Iir_Kind_Selected_Name => 1438,
+      Iir_Kind_Operator_Symbol => 1443,
+      Iir_Kind_Selected_By_All_Name => 1448,
+      Iir_Kind_Parenthesis_Name => 1452,
+      Iir_Kind_Base_Attribute => 1454,
+      Iir_Kind_Left_Type_Attribute => 1459,
+      Iir_Kind_Right_Type_Attribute => 1464,
+      Iir_Kind_High_Type_Attribute => 1469,
+      Iir_Kind_Low_Type_Attribute => 1474,
+      Iir_Kind_Ascending_Type_Attribute => 1479,
+      Iir_Kind_Image_Attribute => 1485,
+      Iir_Kind_Value_Attribute => 1491,
+      Iir_Kind_Pos_Attribute => 1497,
+      Iir_Kind_Val_Attribute => 1503,
+      Iir_Kind_Succ_Attribute => 1509,
+      Iir_Kind_Pred_Attribute => 1515,
+      Iir_Kind_Leftof_Attribute => 1521,
+      Iir_Kind_Rightof_Attribute => 1527,
+      Iir_Kind_Delayed_Attribute => 1535,
+      Iir_Kind_Stable_Attribute => 1543,
+      Iir_Kind_Quiet_Attribute => 1551,
+      Iir_Kind_Transaction_Attribute => 1559,
+      Iir_Kind_Event_Attribute => 1563,
+      Iir_Kind_Active_Attribute => 1567,
+      Iir_Kind_Last_Event_Attribute => 1571,
+      Iir_Kind_Last_Active_Attribute => 1575,
+      Iir_Kind_Last_Value_Attribute => 1579,
+      Iir_Kind_Driving_Attribute => 1583,
+      Iir_Kind_Driving_Value_Attribute => 1587,
+      Iir_Kind_Behavior_Attribute => 1587,
+      Iir_Kind_Structure_Attribute => 1587,
+      Iir_Kind_Simple_Name_Attribute => 1594,
+      Iir_Kind_Instance_Name_Attribute => 1599,
+      Iir_Kind_Path_Name_Attribute => 1604,
+      Iir_Kind_Left_Array_Attribute => 1611,
+      Iir_Kind_Right_Array_Attribute => 1618,
+      Iir_Kind_High_Array_Attribute => 1625,
+      Iir_Kind_Low_Array_Attribute => 1632,
+      Iir_Kind_Length_Array_Attribute => 1639,
+      Iir_Kind_Ascending_Array_Attribute => 1646,
+      Iir_Kind_Range_Array_Attribute => 1653,
+      Iir_Kind_Reverse_Range_Array_Attribute => 1660,
+      Iir_Kind_Attribute_Name => 1668
+     );
+
+   function Get_Fields (K : Iir_Kind) return Fields_Array
+   is
+      First : Natural;
+      Last : Integer;
+   begin
+      if K = Iir_Kind'First then
+         First := Fields_Of_Iir'First;
+      else
+         First := Fields_Of_Iir_Last (Iir_Kind'Pred (K)) + 1;
+      end if;
+      Last := Fields_Of_Iir_Last (K);
+      return Fields_Of_Iir (First .. Last);
+   end Get_Fields;
+
+   function Get_Base_Type
+      (N : Iir; F : Fields_Enum) return Base_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Base_Type);
+      case F is
+         when Field_Bit_String_Base =>
+            return Get_Bit_String_Base (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Base_Type;
+
+   procedure Set_Base_Type
+      (N : Iir; F : Fields_Enum; V: Base_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Base_Type);
+      case F is
+         when Field_Bit_String_Base =>
+            Set_Bit_String_Base (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Base_Type;
+
+   function Get_Boolean
+      (N : Iir; F : Fields_Enum) return Boolean is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Boolean);
+      case F is
+         when Field_Whole_Association_Flag =>
+            return Get_Whole_Association_Flag (N);
+         when Field_Collapse_Signal_Flag =>
+            return Get_Collapse_Signal_Flag (N);
+         when Field_Artificial_Flag =>
+            return Get_Artificial_Flag (N);
+         when Field_Open_Flag =>
+            return Get_Open_Flag (N);
+         when Field_After_Drivers_Flag =>
+            return Get_After_Drivers_Flag (N);
+         when Field_Same_Alternative_Flag =>
+            return Get_Same_Alternative_Flag (N);
+         when Field_Need_Body =>
+            return Get_Need_Body (N);
+         when Field_Deferred_Declaration_Flag =>
+            return Get_Deferred_Declaration_Flag (N);
+         when Field_Shared_Flag =>
+            return Get_Shared_Flag (N);
+         when Field_Visible_Flag =>
+            return Get_Visible_Flag (N);
+         when Field_Text_File_Flag =>
+            return Get_Text_File_Flag (N);
+         when Field_Only_Characters_Flag =>
+            return Get_Only_Characters_Flag (N);
+         when Field_Postponed_Flag =>
+            return Get_Postponed_Flag (N);
+         when Field_Passive_Flag =>
+            return Get_Passive_Flag (N);
+         when Field_Resolution_Function_Flag =>
+            return Get_Resolution_Function_Flag (N);
+         when Field_Seen_Flag =>
+            return Get_Seen_Flag (N);
+         when Field_Pure_Flag =>
+            return Get_Pure_Flag (N);
+         when Field_Foreign_Flag =>
+            return Get_Foreign_Flag (N);
+         when Field_Resolved_Flag =>
+            return Get_Resolved_Flag (N);
+         when Field_Signal_Type_Flag =>
+            return Get_Signal_Type_Flag (N);
+         when Field_Has_Signal_Flag =>
+            return Get_Has_Signal_Flag (N);
+         when Field_Elab_Flag =>
+            return Get_Elab_Flag (N);
+         when Field_Index_Constraint_Flag =>
+            return Get_Index_Constraint_Flag (N);
+         when Field_Aggr_Dynamic_Flag =>
+            return Get_Aggr_Dynamic_Flag (N);
+         when Field_Aggr_Others_Flag =>
+            return Get_Aggr_Others_Flag (N);
+         when Field_Aggr_Named_Flag =>
+            return Get_Aggr_Named_Flag (N);
+         when Field_Has_Disconnect_Flag =>
+            return Get_Has_Disconnect_Flag (N);
+         when Field_Has_Active_Flag =>
+            return Get_Has_Active_Flag (N);
+         when Field_Is_Within_Flag =>
+            return Get_Is_Within_Flag (N);
+         when Field_Implicit_Alias_Flag =>
+            return Get_Implicit_Alias_Flag (N);
+         when Field_Use_Flag =>
+            return Get_Use_Flag (N);
+         when Field_End_Has_Reserved_Id =>
+            return Get_End_Has_Reserved_Id (N);
+         when Field_End_Has_Identifier =>
+            return Get_End_Has_Identifier (N);
+         when Field_End_Has_Postponed =>
+            return Get_End_Has_Postponed (N);
+         when Field_Has_Begin =>
+            return Get_Has_Begin (N);
+         when Field_Has_Is =>
+            return Get_Has_Is (N);
+         when Field_Has_Pure =>
+            return Get_Has_Pure (N);
+         when Field_Has_Body =>
+            return Get_Has_Body (N);
+         when Field_Has_Identifier_List =>
+            return Get_Has_Identifier_List (N);
+         when Field_Has_Mode =>
+            return Get_Has_Mode (N);
+         when Field_Is_Ref =>
+            return Get_Is_Ref (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Boolean;
+
+   procedure Set_Boolean
+      (N : Iir; F : Fields_Enum; V: Boolean) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Boolean);
+      case F is
+         when Field_Whole_Association_Flag =>
+            Set_Whole_Association_Flag (N, V);
+         when Field_Collapse_Signal_Flag =>
+            Set_Collapse_Signal_Flag (N, V);
+         when Field_Artificial_Flag =>
+            Set_Artificial_Flag (N, V);
+         when Field_Open_Flag =>
+            Set_Open_Flag (N, V);
+         when Field_After_Drivers_Flag =>
+            Set_After_Drivers_Flag (N, V);
+         when Field_Same_Alternative_Flag =>
+            Set_Same_Alternative_Flag (N, V);
+         when Field_Need_Body =>
+            Set_Need_Body (N, V);
+         when Field_Deferred_Declaration_Flag =>
+            Set_Deferred_Declaration_Flag (N, V);
+         when Field_Shared_Flag =>
+            Set_Shared_Flag (N, V);
+         when Field_Visible_Flag =>
+            Set_Visible_Flag (N, V);
+         when Field_Text_File_Flag =>
+            Set_Text_File_Flag (N, V);
+         when Field_Only_Characters_Flag =>
+            Set_Only_Characters_Flag (N, V);
+         when Field_Postponed_Flag =>
+            Set_Postponed_Flag (N, V);
+         when Field_Passive_Flag =>
+            Set_Passive_Flag (N, V);
+         when Field_Resolution_Function_Flag =>
+            Set_Resolution_Function_Flag (N, V);
+         when Field_Seen_Flag =>
+            Set_Seen_Flag (N, V);
+         when Field_Pure_Flag =>
+            Set_Pure_Flag (N, V);
+         when Field_Foreign_Flag =>
+            Set_Foreign_Flag (N, V);
+         when Field_Resolved_Flag =>
+            Set_Resolved_Flag (N, V);
+         when Field_Signal_Type_Flag =>
+            Set_Signal_Type_Flag (N, V);
+         when Field_Has_Signal_Flag =>
+            Set_Has_Signal_Flag (N, V);
+         when Field_Elab_Flag =>
+            Set_Elab_Flag (N, V);
+         when Field_Index_Constraint_Flag =>
+            Set_Index_Constraint_Flag (N, V);
+         when Field_Aggr_Dynamic_Flag =>
+            Set_Aggr_Dynamic_Flag (N, V);
+         when Field_Aggr_Others_Flag =>
+            Set_Aggr_Others_Flag (N, V);
+         when Field_Aggr_Named_Flag =>
+            Set_Aggr_Named_Flag (N, V);
+         when Field_Has_Disconnect_Flag =>
+            Set_Has_Disconnect_Flag (N, V);
+         when Field_Has_Active_Flag =>
+            Set_Has_Active_Flag (N, V);
+         when Field_Is_Within_Flag =>
+            Set_Is_Within_Flag (N, V);
+         when Field_Implicit_Alias_Flag =>
+            Set_Implicit_Alias_Flag (N, V);
+         when Field_Use_Flag =>
+            Set_Use_Flag (N, V);
+         when Field_End_Has_Reserved_Id =>
+            Set_End_Has_Reserved_Id (N, V);
+         when Field_End_Has_Identifier =>
+            Set_End_Has_Identifier (N, V);
+         when Field_End_Has_Postponed =>
+            Set_End_Has_Postponed (N, V);
+         when Field_Has_Begin =>
+            Set_Has_Begin (N, V);
+         when Field_Has_Is =>
+            Set_Has_Is (N, V);
+         when Field_Has_Pure =>
+            Set_Has_Pure (N, V);
+         when Field_Has_Body =>
+            Set_Has_Body (N, V);
+         when Field_Has_Identifier_List =>
+            Set_Has_Identifier_List (N, V);
+         when Field_Has_Mode =>
+            Set_Has_Mode (N, V);
+         when Field_Is_Ref =>
+            Set_Is_Ref (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Boolean;
+
+   function Get_Date_State_Type
+      (N : Iir; F : Fields_Enum) return Date_State_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Date_State_Type);
+      case F is
+         when Field_Date_State =>
+            return Get_Date_State (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Date_State_Type;
+
+   procedure Set_Date_State_Type
+      (N : Iir; F : Fields_Enum; V: Date_State_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Date_State_Type);
+      case F is
+         when Field_Date_State =>
+            Set_Date_State (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Date_State_Type;
+
+   function Get_Date_Type
+      (N : Iir; F : Fields_Enum) return Date_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Date_Type);
+      case F is
+         when Field_Date =>
+            return Get_Date (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Date_Type;
+
+   procedure Set_Date_Type
+      (N : Iir; F : Fields_Enum; V: Date_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Date_Type);
+      case F is
+         when Field_Date =>
+            Set_Date (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Date_Type;
+
+   function Get_Iir
+      (N : Iir; F : Fields_Enum) return Iir is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir);
+      case F is
+         when Field_First_Design_Unit =>
+            return Get_First_Design_Unit (N);
+         when Field_Last_Design_Unit =>
+            return Get_Last_Design_Unit (N);
+         when Field_Library_Declaration =>
+            return Get_Library_Declaration (N);
+         when Field_Library =>
+            return Get_Library (N);
+         when Field_Design_File =>
+            return Get_Design_File (N);
+         when Field_Design_File_Chain =>
+            return Get_Design_File_Chain (N);
+         when Field_Context_Items =>
+            return Get_Context_Items (N);
+         when Field_Library_Unit =>
+            return Get_Library_Unit (N);
+         when Field_Hash_Chain =>
+            return Get_Hash_Chain (N);
+         when Field_Physical_Literal =>
+            return Get_Physical_Literal (N);
+         when Field_Physical_Unit_Value =>
+            return Get_Physical_Unit_Value (N);
+         when Field_Enumeration_Decl =>
+            return Get_Enumeration_Decl (N);
+         when Field_Bit_String_0 =>
+            return Get_Bit_String_0 (N);
+         when Field_Bit_String_1 =>
+            return Get_Bit_String_1 (N);
+         when Field_Literal_Origin =>
+            return Get_Literal_Origin (N);
+         when Field_Range_Origin =>
+            return Get_Range_Origin (N);
+         when Field_Literal_Subtype =>
+            return Get_Literal_Subtype (N);
+         when Field_Attribute_Designator =>
+            return Get_Attribute_Designator (N);
+         when Field_Attribute_Specification_Chain =>
+            return Get_Attribute_Specification_Chain (N);
+         when Field_Attribute_Specification =>
+            return Get_Attribute_Specification (N);
+         when Field_Designated_Entity =>
+            return Get_Designated_Entity (N);
+         when Field_Formal =>
+            return Get_Formal (N);
+         when Field_Actual =>
+            return Get_Actual (N);
+         when Field_In_Conversion =>
+            return Get_In_Conversion (N);
+         when Field_Out_Conversion =>
+            return Get_Out_Conversion (N);
+         when Field_We_Value =>
+            return Get_We_Value (N);
+         when Field_Time =>
+            return Get_Time (N);
+         when Field_Associated_Expr =>
+            return Get_Associated_Expr (N);
+         when Field_Associated_Chain =>
+            return Get_Associated_Chain (N);
+         when Field_Choice_Name =>
+            return Get_Choice_Name (N);
+         when Field_Choice_Expression =>
+            return Get_Choice_Expression (N);
+         when Field_Choice_Range =>
+            return Get_Choice_Range (N);
+         when Field_Architecture =>
+            return Get_Architecture (N);
+         when Field_Block_Specification =>
+            return Get_Block_Specification (N);
+         when Field_Prev_Block_Configuration =>
+            return Get_Prev_Block_Configuration (N);
+         when Field_Configuration_Item_Chain =>
+            return Get_Configuration_Item_Chain (N);
+         when Field_Attribute_Value_Chain =>
+            return Get_Attribute_Value_Chain (N);
+         when Field_Spec_Chain =>
+            return Get_Spec_Chain (N);
+         when Field_Attribute_Value_Spec_Chain =>
+            return Get_Attribute_Value_Spec_Chain (N);
+         when Field_Entity_Name =>
+            return Get_Entity_Name (N);
+         when Field_Package =>
+            return Get_Package (N);
+         when Field_Package_Body =>
+            return Get_Package_Body (N);
+         when Field_Block_Configuration =>
+            return Get_Block_Configuration (N);
+         when Field_Concurrent_Statement_Chain =>
+            return Get_Concurrent_Statement_Chain (N);
+         when Field_Chain =>
+            return Get_Chain (N);
+         when Field_Port_Chain =>
+            return Get_Port_Chain (N);
+         when Field_Generic_Chain =>
+            return Get_Generic_Chain (N);
+         when Field_Type =>
+            return Get_Type (N);
+         when Field_Subtype_Indication =>
+            return Get_Subtype_Indication (N);
+         when Field_Discrete_Range =>
+            return Get_Discrete_Range (N);
+         when Field_Type_Definition =>
+            return Get_Type_Definition (N);
+         when Field_Subtype_Definition =>
+            return Get_Subtype_Definition (N);
+         when Field_Nature =>
+            return Get_Nature (N);
+         when Field_Base_Name =>
+            return Get_Base_Name (N);
+         when Field_Interface_Declaration_Chain =>
+            return Get_Interface_Declaration_Chain (N);
+         when Field_Subprogram_Specification =>
+            return Get_Subprogram_Specification (N);
+         when Field_Sequential_Statement_Chain =>
+            return Get_Sequential_Statement_Chain (N);
+         when Field_Subprogram_Body =>
+            return Get_Subprogram_Body (N);
+         when Field_Return_Type =>
+            return Get_Return_Type (N);
+         when Field_Type_Reference =>
+            return Get_Type_Reference (N);
+         when Field_Default_Value =>
+            return Get_Default_Value (N);
+         when Field_Deferred_Declaration =>
+            return Get_Deferred_Declaration (N);
+         when Field_Design_Unit =>
+            return Get_Design_Unit (N);
+         when Field_Block_Statement =>
+            return Get_Block_Statement (N);
+         when Field_Signal_Driver =>
+            return Get_Signal_Driver (N);
+         when Field_Declaration_Chain =>
+            return Get_Declaration_Chain (N);
+         when Field_File_Logical_Name =>
+            return Get_File_Logical_Name (N);
+         when Field_File_Open_Kind =>
+            return Get_File_Open_Kind (N);
+         when Field_Element_Declaration =>
+            return Get_Element_Declaration (N);
+         when Field_Selected_Element =>
+            return Get_Selected_Element (N);
+         when Field_Use_Clause_Chain =>
+            return Get_Use_Clause_Chain (N);
+         when Field_Selected_Name =>
+            return Get_Selected_Name (N);
+         when Field_Type_Declarator =>
+            return Get_Type_Declarator (N);
+         when Field_Entity_Class_Entry_Chain =>
+            return Get_Entity_Class_Entry_Chain (N);
+         when Field_Unit_Chain =>
+            return Get_Unit_Chain (N);
+         when Field_Primary_Unit =>
+            return Get_Primary_Unit (N);
+         when Field_Range_Constraint =>
+            return Get_Range_Constraint (N);
+         when Field_Left_Limit =>
+            return Get_Left_Limit (N);
+         when Field_Right_Limit =>
+            return Get_Right_Limit (N);
+         when Field_Base_Type =>
+            return Get_Base_Type (N);
+         when Field_Resolution_Indication =>
+            return Get_Resolution_Indication (N);
+         when Field_Record_Element_Resolution_Chain =>
+            return Get_Record_Element_Resolution_Chain (N);
+         when Field_Tolerance =>
+            return Get_Tolerance (N);
+         when Field_Plus_Terminal =>
+            return Get_Plus_Terminal (N);
+         when Field_Minus_Terminal =>
+            return Get_Minus_Terminal (N);
+         when Field_Simultaneous_Left =>
+            return Get_Simultaneous_Left (N);
+         when Field_Simultaneous_Right =>
+            return Get_Simultaneous_Right (N);
+         when Field_Element_Subtype_Indication =>
+            return Get_Element_Subtype_Indication (N);
+         when Field_Element_Subtype =>
+            return Get_Element_Subtype (N);
+         when Field_Array_Element_Constraint =>
+            return Get_Array_Element_Constraint (N);
+         when Field_Designated_Type =>
+            return Get_Designated_Type (N);
+         when Field_Designated_Subtype_Indication =>
+            return Get_Designated_Subtype_Indication (N);
+         when Field_Reference =>
+            return Get_Reference (N);
+         when Field_Nature_Declarator =>
+            return Get_Nature_Declarator (N);
+         when Field_Across_Type =>
+            return Get_Across_Type (N);
+         when Field_Through_Type =>
+            return Get_Through_Type (N);
+         when Field_Target =>
+            return Get_Target (N);
+         when Field_Waveform_Chain =>
+            return Get_Waveform_Chain (N);
+         when Field_Guard =>
+            return Get_Guard (N);
+         when Field_Reject_Time_Expression =>
+            return Get_Reject_Time_Expression (N);
+         when Field_Process_Origin =>
+            return Get_Process_Origin (N);
+         when Field_Condition_Clause =>
+            return Get_Condition_Clause (N);
+         when Field_Timeout_Clause =>
+            return Get_Timeout_Clause (N);
+         when Field_Assertion_Condition =>
+            return Get_Assertion_Condition (N);
+         when Field_Report_Expression =>
+            return Get_Report_Expression (N);
+         when Field_Severity_Expression =>
+            return Get_Severity_Expression (N);
+         when Field_Instantiated_Unit =>
+            return Get_Instantiated_Unit (N);
+         when Field_Generic_Map_Aspect_Chain =>
+            return Get_Generic_Map_Aspect_Chain (N);
+         when Field_Port_Map_Aspect_Chain =>
+            return Get_Port_Map_Aspect_Chain (N);
+         when Field_Configuration_Name =>
+            return Get_Configuration_Name (N);
+         when Field_Component_Configuration =>
+            return Get_Component_Configuration (N);
+         when Field_Configuration_Specification =>
+            return Get_Configuration_Specification (N);
+         when Field_Default_Binding_Indication =>
+            return Get_Default_Binding_Indication (N);
+         when Field_Default_Configuration_Declaration =>
+            return Get_Default_Configuration_Declaration (N);
+         when Field_Expression =>
+            return Get_Expression (N);
+         when Field_Allocator_Designated_Type =>
+            return Get_Allocator_Designated_Type (N);
+         when Field_Selected_Waveform_Chain =>
+            return Get_Selected_Waveform_Chain (N);
+         when Field_Conditional_Waveform_Chain =>
+            return Get_Conditional_Waveform_Chain (N);
+         when Field_Guard_Expression =>
+            return Get_Guard_Expression (N);
+         when Field_Guard_Decl =>
+            return Get_Guard_Decl (N);
+         when Field_Block_Block_Configuration =>
+            return Get_Block_Block_Configuration (N);
+         when Field_Package_Header =>
+            return Get_Package_Header (N);
+         when Field_Block_Header =>
+            return Get_Block_Header (N);
+         when Field_Uninstantiated_Package_Name =>
+            return Get_Uninstantiated_Package_Name (N);
+         when Field_Generate_Block_Configuration =>
+            return Get_Generate_Block_Configuration (N);
+         when Field_Generation_Scheme =>
+            return Get_Generation_Scheme (N);
+         when Field_Condition =>
+            return Get_Condition (N);
+         when Field_Else_Clause =>
+            return Get_Else_Clause (N);
+         when Field_Parameter_Specification =>
+            return Get_Parameter_Specification (N);
+         when Field_Parent =>
+            return Get_Parent (N);
+         when Field_Loop_Label =>
+            return Get_Loop_Label (N);
+         when Field_Component_Name =>
+            return Get_Component_Name (N);
+         when Field_Entity_Aspect =>
+            return Get_Entity_Aspect (N);
+         when Field_Default_Entity_Aspect =>
+            return Get_Default_Entity_Aspect (N);
+         when Field_Default_Generic_Map_Aspect_Chain =>
+            return Get_Default_Generic_Map_Aspect_Chain (N);
+         when Field_Default_Port_Map_Aspect_Chain =>
+            return Get_Default_Port_Map_Aspect_Chain (N);
+         when Field_Binding_Indication =>
+            return Get_Binding_Indication (N);
+         when Field_Named_Entity =>
+            return Get_Named_Entity (N);
+         when Field_Alias_Declaration =>
+            return Get_Alias_Declaration (N);
+         when Field_Error_Origin =>
+            return Get_Error_Origin (N);
+         when Field_Operand =>
+            return Get_Operand (N);
+         when Field_Left =>
+            return Get_Left (N);
+         when Field_Right =>
+            return Get_Right (N);
+         when Field_Unit_Name =>
+            return Get_Unit_Name (N);
+         when Field_Name =>
+            return Get_Name (N);
+         when Field_Group_Template_Name =>
+            return Get_Group_Template_Name (N);
+         when Field_Prefix =>
+            return Get_Prefix (N);
+         when Field_Signature_Prefix =>
+            return Get_Signature_Prefix (N);
+         when Field_Slice_Subtype =>
+            return Get_Slice_Subtype (N);
+         when Field_Suffix =>
+            return Get_Suffix (N);
+         when Field_Index_Subtype =>
+            return Get_Index_Subtype (N);
+         when Field_Parameter =>
+            return Get_Parameter (N);
+         when Field_Actual_Type =>
+            return Get_Actual_Type (N);
+         when Field_Associated_Interface =>
+            return Get_Associated_Interface (N);
+         when Field_Association_Chain =>
+            return Get_Association_Chain (N);
+         when Field_Individual_Association_Chain =>
+            return Get_Individual_Association_Chain (N);
+         when Field_Aggregate_Info =>
+            return Get_Aggregate_Info (N);
+         when Field_Sub_Aggregate_Info =>
+            return Get_Sub_Aggregate_Info (N);
+         when Field_Aggr_Low_Limit =>
+            return Get_Aggr_Low_Limit (N);
+         when Field_Aggr_High_Limit =>
+            return Get_Aggr_High_Limit (N);
+         when Field_Association_Choices_Chain =>
+            return Get_Association_Choices_Chain (N);
+         when Field_Case_Statement_Alternative_Chain =>
+            return Get_Case_Statement_Alternative_Chain (N);
+         when Field_Procedure_Call =>
+            return Get_Procedure_Call (N);
+         when Field_Implementation =>
+            return Get_Implementation (N);
+         when Field_Parameter_Association_Chain =>
+            return Get_Parameter_Association_Chain (N);
+         when Field_Method_Object =>
+            return Get_Method_Object (N);
+         when Field_Subtype_Type_Mark =>
+            return Get_Subtype_Type_Mark (N);
+         when Field_Type_Conversion_Subtype =>
+            return Get_Type_Conversion_Subtype (N);
+         when Field_Type_Mark =>
+            return Get_Type_Mark (N);
+         when Field_File_Type_Mark =>
+            return Get_File_Type_Mark (N);
+         when Field_Return_Type_Mark =>
+            return Get_Return_Type_Mark (N);
+         when Field_Alias_Signature =>
+            return Get_Alias_Signature (N);
+         when Field_Attribute_Signature =>
+            return Get_Attribute_Signature (N);
+         when Field_Simple_Name_Subtype =>
+            return Get_Simple_Name_Subtype (N);
+         when Field_Protected_Type_Body =>
+            return Get_Protected_Type_Body (N);
+         when Field_Protected_Type_Declaration =>
+            return Get_Protected_Type_Declaration (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir;
+
+   procedure Set_Iir
+      (N : Iir; F : Fields_Enum; V: Iir) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir);
+      case F is
+         when Field_First_Design_Unit =>
+            Set_First_Design_Unit (N, V);
+         when Field_Last_Design_Unit =>
+            Set_Last_Design_Unit (N, V);
+         when Field_Library_Declaration =>
+            Set_Library_Declaration (N, V);
+         when Field_Library =>
+            Set_Library (N, V);
+         when Field_Design_File =>
+            Set_Design_File (N, V);
+         when Field_Design_File_Chain =>
+            Set_Design_File_Chain (N, V);
+         when Field_Context_Items =>
+            Set_Context_Items (N, V);
+         when Field_Library_Unit =>
+            Set_Library_Unit (N, V);
+         when Field_Hash_Chain =>
+            Set_Hash_Chain (N, V);
+         when Field_Physical_Literal =>
+            Set_Physical_Literal (N, V);
+         when Field_Physical_Unit_Value =>
+            Set_Physical_Unit_Value (N, V);
+         when Field_Enumeration_Decl =>
+            Set_Enumeration_Decl (N, V);
+         when Field_Bit_String_0 =>
+            Set_Bit_String_0 (N, V);
+         when Field_Bit_String_1 =>
+            Set_Bit_String_1 (N, V);
+         when Field_Literal_Origin =>
+            Set_Literal_Origin (N, V);
+         when Field_Range_Origin =>
+            Set_Range_Origin (N, V);
+         when Field_Literal_Subtype =>
+            Set_Literal_Subtype (N, V);
+         when Field_Attribute_Designator =>
+            Set_Attribute_Designator (N, V);
+         when Field_Attribute_Specification_Chain =>
+            Set_Attribute_Specification_Chain (N, V);
+         when Field_Attribute_Specification =>
+            Set_Attribute_Specification (N, V);
+         when Field_Designated_Entity =>
+            Set_Designated_Entity (N, V);
+         when Field_Formal =>
+            Set_Formal (N, V);
+         when Field_Actual =>
+            Set_Actual (N, V);
+         when Field_In_Conversion =>
+            Set_In_Conversion (N, V);
+         when Field_Out_Conversion =>
+            Set_Out_Conversion (N, V);
+         when Field_We_Value =>
+            Set_We_Value (N, V);
+         when Field_Time =>
+            Set_Time (N, V);
+         when Field_Associated_Expr =>
+            Set_Associated_Expr (N, V);
+         when Field_Associated_Chain =>
+            Set_Associated_Chain (N, V);
+         when Field_Choice_Name =>
+            Set_Choice_Name (N, V);
+         when Field_Choice_Expression =>
+            Set_Choice_Expression (N, V);
+         when Field_Choice_Range =>
+            Set_Choice_Range (N, V);
+         when Field_Architecture =>
+            Set_Architecture (N, V);
+         when Field_Block_Specification =>
+            Set_Block_Specification (N, V);
+         when Field_Prev_Block_Configuration =>
+            Set_Prev_Block_Configuration (N, V);
+         when Field_Configuration_Item_Chain =>
+            Set_Configuration_Item_Chain (N, V);
+         when Field_Attribute_Value_Chain =>
+            Set_Attribute_Value_Chain (N, V);
+         when Field_Spec_Chain =>
+            Set_Spec_Chain (N, V);
+         when Field_Attribute_Value_Spec_Chain =>
+            Set_Attribute_Value_Spec_Chain (N, V);
+         when Field_Entity_Name =>
+            Set_Entity_Name (N, V);
+         when Field_Package =>
+            Set_Package (N, V);
+         when Field_Package_Body =>
+            Set_Package_Body (N, V);
+         when Field_Block_Configuration =>
+            Set_Block_Configuration (N, V);
+         when Field_Concurrent_Statement_Chain =>
+            Set_Concurrent_Statement_Chain (N, V);
+         when Field_Chain =>
+            Set_Chain (N, V);
+         when Field_Port_Chain =>
+            Set_Port_Chain (N, V);
+         when Field_Generic_Chain =>
+            Set_Generic_Chain (N, V);
+         when Field_Type =>
+            Set_Type (N, V);
+         when Field_Subtype_Indication =>
+            Set_Subtype_Indication (N, V);
+         when Field_Discrete_Range =>
+            Set_Discrete_Range (N, V);
+         when Field_Type_Definition =>
+            Set_Type_Definition (N, V);
+         when Field_Subtype_Definition =>
+            Set_Subtype_Definition (N, V);
+         when Field_Nature =>
+            Set_Nature (N, V);
+         when Field_Base_Name =>
+            Set_Base_Name (N, V);
+         when Field_Interface_Declaration_Chain =>
+            Set_Interface_Declaration_Chain (N, V);
+         when Field_Subprogram_Specification =>
+            Set_Subprogram_Specification (N, V);
+         when Field_Sequential_Statement_Chain =>
+            Set_Sequential_Statement_Chain (N, V);
+         when Field_Subprogram_Body =>
+            Set_Subprogram_Body (N, V);
+         when Field_Return_Type =>
+            Set_Return_Type (N, V);
+         when Field_Type_Reference =>
+            Set_Type_Reference (N, V);
+         when Field_Default_Value =>
+            Set_Default_Value (N, V);
+         when Field_Deferred_Declaration =>
+            Set_Deferred_Declaration (N, V);
+         when Field_Design_Unit =>
+            Set_Design_Unit (N, V);
+         when Field_Block_Statement =>
+            Set_Block_Statement (N, V);
+         when Field_Signal_Driver =>
+            Set_Signal_Driver (N, V);
+         when Field_Declaration_Chain =>
+            Set_Declaration_Chain (N, V);
+         when Field_File_Logical_Name =>
+            Set_File_Logical_Name (N, V);
+         when Field_File_Open_Kind =>
+            Set_File_Open_Kind (N, V);
+         when Field_Element_Declaration =>
+            Set_Element_Declaration (N, V);
+         when Field_Selected_Element =>
+            Set_Selected_Element (N, V);
+         when Field_Use_Clause_Chain =>
+            Set_Use_Clause_Chain (N, V);
+         when Field_Selected_Name =>
+            Set_Selected_Name (N, V);
+         when Field_Type_Declarator =>
+            Set_Type_Declarator (N, V);
+         when Field_Entity_Class_Entry_Chain =>
+            Set_Entity_Class_Entry_Chain (N, V);
+         when Field_Unit_Chain =>
+            Set_Unit_Chain (N, V);
+         when Field_Primary_Unit =>
+            Set_Primary_Unit (N, V);
+         when Field_Range_Constraint =>
+            Set_Range_Constraint (N, V);
+         when Field_Left_Limit =>
+            Set_Left_Limit (N, V);
+         when Field_Right_Limit =>
+            Set_Right_Limit (N, V);
+         when Field_Base_Type =>
+            Set_Base_Type (N, V);
+         when Field_Resolution_Indication =>
+            Set_Resolution_Indication (N, V);
+         when Field_Record_Element_Resolution_Chain =>
+            Set_Record_Element_Resolution_Chain (N, V);
+         when Field_Tolerance =>
+            Set_Tolerance (N, V);
+         when Field_Plus_Terminal =>
+            Set_Plus_Terminal (N, V);
+         when Field_Minus_Terminal =>
+            Set_Minus_Terminal (N, V);
+         when Field_Simultaneous_Left =>
+            Set_Simultaneous_Left (N, V);
+         when Field_Simultaneous_Right =>
+            Set_Simultaneous_Right (N, V);
+         when Field_Element_Subtype_Indication =>
+            Set_Element_Subtype_Indication (N, V);
+         when Field_Element_Subtype =>
+            Set_Element_Subtype (N, V);
+         when Field_Array_Element_Constraint =>
+            Set_Array_Element_Constraint (N, V);
+         when Field_Designated_Type =>
+            Set_Designated_Type (N, V);
+         when Field_Designated_Subtype_Indication =>
+            Set_Designated_Subtype_Indication (N, V);
+         when Field_Reference =>
+            Set_Reference (N, V);
+         when Field_Nature_Declarator =>
+            Set_Nature_Declarator (N, V);
+         when Field_Across_Type =>
+            Set_Across_Type (N, V);
+         when Field_Through_Type =>
+            Set_Through_Type (N, V);
+         when Field_Target =>
+            Set_Target (N, V);
+         when Field_Waveform_Chain =>
+            Set_Waveform_Chain (N, V);
+         when Field_Guard =>
+            Set_Guard (N, V);
+         when Field_Reject_Time_Expression =>
+            Set_Reject_Time_Expression (N, V);
+         when Field_Process_Origin =>
+            Set_Process_Origin (N, V);
+         when Field_Condition_Clause =>
+            Set_Condition_Clause (N, V);
+         when Field_Timeout_Clause =>
+            Set_Timeout_Clause (N, V);
+         when Field_Assertion_Condition =>
+            Set_Assertion_Condition (N, V);
+         when Field_Report_Expression =>
+            Set_Report_Expression (N, V);
+         when Field_Severity_Expression =>
+            Set_Severity_Expression (N, V);
+         when Field_Instantiated_Unit =>
+            Set_Instantiated_Unit (N, V);
+         when Field_Generic_Map_Aspect_Chain =>
+            Set_Generic_Map_Aspect_Chain (N, V);
+         when Field_Port_Map_Aspect_Chain =>
+            Set_Port_Map_Aspect_Chain (N, V);
+         when Field_Configuration_Name =>
+            Set_Configuration_Name (N, V);
+         when Field_Component_Configuration =>
+            Set_Component_Configuration (N, V);
+         when Field_Configuration_Specification =>
+            Set_Configuration_Specification (N, V);
+         when Field_Default_Binding_Indication =>
+            Set_Default_Binding_Indication (N, V);
+         when Field_Default_Configuration_Declaration =>
+            Set_Default_Configuration_Declaration (N, V);
+         when Field_Expression =>
+            Set_Expression (N, V);
+         when Field_Allocator_Designated_Type =>
+            Set_Allocator_Designated_Type (N, V);
+         when Field_Selected_Waveform_Chain =>
+            Set_Selected_Waveform_Chain (N, V);
+         when Field_Conditional_Waveform_Chain =>
+            Set_Conditional_Waveform_Chain (N, V);
+         when Field_Guard_Expression =>
+            Set_Guard_Expression (N, V);
+         when Field_Guard_Decl =>
+            Set_Guard_Decl (N, V);
+         when Field_Block_Block_Configuration =>
+            Set_Block_Block_Configuration (N, V);
+         when Field_Package_Header =>
+            Set_Package_Header (N, V);
+         when Field_Block_Header =>
+            Set_Block_Header (N, V);
+         when Field_Uninstantiated_Package_Name =>
+            Set_Uninstantiated_Package_Name (N, V);
+         when Field_Generate_Block_Configuration =>
+            Set_Generate_Block_Configuration (N, V);
+         when Field_Generation_Scheme =>
+            Set_Generation_Scheme (N, V);
+         when Field_Condition =>
+            Set_Condition (N, V);
+         when Field_Else_Clause =>
+            Set_Else_Clause (N, V);
+         when Field_Parameter_Specification =>
+            Set_Parameter_Specification (N, V);
+         when Field_Parent =>
+            Set_Parent (N, V);
+         when Field_Loop_Label =>
+            Set_Loop_Label (N, V);
+         when Field_Component_Name =>
+            Set_Component_Name (N, V);
+         when Field_Entity_Aspect =>
+            Set_Entity_Aspect (N, V);
+         when Field_Default_Entity_Aspect =>
+            Set_Default_Entity_Aspect (N, V);
+         when Field_Default_Generic_Map_Aspect_Chain =>
+            Set_Default_Generic_Map_Aspect_Chain (N, V);
+         when Field_Default_Port_Map_Aspect_Chain =>
+            Set_Default_Port_Map_Aspect_Chain (N, V);
+         when Field_Binding_Indication =>
+            Set_Binding_Indication (N, V);
+         when Field_Named_Entity =>
+            Set_Named_Entity (N, V);
+         when Field_Alias_Declaration =>
+            Set_Alias_Declaration (N, V);
+         when Field_Error_Origin =>
+            Set_Error_Origin (N, V);
+         when Field_Operand =>
+            Set_Operand (N, V);
+         when Field_Left =>
+            Set_Left (N, V);
+         when Field_Right =>
+            Set_Right (N, V);
+         when Field_Unit_Name =>
+            Set_Unit_Name (N, V);
+         when Field_Name =>
+            Set_Name (N, V);
+         when Field_Group_Template_Name =>
+            Set_Group_Template_Name (N, V);
+         when Field_Prefix =>
+            Set_Prefix (N, V);
+         when Field_Signature_Prefix =>
+            Set_Signature_Prefix (N, V);
+         when Field_Slice_Subtype =>
+            Set_Slice_Subtype (N, V);
+         when Field_Suffix =>
+            Set_Suffix (N, V);
+         when Field_Index_Subtype =>
+            Set_Index_Subtype (N, V);
+         when Field_Parameter =>
+            Set_Parameter (N, V);
+         when Field_Actual_Type =>
+            Set_Actual_Type (N, V);
+         when Field_Associated_Interface =>
+            Set_Associated_Interface (N, V);
+         when Field_Association_Chain =>
+            Set_Association_Chain (N, V);
+         when Field_Individual_Association_Chain =>
+            Set_Individual_Association_Chain (N, V);
+         when Field_Aggregate_Info =>
+            Set_Aggregate_Info (N, V);
+         when Field_Sub_Aggregate_Info =>
+            Set_Sub_Aggregate_Info (N, V);
+         when Field_Aggr_Low_Limit =>
+            Set_Aggr_Low_Limit (N, V);
+         when Field_Aggr_High_Limit =>
+            Set_Aggr_High_Limit (N, V);
+         when Field_Association_Choices_Chain =>
+            Set_Association_Choices_Chain (N, V);
+         when Field_Case_Statement_Alternative_Chain =>
+            Set_Case_Statement_Alternative_Chain (N, V);
+         when Field_Procedure_Call =>
+            Set_Procedure_Call (N, V);
+         when Field_Implementation =>
+            Set_Implementation (N, V);
+         when Field_Parameter_Association_Chain =>
+            Set_Parameter_Association_Chain (N, V);
+         when Field_Method_Object =>
+            Set_Method_Object (N, V);
+         when Field_Subtype_Type_Mark =>
+            Set_Subtype_Type_Mark (N, V);
+         when Field_Type_Conversion_Subtype =>
+            Set_Type_Conversion_Subtype (N, V);
+         when Field_Type_Mark =>
+            Set_Type_Mark (N, V);
+         when Field_File_Type_Mark =>
+            Set_File_Type_Mark (N, V);
+         when Field_Return_Type_Mark =>
+            Set_Return_Type_Mark (N, V);
+         when Field_Alias_Signature =>
+            Set_Alias_Signature (N, V);
+         when Field_Attribute_Signature =>
+            Set_Attribute_Signature (N, V);
+         when Field_Simple_Name_Subtype =>
+            Set_Simple_Name_Subtype (N, V);
+         when Field_Protected_Type_Body =>
+            Set_Protected_Type_Body (N, V);
+         when Field_Protected_Type_Declaration =>
+            Set_Protected_Type_Declaration (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir;
+
+   function Get_Iir_All_Sensitized
+      (N : Iir; F : Fields_Enum) return Iir_All_Sensitized is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_All_Sensitized);
+      case F is
+         when Field_All_Sensitized_State =>
+            return Get_All_Sensitized_State (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_All_Sensitized;
+
+   procedure Set_Iir_All_Sensitized
+      (N : Iir; F : Fields_Enum; V: Iir_All_Sensitized) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_All_Sensitized);
+      case F is
+         when Field_All_Sensitized_State =>
+            Set_All_Sensitized_State (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_All_Sensitized;
+
+   function Get_Iir_Constraint
+      (N : Iir; F : Fields_Enum) return Iir_Constraint is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Constraint);
+      case F is
+         when Field_Constraint_State =>
+            return Get_Constraint_State (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Constraint;
+
+   procedure Set_Iir_Constraint
+      (N : Iir; F : Fields_Enum; V: Iir_Constraint) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Constraint);
+      case F is
+         when Field_Constraint_State =>
+            Set_Constraint_State (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Constraint;
+
+   function Get_Iir_Delay_Mechanism
+      (N : Iir; F : Fields_Enum) return Iir_Delay_Mechanism is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Delay_Mechanism);
+      case F is
+         when Field_Delay_Mechanism =>
+            return Get_Delay_Mechanism (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Delay_Mechanism;
+
+   procedure Set_Iir_Delay_Mechanism
+      (N : Iir; F : Fields_Enum; V: Iir_Delay_Mechanism) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Delay_Mechanism);
+      case F is
+         when Field_Delay_Mechanism =>
+            Set_Delay_Mechanism (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Delay_Mechanism;
+
+   function Get_Iir_Direction
+      (N : Iir; F : Fields_Enum) return Iir_Direction is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Direction);
+      case F is
+         when Field_Direction =>
+            return Get_Direction (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Direction;
+
+   procedure Set_Iir_Direction
+      (N : Iir; F : Fields_Enum; V: Iir_Direction) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Direction);
+      case F is
+         when Field_Direction =>
+            Set_Direction (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Direction;
+
+   function Get_Iir_Fp64
+      (N : Iir; F : Fields_Enum) return Iir_Fp64 is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Fp64);
+      case F is
+         when Field_Fp_Value =>
+            return Get_Fp_Value (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Fp64;
+
+   procedure Set_Iir_Fp64
+      (N : Iir; F : Fields_Enum; V: Iir_Fp64) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Fp64);
+      case F is
+         when Field_Fp_Value =>
+            Set_Fp_Value (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Fp64;
+
+   function Get_Iir_Index32
+      (N : Iir; F : Fields_Enum) return Iir_Index32 is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Index32);
+      case F is
+         when Field_Element_Position =>
+            return Get_Element_Position (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Index32;
+
+   procedure Set_Iir_Index32
+      (N : Iir; F : Fields_Enum; V: Iir_Index32) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Index32);
+      case F is
+         when Field_Element_Position =>
+            Set_Element_Position (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Index32;
+
+   function Get_Iir_Int32
+      (N : Iir; F : Fields_Enum) return Iir_Int32 is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Int32);
+      case F is
+         when Field_Enum_Pos =>
+            return Get_Enum_Pos (N);
+         when Field_Overload_Number =>
+            return Get_Overload_Number (N);
+         when Field_Subprogram_Depth =>
+            return Get_Subprogram_Depth (N);
+         when Field_Subprogram_Hash =>
+            return Get_Subprogram_Hash (N);
+         when Field_Impure_Depth =>
+            return Get_Impure_Depth (N);
+         when Field_Aggr_Min_Length =>
+            return Get_Aggr_Min_Length (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Int32;
+
+   procedure Set_Iir_Int32
+      (N : Iir; F : Fields_Enum; V: Iir_Int32) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Int32);
+      case F is
+         when Field_Enum_Pos =>
+            Set_Enum_Pos (N, V);
+         when Field_Overload_Number =>
+            Set_Overload_Number (N, V);
+         when Field_Subprogram_Depth =>
+            Set_Subprogram_Depth (N, V);
+         when Field_Subprogram_Hash =>
+            Set_Subprogram_Hash (N, V);
+         when Field_Impure_Depth =>
+            Set_Impure_Depth (N, V);
+         when Field_Aggr_Min_Length =>
+            Set_Aggr_Min_Length (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Int32;
+
+   function Get_Iir_Int64
+      (N : Iir; F : Fields_Enum) return Iir_Int64 is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Int64);
+      case F is
+         when Field_Value =>
+            return Get_Value (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Int64;
+
+   procedure Set_Iir_Int64
+      (N : Iir; F : Fields_Enum; V: Iir_Int64) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Int64);
+      case F is
+         when Field_Value =>
+            Set_Value (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Int64;
+
+   function Get_Iir_Lexical_Layout_Type
+      (N : Iir; F : Fields_Enum) return Iir_Lexical_Layout_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Lexical_Layout_Type);
+      case F is
+         when Field_Lexical_Layout =>
+            return Get_Lexical_Layout (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Lexical_Layout_Type;
+
+   procedure Set_Iir_Lexical_Layout_Type
+      (N : Iir; F : Fields_Enum; V: Iir_Lexical_Layout_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Lexical_Layout_Type);
+      case F is
+         when Field_Lexical_Layout =>
+            Set_Lexical_Layout (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Lexical_Layout_Type;
+
+   function Get_Iir_List
+      (N : Iir; F : Fields_Enum) return Iir_List is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_List);
+      case F is
+         when Field_File_Dependence_List =>
+            return Get_File_Dependence_List (N);
+         when Field_Dependence_List =>
+            return Get_Dependence_List (N);
+         when Field_Analysis_Checks_List =>
+            return Get_Analysis_Checks_List (N);
+         when Field_Simple_Aggregate_List =>
+            return Get_Simple_Aggregate_List (N);
+         when Field_Entity_Name_List =>
+            return Get_Entity_Name_List (N);
+         when Field_Signal_List =>
+            return Get_Signal_List (N);
+         when Field_Enumeration_Literal_List =>
+            return Get_Enumeration_Literal_List (N);
+         when Field_Group_Constituent_List =>
+            return Get_Group_Constituent_List (N);
+         when Field_Index_Subtype_List =>
+            return Get_Index_Subtype_List (N);
+         when Field_Index_Subtype_Definition_List =>
+            return Get_Index_Subtype_Definition_List (N);
+         when Field_Index_Constraint_List =>
+            return Get_Index_Constraint_List (N);
+         when Field_Elements_Declaration_List =>
+            return Get_Elements_Declaration_List (N);
+         when Field_Index_List =>
+            return Get_Index_List (N);
+         when Field_Sensitivity_List =>
+            return Get_Sensitivity_List (N);
+         when Field_Callees_List =>
+            return Get_Callees_List (N);
+         when Field_Guard_Sensitivity_List =>
+            return Get_Guard_Sensitivity_List (N);
+         when Field_Instantiation_List =>
+            return Get_Instantiation_List (N);
+         when Field_Incomplete_Type_List =>
+            return Get_Incomplete_Type_List (N);
+         when Field_Type_Marks_List =>
+            return Get_Type_Marks_List (N);
+         when Field_Overload_List =>
+            return Get_Overload_List (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_List;
+
+   procedure Set_Iir_List
+      (N : Iir; F : Fields_Enum; V: Iir_List) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_List);
+      case F is
+         when Field_File_Dependence_List =>
+            Set_File_Dependence_List (N, V);
+         when Field_Dependence_List =>
+            Set_Dependence_List (N, V);
+         when Field_Analysis_Checks_List =>
+            Set_Analysis_Checks_List (N, V);
+         when Field_Simple_Aggregate_List =>
+            Set_Simple_Aggregate_List (N, V);
+         when Field_Entity_Name_List =>
+            Set_Entity_Name_List (N, V);
+         when Field_Signal_List =>
+            Set_Signal_List (N, V);
+         when Field_Enumeration_Literal_List =>
+            Set_Enumeration_Literal_List (N, V);
+         when Field_Group_Constituent_List =>
+            Set_Group_Constituent_List (N, V);
+         when Field_Index_Subtype_List =>
+            Set_Index_Subtype_List (N, V);
+         when Field_Index_Subtype_Definition_List =>
+            Set_Index_Subtype_Definition_List (N, V);
+         when Field_Index_Constraint_List =>
+            Set_Index_Constraint_List (N, V);
+         when Field_Elements_Declaration_List =>
+            Set_Elements_Declaration_List (N, V);
+         when Field_Index_List =>
+            Set_Index_List (N, V);
+         when Field_Sensitivity_List =>
+            Set_Sensitivity_List (N, V);
+         when Field_Callees_List =>
+            Set_Callees_List (N, V);
+         when Field_Guard_Sensitivity_List =>
+            Set_Guard_Sensitivity_List (N, V);
+         when Field_Instantiation_List =>
+            Set_Instantiation_List (N, V);
+         when Field_Incomplete_Type_List =>
+            Set_Incomplete_Type_List (N, V);
+         when Field_Type_Marks_List =>
+            Set_Type_Marks_List (N, V);
+         when Field_Overload_List =>
+            Set_Overload_List (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_List;
+
+   function Get_Iir_Mode
+      (N : Iir; F : Fields_Enum) return Iir_Mode is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Mode);
+      case F is
+         when Field_Mode =>
+            return Get_Mode (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Mode;
+
+   procedure Set_Iir_Mode
+      (N : Iir; F : Fields_Enum; V: Iir_Mode) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Mode);
+      case F is
+         when Field_Mode =>
+            Set_Mode (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Mode;
+
+   function Get_Iir_Predefined_Functions
+      (N : Iir; F : Fields_Enum) return Iir_Predefined_Functions is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Predefined_Functions);
+      case F is
+         when Field_Implicit_Definition =>
+            return Get_Implicit_Definition (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Predefined_Functions;
+
+   procedure Set_Iir_Predefined_Functions
+      (N : Iir; F : Fields_Enum; V: Iir_Predefined_Functions) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Predefined_Functions);
+      case F is
+         when Field_Implicit_Definition =>
+            Set_Implicit_Definition (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Predefined_Functions;
+
+   function Get_Iir_Pure_State
+      (N : Iir; F : Fields_Enum) return Iir_Pure_State is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Pure_State);
+      case F is
+         when Field_Purity_State =>
+            return Get_Purity_State (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Pure_State;
+
+   procedure Set_Iir_Pure_State
+      (N : Iir; F : Fields_Enum; V: Iir_Pure_State) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Pure_State);
+      case F is
+         when Field_Purity_State =>
+            Set_Purity_State (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Pure_State;
+
+   function Get_Iir_Signal_Kind
+      (N : Iir; F : Fields_Enum) return Iir_Signal_Kind is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Signal_Kind);
+      case F is
+         when Field_Signal_Kind =>
+            return Get_Signal_Kind (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Signal_Kind;
+
+   procedure Set_Iir_Signal_Kind
+      (N : Iir; F : Fields_Enum; V: Iir_Signal_Kind) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Signal_Kind);
+      case F is
+         when Field_Signal_Kind =>
+            Set_Signal_Kind (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Signal_Kind;
+
+   function Get_Iir_Staticness
+      (N : Iir; F : Fields_Enum) return Iir_Staticness is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Staticness);
+      case F is
+         when Field_Type_Staticness =>
+            return Get_Type_Staticness (N);
+         when Field_Expr_Staticness =>
+            return Get_Expr_Staticness (N);
+         when Field_Name_Staticness =>
+            return Get_Name_Staticness (N);
+         when Field_Value_Staticness =>
+            return Get_Value_Staticness (N);
+         when Field_Choice_Staticness =>
+            return Get_Choice_Staticness (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Iir_Staticness;
+
+   procedure Set_Iir_Staticness
+      (N : Iir; F : Fields_Enum; V: Iir_Staticness) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Iir_Staticness);
+      case F is
+         when Field_Type_Staticness =>
+            Set_Type_Staticness (N, V);
+         when Field_Expr_Staticness =>
+            Set_Expr_Staticness (N, V);
+         when Field_Name_Staticness =>
+            Set_Name_Staticness (N, V);
+         when Field_Value_Staticness =>
+            Set_Value_Staticness (N, V);
+         when Field_Choice_Staticness =>
+            Set_Choice_Staticness (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Iir_Staticness;
+
+   function Get_Int32
+      (N : Iir; F : Fields_Enum) return Int32 is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Int32);
+      case F is
+         when Field_Design_Unit_Source_Line =>
+            return Get_Design_Unit_Source_Line (N);
+         when Field_Design_Unit_Source_Col =>
+            return Get_Design_Unit_Source_Col (N);
+         when Field_String_Length =>
+            return Get_String_Length (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Int32;
+
+   procedure Set_Int32
+      (N : Iir; F : Fields_Enum; V: Int32) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Int32);
+      case F is
+         when Field_Design_Unit_Source_Line =>
+            Set_Design_Unit_Source_Line (N, V);
+         when Field_Design_Unit_Source_Col =>
+            Set_Design_Unit_Source_Col (N, V);
+         when Field_String_Length =>
+            Set_String_Length (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Int32;
+
+   function Get_Location_Type
+      (N : Iir; F : Fields_Enum) return Location_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Location_Type);
+      case F is
+         when Field_End_Location =>
+            return Get_End_Location (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Location_Type;
+
+   procedure Set_Location_Type
+      (N : Iir; F : Fields_Enum; V: Location_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Location_Type);
+      case F is
+         when Field_End_Location =>
+            Set_End_Location (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Location_Type;
+
+   function Get_Name_Id
+      (N : Iir; F : Fields_Enum) return Name_Id is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Name_Id);
+      case F is
+         when Field_Design_File_Filename =>
+            return Get_Design_File_Filename (N);
+         when Field_Design_File_Directory =>
+            return Get_Design_File_Directory (N);
+         when Field_Library_Directory =>
+            return Get_Library_Directory (N);
+         when Field_Identifier =>
+            return Get_Identifier (N);
+         when Field_Label =>
+            return Get_Label (N);
+         when Field_Simple_Name_Identifier =>
+            return Get_Simple_Name_Identifier (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Name_Id;
+
+   procedure Set_Name_Id
+      (N : Iir; F : Fields_Enum; V: Name_Id) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Name_Id);
+      case F is
+         when Field_Design_File_Filename =>
+            Set_Design_File_Filename (N, V);
+         when Field_Design_File_Directory =>
+            Set_Design_File_Directory (N, V);
+         when Field_Library_Directory =>
+            Set_Library_Directory (N, V);
+         when Field_Identifier =>
+            Set_Identifier (N, V);
+         when Field_Label =>
+            Set_Label (N, V);
+         when Field_Simple_Name_Identifier =>
+            Set_Simple_Name_Identifier (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Name_Id;
+
+   function Get_PSL_NFA
+      (N : Iir; F : Fields_Enum) return PSL_NFA is
+   begin
+      pragma Assert (Fields_Type (F) = Type_PSL_NFA);
+      case F is
+         when Field_PSL_NFA =>
+            return Get_PSL_NFA (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_PSL_NFA;
+
+   procedure Set_PSL_NFA
+      (N : Iir; F : Fields_Enum; V: PSL_NFA) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_PSL_NFA);
+      case F is
+         when Field_PSL_NFA =>
+            Set_PSL_NFA (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_PSL_NFA;
+
+   function Get_PSL_Node
+      (N : Iir; F : Fields_Enum) return PSL_Node is
+   begin
+      pragma Assert (Fields_Type (F) = Type_PSL_Node);
+      case F is
+         when Field_Psl_Property =>
+            return Get_Psl_Property (N);
+         when Field_Psl_Declaration =>
+            return Get_Psl_Declaration (N);
+         when Field_Psl_Expression =>
+            return Get_Psl_Expression (N);
+         when Field_Psl_Boolean =>
+            return Get_Psl_Boolean (N);
+         when Field_PSL_Clock =>
+            return Get_PSL_Clock (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_PSL_Node;
+
+   procedure Set_PSL_Node
+      (N : Iir; F : Fields_Enum; V: PSL_Node) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_PSL_Node);
+      case F is
+         when Field_Psl_Property =>
+            Set_Psl_Property (N, V);
+         when Field_Psl_Declaration =>
+            Set_Psl_Declaration (N, V);
+         when Field_Psl_Expression =>
+            Set_Psl_Expression (N, V);
+         when Field_Psl_Boolean =>
+            Set_Psl_Boolean (N, V);
+         when Field_PSL_Clock =>
+            Set_PSL_Clock (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_PSL_Node;
+
+   function Get_Source_Ptr
+      (N : Iir; F : Fields_Enum) return Source_Ptr is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Source_Ptr);
+      case F is
+         when Field_Design_Unit_Source_Pos =>
+            return Get_Design_Unit_Source_Pos (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Source_Ptr;
+
+   procedure Set_Source_Ptr
+      (N : Iir; F : Fields_Enum; V: Source_Ptr) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Source_Ptr);
+      case F is
+         when Field_Design_Unit_Source_Pos =>
+            Set_Design_Unit_Source_Pos (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Source_Ptr;
+
+   function Get_String_Id
+      (N : Iir; F : Fields_Enum) return String_Id is
+   begin
+      pragma Assert (Fields_Type (F) = Type_String_Id);
+      case F is
+         when Field_String_Id =>
+            return Get_String_Id (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_String_Id;
+
+   procedure Set_String_Id
+      (N : Iir; F : Fields_Enum; V: String_Id) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_String_Id);
+      case F is
+         when Field_String_Id =>
+            Set_String_Id (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_String_Id;
+
+   function Get_Time_Stamp_Id
+      (N : Iir; F : Fields_Enum) return Time_Stamp_Id is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Time_Stamp_Id);
+      case F is
+         when Field_File_Time_Stamp =>
+            return Get_File_Time_Stamp (N);
+         when Field_Analysis_Time_Stamp =>
+            return Get_Analysis_Time_Stamp (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Time_Stamp_Id;
+
+   procedure Set_Time_Stamp_Id
+      (N : Iir; F : Fields_Enum; V: Time_Stamp_Id) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Time_Stamp_Id);
+      case F is
+         when Field_File_Time_Stamp =>
+            Set_File_Time_Stamp (N, V);
+         when Field_Analysis_Time_Stamp =>
+            Set_Analysis_Time_Stamp (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Time_Stamp_Id;
+
+   function Get_Token_Type
+      (N : Iir; F : Fields_Enum) return Token_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Token_Type);
+      case F is
+         when Field_Entity_Class =>
+            return Get_Entity_Class (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Token_Type;
+
+   procedure Set_Token_Type
+      (N : Iir; F : Fields_Enum; V: Token_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Token_Type);
+      case F is
+         when Field_Entity_Class =>
+            Set_Entity_Class (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Token_Type;
+
+   function Get_Tri_State_Type
+      (N : Iir; F : Fields_Enum) return Tri_State_Type is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Tri_State_Type);
+      case F is
+         when Field_Guarded_Target_State =>
+            return Get_Guarded_Target_State (N);
+         when Field_Wait_State =>
+            return Get_Wait_State (N);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Get_Tri_State_Type;
+
+   procedure Set_Tri_State_Type
+      (N : Iir; F : Fields_Enum; V: Tri_State_Type) is
+   begin
+      pragma Assert (Fields_Type (F) = Type_Tri_State_Type);
+      case F is
+         when Field_Guarded_Target_State =>
+            Set_Guarded_Target_State (N, V);
+         when Field_Wait_State =>
+            Set_Wait_State (N, V);
+         when others =>
+            raise Internal_Error;
+      end case;
+   end Set_Tri_State_Type;
+
+   function Has_First_Design_Unit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_First_Design_Unit;
+
+   function Has_Last_Design_Unit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_Last_Design_Unit;
+
+   function Has_Library_Declaration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Library_Clause;
+   end Has_Library_Declaration;
+
+   function Has_File_Time_Stamp (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_File_Time_Stamp;
+
+   function Has_Analysis_Time_Stamp (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_Analysis_Time_Stamp;
+
+   function Has_Library (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_Library;
+
+   function Has_File_Dependence_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_File_Dependence_List;
+
+   function Has_Design_File_Filename (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_Design_File_Filename;
+
+   function Has_Design_File_Directory (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_File;
+   end Has_Design_File_Directory;
+
+   function Has_Design_File (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Design_File;
+
+   function Has_Design_File_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Library_Declaration;
+   end Has_Design_File_Chain;
+
+   function Has_Library_Directory (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Library_Declaration;
+   end Has_Library_Directory;
+
+   function Has_Date (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Design_Unit
+           | Iir_Kind_Library_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Date;
+
+   function Has_Context_Items (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Context_Items;
+
+   function Has_Dependence_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Dependence_List;
+
+   function Has_Analysis_Checks_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Analysis_Checks_List;
+
+   function Has_Date_State (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Date_State;
+
+   function Has_Guarded_Target_State (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Signal_Assignment_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Guarded_Target_State;
+
+   function Has_Library_Unit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Library_Unit;
+
+   function Has_Hash_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Hash_Chain;
+
+   function Has_Design_Unit_Source_Pos (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Design_Unit_Source_Pos;
+
+   function Has_Design_Unit_Source_Line (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Design_Unit_Source_Line;
+
+   function Has_Design_Unit_Source_Col (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_Design_Unit_Source_Col;
+
+   function Has_Value (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Integer_Literal
+           | Iir_Kind_Physical_Int_Literal =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Value;
+
+   function Has_Enum_Pos (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Enumeration_Literal;
+   end Has_Enum_Pos;
+
+   function Has_Physical_Literal (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Unit_Declaration;
+   end Has_Physical_Literal;
+
+   function Has_Physical_Unit_Value (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Unit_Declaration;
+   end Has_Physical_Unit_Value;
+
+   function Has_Fp_Value (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Floating_Point_Literal
+           | Iir_Kind_Physical_Fp_Literal =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Fp_Value;
+
+   function Has_Enumeration_Decl (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Enumeration_Literal;
+   end Has_Enumeration_Decl;
+
+   function Has_Simple_Aggregate_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Simple_Aggregate;
+   end Has_Simple_Aggregate_List;
+
+   function Has_Bit_String_Base (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Bit_String_Literal;
+   end Has_Bit_String_Base;
+
+   function Has_Bit_String_0 (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Bit_String_Literal;
+   end Has_Bit_String_0;
+
+   function Has_Bit_String_1 (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Bit_String_Literal;
+   end Has_Bit_String_1;
+
+   function Has_Literal_Origin (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Integer_Literal
+           | Iir_Kind_Floating_Point_Literal
+           | Iir_Kind_String_Literal
+           | Iir_Kind_Physical_Int_Literal
+           | Iir_Kind_Physical_Fp_Literal
+           | Iir_Kind_Bit_String_Literal
+           | Iir_Kind_Simple_Aggregate
+           | Iir_Kind_Overflow_Literal
+           | Iir_Kind_Enumeration_Literal =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Literal_Origin;
+
+   function Has_Range_Origin (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Range_Expression;
+   end Has_Range_Origin;
+
+   function Has_Literal_Subtype (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_String_Literal
+           | Iir_Kind_Bit_String_Literal
+           | Iir_Kind_Simple_Aggregate
+           | Iir_Kind_Aggregate =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Literal_Subtype;
+
+   function Has_Entity_Class (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Entity_Class
+           | Iir_Kind_Attribute_Specification =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Entity_Class;
+
+   function Has_Entity_Name_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Specification;
+   end Has_Entity_Name_List;
+
+   function Has_Attribute_Designator (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Specification;
+   end Has_Attribute_Designator;
+
+   function Has_Attribute_Specification_Chain (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Specification;
+   end Has_Attribute_Specification_Chain;
+
+   function Has_Attribute_Specification (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Value;
+   end Has_Attribute_Specification;
+
+   function Has_Signal_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Disconnection_Specification;
+   end Has_Signal_List;
+
+   function Has_Designated_Entity (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Value;
+   end Has_Designated_Entity;
+
+   function Has_Formal (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Association_Element_By_Expression
+           | Iir_Kind_Association_Element_By_Individual
+           | Iir_Kind_Association_Element_Open
+           | Iir_Kind_Association_Element_Package =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Formal;
+
+   function Has_Actual (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Association_Element_By_Expression
+           | Iir_Kind_Association_Element_Package =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Actual;
+
+   function Has_In_Conversion (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Association_Element_By_Expression;
+   end Has_In_Conversion;
+
+   function Has_Out_Conversion (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Association_Element_By_Expression;
+   end Has_Out_Conversion;
+
+   function Has_Whole_Association_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Association_Element_By_Expression
+           | Iir_Kind_Association_Element_By_Individual
+           | Iir_Kind_Association_Element_Open
+           | Iir_Kind_Association_Element_Package =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Whole_Association_Flag;
+
+   function Has_Collapse_Signal_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Association_Element_By_Expression
+           | Iir_Kind_Association_Element_By_Individual
+           | Iir_Kind_Association_Element_Open
+           | Iir_Kind_Association_Element_Package =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Collapse_Signal_Flag;
+
+   function Has_Artificial_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Association_Element_Open;
+   end Has_Artificial_Flag;
+
+   function Has_Open_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Interface_Signal_Declaration;
+   end Has_Open_Flag;
+
+   function Has_After_Drivers_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_After_Drivers_Flag;
+
+   function Has_We_Value (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Waveform_Element;
+   end Has_We_Value;
+
+   function Has_Time (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Waveform_Element;
+   end Has_Time;
+
+   function Has_Associated_Expr (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Choice_By_Others
+           | Iir_Kind_Choice_By_Expression
+           | Iir_Kind_Choice_By_Range
+           | Iir_Kind_Choice_By_None
+           | Iir_Kind_Choice_By_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Associated_Expr;
+
+   function Has_Associated_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Choice_By_Others
+           | Iir_Kind_Choice_By_Expression
+           | Iir_Kind_Choice_By_Range
+           | Iir_Kind_Choice_By_None
+           | Iir_Kind_Choice_By_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Associated_Chain;
+
+   function Has_Choice_Name (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Choice_By_Name;
+   end Has_Choice_Name;
+
+   function Has_Choice_Expression (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Choice_By_Expression;
+   end Has_Choice_Expression;
+
+   function Has_Choice_Range (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Choice_By_Range;
+   end Has_Choice_Range;
+
+   function Has_Same_Alternative_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Choice_By_Others
+           | Iir_Kind_Choice_By_Expression
+           | Iir_Kind_Choice_By_Range
+           | Iir_Kind_Choice_By_None
+           | Iir_Kind_Choice_By_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Same_Alternative_Flag;
+
+   function Has_Architecture (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Entity_Aspect_Entity;
+   end Has_Architecture;
+
+   function Has_Block_Specification (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Block_Configuration;
+   end Has_Block_Specification;
+
+   function Has_Prev_Block_Configuration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Block_Configuration;
+   end Has_Prev_Block_Configuration;
+
+   function Has_Configuration_Item_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Block_Configuration;
+   end Has_Configuration_Item_Chain;
+
+   function Has_Attribute_Value_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Type_Declaration
+           | Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Nature_Declaration
+           | Iir_Kind_Subnature_Declaration
+           | Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Group_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_Component_Instantiation_Statement
+           | Iir_Kind_Simple_Simultaneous_Statement
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Null_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement
+           | Iir_Kind_Wait_Statement
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_Procedure_Call_Statement
+           | Iir_Kind_If_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Attribute_Value_Chain;
+
+   function Has_Spec_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Value;
+   end Has_Spec_Chain;
+
+   function Has_Attribute_Value_Spec_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Specification;
+   end Has_Attribute_Value_Spec_Chain;
+
+   function Has_Entity_Name (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Entity_Aspect_Entity
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Architecture_Body =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Entity_Name;
+
+   function Has_Package (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Package_Body;
+   end Has_Package;
+
+   function Has_Package_Body (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Package_Body;
+
+   function Has_Need_Body (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Package_Declaration;
+   end Has_Need_Body;
+
+   function Has_Block_Configuration (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Component_Configuration
+           | Iir_Kind_Configuration_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Block_Configuration;
+
+   function Has_Concurrent_Statement_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Concurrent_Statement_Chain;
+
+   function Has_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Design_File
+           | Iir_Kind_Design_Unit
+           | Iir_Kind_Library_Clause
+           | Iir_Kind_Use_Clause
+           | Iir_Kind_Waveform_Element
+           | Iir_Kind_Conditional_Waveform
+           | Iir_Kind_Association_Element_By_Expression
+           | Iir_Kind_Association_Element_By_Individual
+           | Iir_Kind_Association_Element_Open
+           | Iir_Kind_Association_Element_Package
+           | Iir_Kind_Choice_By_Others
+           | Iir_Kind_Choice_By_Expression
+           | Iir_Kind_Choice_By_Range
+           | Iir_Kind_Choice_By_None
+           | Iir_Kind_Choice_By_Name
+           | Iir_Kind_Block_Configuration
+           | Iir_Kind_Component_Configuration
+           | Iir_Kind_Entity_Class
+           | Iir_Kind_Attribute_Value
+           | Iir_Kind_Record_Element_Resolution
+           | Iir_Kind_Attribute_Specification
+           | Iir_Kind_Disconnection_Specification
+           | Iir_Kind_Configuration_Specification
+           | Iir_Kind_Protected_Type_Body
+           | Iir_Kind_Type_Declaration
+           | Iir_Kind_Anonymous_Type_Declaration
+           | Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Nature_Declaration
+           | Iir_Kind_Subnature_Declaration
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Library_Declaration
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Group_Template_Declaration
+           | Iir_Kind_Group_Declaration
+           | Iir_Kind_Non_Object_Alias_Declaration
+           | Iir_Kind_Psl_Declaration
+           | Iir_Kind_Terminal_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Default_Clock
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_Component_Instantiation_Statement
+           | Iir_Kind_Simple_Simultaneous_Statement
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Null_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement
+           | Iir_Kind_Wait_Statement
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_Procedure_Call_Statement
+           | Iir_Kind_If_Statement
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Chain;
+
+   function Has_Port_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Block_Header
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Component_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Port_Chain;
+
+   function Has_Generic_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Block_Header
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Package_Header
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Interface_Package_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Generic_Chain;
+
+   function Has_Type (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Integer_Literal
+           | Iir_Kind_Floating_Point_Literal
+           | Iir_Kind_Null_Literal
+           | Iir_Kind_String_Literal
+           | Iir_Kind_Physical_Int_Literal
+           | Iir_Kind_Physical_Fp_Literal
+           | Iir_Kind_Bit_String_Literal
+           | Iir_Kind_Simple_Aggregate
+           | Iir_Kind_Overflow_Literal
+           | Iir_Kind_Attribute_Value
+           | Iir_Kind_Record_Element_Constraint
+           | Iir_Kind_Range_Expression
+           | Iir_Kind_Type_Declaration
+           | Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Element_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Identity_Operator
+           | Iir_Kind_Negation_Operator
+           | Iir_Kind_Absolute_Operator
+           | Iir_Kind_Not_Operator
+           | Iir_Kind_Condition_Operator
+           | Iir_Kind_Reduction_And_Operator
+           | Iir_Kind_Reduction_Or_Operator
+           | Iir_Kind_Reduction_Nand_Operator
+           | Iir_Kind_Reduction_Nor_Operator
+           | Iir_Kind_Reduction_Xor_Operator
+           | Iir_Kind_Reduction_Xnor_Operator
+           | Iir_Kind_And_Operator
+           | Iir_Kind_Or_Operator
+           | Iir_Kind_Nand_Operator
+           | Iir_Kind_Nor_Operator
+           | Iir_Kind_Xor_Operator
+           | Iir_Kind_Xnor_Operator
+           | Iir_Kind_Equality_Operator
+           | Iir_Kind_Inequality_Operator
+           | Iir_Kind_Less_Than_Operator
+           | Iir_Kind_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Greater_Than_Operator
+           | Iir_Kind_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Equality_Operator
+           | Iir_Kind_Match_Inequality_Operator
+           | Iir_Kind_Match_Less_Than_Operator
+           | Iir_Kind_Match_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Greater_Than_Operator
+           | Iir_Kind_Match_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Sll_Operator
+           | Iir_Kind_Sla_Operator
+           | Iir_Kind_Srl_Operator
+           | Iir_Kind_Sra_Operator
+           | Iir_Kind_Rol_Operator
+           | Iir_Kind_Ror_Operator
+           | Iir_Kind_Addition_Operator
+           | Iir_Kind_Substraction_Operator
+           | Iir_Kind_Concatenation_Operator
+           | Iir_Kind_Multiplication_Operator
+           | Iir_Kind_Division_Operator
+           | Iir_Kind_Modulus_Operator
+           | Iir_Kind_Remainder_Operator
+           | Iir_Kind_Exponentiation_Operator
+           | Iir_Kind_Function_Call
+           | Iir_Kind_Aggregate
+           | Iir_Kind_Parenthesis_Expression
+           | Iir_Kind_Qualified_Expression
+           | Iir_Kind_Type_Conversion
+           | Iir_Kind_Allocator_By_Expression
+           | Iir_Kind_Allocator_By_Subtype
+           | Iir_Kind_Selected_Element
+           | Iir_Kind_Dereference
+           | Iir_Kind_Implicit_Dereference
+           | Iir_Kind_Slice_Name
+           | Iir_Kind_Indexed_Name
+           | Iir_Kind_Psl_Expression
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Operator_Symbol
+           | Iir_Kind_Selected_By_All_Name
+           | Iir_Kind_Parenthesis_Name
+           | Iir_Kind_Base_Attribute
+           | Iir_Kind_Left_Type_Attribute
+           | Iir_Kind_Right_Type_Attribute
+           | Iir_Kind_High_Type_Attribute
+           | Iir_Kind_Low_Type_Attribute
+           | Iir_Kind_Ascending_Type_Attribute
+           | Iir_Kind_Image_Attribute
+           | Iir_Kind_Value_Attribute
+           | Iir_Kind_Pos_Attribute
+           | Iir_Kind_Val_Attribute
+           | Iir_Kind_Succ_Attribute
+           | Iir_Kind_Pred_Attribute
+           | Iir_Kind_Leftof_Attribute
+           | Iir_Kind_Rightof_Attribute
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute
+           | Iir_Kind_Event_Attribute
+           | Iir_Kind_Active_Attribute
+           | Iir_Kind_Last_Event_Attribute
+           | Iir_Kind_Last_Active_Attribute
+           | Iir_Kind_Last_Value_Attribute
+           | Iir_Kind_Driving_Attribute
+           | Iir_Kind_Driving_Value_Attribute
+           | Iir_Kind_Simple_Name_Attribute
+           | Iir_Kind_Instance_Name_Attribute
+           | Iir_Kind_Path_Name_Attribute
+           | Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Type;
+
+   function Has_Subtype_Indication (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Element_Declaration
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Allocator_By_Subtype =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Subtype_Indication;
+
+   function Has_Discrete_Range (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Iterator_Declaration;
+   end Has_Discrete_Range;
+
+   function Has_Type_Definition (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Type_Declaration
+           | Iir_Kind_Anonymous_Type_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Type_Definition;
+
+   function Has_Subtype_Definition (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Anonymous_Type_Declaration;
+   end Has_Subtype_Definition;
+
+   function Has_Nature (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Nature_Declaration
+           | Iir_Kind_Subnature_Declaration
+           | Iir_Kind_Terminal_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Nature;
+
+   function Has_Mode (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_File_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Mode;
+
+   function Has_Signal_Kind (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Interface_Signal_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Signal_Kind;
+
+   function Has_Base_Name (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Attribute_Value
+           | Iir_Kind_Function_Call
+           | Iir_Kind_Selected_Element
+           | Iir_Kind_Dereference
+           | Iir_Kind_Implicit_Dereference
+           | Iir_Kind_Slice_Name
+           | Iir_Kind_Indexed_Name
+           | Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Operator_Symbol
+           | Iir_Kind_Selected_By_All_Name
+           | Iir_Kind_Left_Type_Attribute
+           | Iir_Kind_Right_Type_Attribute
+           | Iir_Kind_High_Type_Attribute
+           | Iir_Kind_Low_Type_Attribute
+           | Iir_Kind_Ascending_Type_Attribute
+           | Iir_Kind_Image_Attribute
+           | Iir_Kind_Value_Attribute
+           | Iir_Kind_Pos_Attribute
+           | Iir_Kind_Val_Attribute
+           | Iir_Kind_Succ_Attribute
+           | Iir_Kind_Pred_Attribute
+           | Iir_Kind_Leftof_Attribute
+           | Iir_Kind_Rightof_Attribute
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute
+           | Iir_Kind_Simple_Name_Attribute
+           | Iir_Kind_Instance_Name_Attribute
+           | Iir_Kind_Path_Name_Attribute
+           | Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Base_Name;
+
+   function Has_Interface_Declaration_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Interface_Declaration_Chain;
+
+   function Has_Subprogram_Specification (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Subprogram_Specification;
+
+   function Has_Sequential_Statement_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_If_Statement
+           | Iir_Kind_Elsif =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Sequential_Statement_Chain;
+
+   function Has_Subprogram_Body (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Subprogram_Body;
+
+   function Has_Overload_Number (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Overload_Number;
+
+   function Has_Subprogram_Depth (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Subprogram_Depth;
+
+   function Has_Subprogram_Hash (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Subprogram_Hash;
+
+   function Has_Impure_Depth (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Impure_Depth;
+
+   function Has_Return_Type (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Return_Type;
+
+   function Has_Implicit_Definition (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Implicit_Definition;
+
+   function Has_Type_Reference (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Type_Reference;
+
+   function Has_Default_Value (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Default_Value;
+
+   function Has_Deferred_Declaration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Constant_Declaration;
+   end Has_Deferred_Declaration;
+
+   function Has_Deferred_Declaration_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Constant_Declaration;
+   end Has_Deferred_Declaration_Flag;
+
+   function Has_Shared_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Variable_Declaration;
+   end Has_Shared_Flag;
+
+   function Has_Design_Unit (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Body
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Design_Unit;
+
+   function Has_Block_Statement (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Guard_Signal_Declaration;
+   end Has_Block_Statement;
+
+   function Has_Signal_Driver (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Signal_Declaration;
+   end Has_Signal_Driver;
+
+   function Has_Declaration_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Block_Configuration
+           | Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Protected_Type_Body
+           | Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Body
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Declaration_Chain;
+
+   function Has_File_Logical_Name (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_File_Declaration;
+   end Has_File_Logical_Name;
+
+   function Has_File_Open_Kind (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_File_Declaration;
+   end Has_File_Open_Kind;
+
+   function Has_Element_Position (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Record_Element_Constraint
+           | Iir_Kind_Element_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Element_Position;
+
+   function Has_Element_Declaration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Record_Element_Constraint;
+   end Has_Element_Declaration;
+
+   function Has_Selected_Element (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Selected_Element;
+   end Has_Selected_Element;
+
+   function Has_Use_Clause_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Use_Clause;
+   end Has_Use_Clause_Chain;
+
+   function Has_Selected_Name (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Use_Clause;
+   end Has_Selected_Name;
+
+   function Has_Type_Declarator (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Incomplete_Type_Definition
+           | Iir_Kind_File_Type_Definition
+           | Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Access_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Floating_Type_Definition
+           | Iir_Kind_Physical_Type_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Type_Declarator;
+
+   function Has_Enumeration_Literal_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Enumeration_Type_Definition;
+   end Has_Enumeration_Literal_List;
+
+   function Has_Entity_Class_Entry_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Group_Template_Declaration;
+   end Has_Entity_Class_Entry_Chain;
+
+   function Has_Group_Constituent_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Group_Declaration;
+   end Has_Group_Constituent_List;
+
+   function Has_Unit_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Physical_Type_Definition;
+   end Has_Unit_Chain;
+
+   function Has_Primary_Unit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Physical_Type_Definition;
+   end Has_Primary_Unit;
+
+   function Has_Identifier (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Design_Unit
+           | Iir_Kind_Library_Clause
+           | Iir_Kind_Record_Element_Constraint
+           | Iir_Kind_Record_Element_Resolution
+           | Iir_Kind_Protected_Type_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_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Body
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Library_Declaration
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Group_Template_Declaration
+           | Iir_Kind_Group_Declaration
+           | Iir_Kind_Element_Declaration
+           | Iir_Kind_Non_Object_Alias_Declaration
+           | Iir_Kind_Psl_Declaration
+           | Iir_Kind_Terminal_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Default_Clock
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_Component_Instantiation_Statement
+           | Iir_Kind_Simple_Simultaneous_Statement
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Null_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement
+           | Iir_Kind_Wait_Statement
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_Procedure_Call_Statement
+           | Iir_Kind_If_Statement
+           | Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Operator_Symbol
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Identifier;
+
+   function Has_Label (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Default_Clock
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_Component_Instantiation_Statement
+           | Iir_Kind_Simple_Simultaneous_Statement
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Null_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement
+           | Iir_Kind_Wait_Statement
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_Procedure_Call_Statement
+           | Iir_Kind_If_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Label;
+
+   function Has_Visible_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Record_Element_Constraint
+           | Iir_Kind_Type_Declaration
+           | Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Nature_Declaration
+           | Iir_Kind_Subnature_Declaration
+           | Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Library_Declaration
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Group_Template_Declaration
+           | Iir_Kind_Group_Declaration
+           | Iir_Kind_Element_Declaration
+           | Iir_Kind_Non_Object_Alias_Declaration
+           | Iir_Kind_Psl_Declaration
+           | Iir_Kind_Terminal_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_Component_Instantiation_Statement
+           | Iir_Kind_Simple_Simultaneous_Statement
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Null_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement
+           | Iir_Kind_Wait_Statement
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_Procedure_Call_Statement
+           | Iir_Kind_If_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Visible_Flag;
+
+   function Has_Range_Constraint (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Range_Constraint;
+
+   function Has_Direction (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Range_Expression;
+   end Has_Direction;
+
+   function Has_Left_Limit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Range_Expression;
+   end Has_Left_Limit;
+
+   function Has_Right_Limit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Range_Expression;
+   end Has_Right_Limit;
+
+   function Has_Base_Type (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Incomplete_Type_Definition
+           | Iir_Kind_File_Type_Definition
+           | Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Access_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Floating_Type_Definition
+           | Iir_Kind_Physical_Type_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Base_Type;
+
+   function Has_Resolution_Indication (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Array_Element_Resolution
+           | Iir_Kind_Record_Element_Resolution
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Resolution_Indication;
+
+   function Has_Record_Element_Resolution_Chain (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Record_Resolution;
+   end Has_Record_Element_Resolution_Chain;
+
+   function Has_Tolerance (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Subtype_Definition
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Simple_Simultaneous_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Tolerance;
+
+   function Has_Plus_Terminal (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Plus_Terminal;
+
+   function Has_Minus_Terminal (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Minus_Terminal;
+
+   function Has_Simultaneous_Left (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Simple_Simultaneous_Statement;
+   end Has_Simultaneous_Left;
+
+   function Has_Simultaneous_Right (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Simple_Simultaneous_Statement;
+   end Has_Simultaneous_Right;
+
+   function Has_Text_File_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_File_Type_Definition;
+   end Has_Text_File_Flag;
+
+   function Has_Only_Characters_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Enumeration_Type_Definition;
+   end Has_Only_Characters_Flag;
+
+   function Has_Type_Staticness (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Incomplete_Type_Definition
+           | Iir_Kind_File_Type_Definition
+           | Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Access_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Floating_Type_Definition
+           | Iir_Kind_Physical_Type_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Type_Staticness;
+
+   function Has_Constraint_State (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Constraint_State;
+
+   function Has_Index_Subtype_List (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Index_Subtype_List;
+
+   function Has_Index_Subtype_Definition_List (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Array_Type_Definition;
+   end Has_Index_Subtype_Definition_List;
+
+   function Has_Element_Subtype_Indication (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Array_Type_Definition;
+   end Has_Element_Subtype_Indication;
+
+   function Has_Element_Subtype (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Element_Subtype;
+
+   function Has_Index_Constraint_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Array_Subtype_Definition;
+   end Has_Index_Constraint_List;
+
+   function Has_Array_Element_Constraint (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Array_Subtype_Definition;
+   end Has_Array_Element_Constraint;
+
+   function Has_Elements_Declaration_List (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Record_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Elements_Declaration_List;
+
+   function Has_Designated_Type (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Access_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Designated_Type;
+
+   function Has_Designated_Subtype_Indication (K : Iir_Kind)
+      return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Access_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Designated_Subtype_Indication;
+
+   function Has_Index_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Indexed_Name;
+   end Has_Index_List;
+
+   function Has_Reference (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Scalar_Nature_Definition;
+   end Has_Reference;
+
+   function Has_Nature_Declarator (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Scalar_Nature_Definition;
+   end Has_Nature_Declarator;
+
+   function Has_Across_Type (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Scalar_Nature_Definition;
+   end Has_Across_Type;
+
+   function Has_Through_Type (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Scalar_Nature_Definition;
+   end Has_Through_Type;
+
+   function Has_Target (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Variable_Assignment_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Target;
+
+   function Has_Waveform_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Conditional_Waveform
+           | Iir_Kind_Signal_Assignment_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Waveform_Chain;
+
+   function Has_Guard (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Guard;
+
+   function Has_Delay_Mechanism (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Signal_Assignment_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Delay_Mechanism;
+
+   function Has_Reject_Time_Expression (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Signal_Assignment_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Reject_Time_Expression;
+
+   function Has_Sensitivity_List (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Wait_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Sensitivity_List;
+
+   function Has_Process_Origin (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Process_Origin;
+
+   function Has_Condition_Clause (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Wait_Statement;
+   end Has_Condition_Clause;
+
+   function Has_Timeout_Clause (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Wait_Statement;
+   end Has_Timeout_Clause;
+
+   function Has_Postponed_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Postponed_Flag;
+
+   function Has_Callees_List (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Callees_List;
+
+   function Has_Passive_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Passive_Flag;
+
+   function Has_Resolution_Function_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Function_Declaration;
+   end Has_Resolution_Function_Flag;
+
+   function Has_Wait_State (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Wait_State;
+
+   function Has_All_Sensitized_State (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_All_Sensitized_State;
+
+   function Has_Seen_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Seen_Flag;
+
+   function Has_Pure_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Pure_Flag;
+
+   function Has_Foreign_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Architecture_Body
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Foreign_Flag;
+
+   function Has_Resolved_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Incomplete_Type_Definition
+           | Iir_Kind_File_Type_Definition
+           | Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Access_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Floating_Type_Definition
+           | Iir_Kind_Physical_Type_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Resolved_Flag;
+
+   function Has_Signal_Type_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Access_Type_Definition
+           | Iir_Kind_Incomplete_Type_Definition
+           | Iir_Kind_File_Type_Definition
+           | Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Access_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Floating_Type_Definition
+           | Iir_Kind_Physical_Type_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Signal_Type_Flag;
+
+   function Has_Has_Signal_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Incomplete_Type_Definition
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Enumeration_Type_Definition
+           | Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Floating_Type_Definition
+           | Iir_Kind_Physical_Type_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Signal_Flag;
+
+   function Has_Purity_State (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Procedure_Declaration;
+   end Has_Purity_State;
+
+   function Has_Elab_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Design_File
+           | Iir_Kind_Design_Unit =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Elab_Flag;
+
+   function Has_Index_Constraint_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Array_Type_Definition
+           | Iir_Kind_Array_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Index_Constraint_Flag;
+
+   function Has_Assertion_Condition (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Assertion_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Assertion_Condition;
+
+   function Has_Report_Expression (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Report_Expression;
+
+   function Has_Severity_Expression (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Severity_Expression;
+
+   function Has_Instantiated_Unit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Component_Instantiation_Statement;
+   end Has_Instantiated_Unit;
+
+   function Has_Generic_Map_Aspect_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Block_Header
+           | Iir_Kind_Binding_Indication
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Header
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Component_Instantiation_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Generic_Map_Aspect_Chain;
+
+   function Has_Port_Map_Aspect_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Block_Header
+           | Iir_Kind_Binding_Indication
+           | Iir_Kind_Component_Instantiation_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Port_Map_Aspect_Chain;
+
+   function Has_Configuration_Name (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Entity_Aspect_Configuration;
+   end Has_Configuration_Name;
+
+   function Has_Component_Configuration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Component_Instantiation_Statement;
+   end Has_Component_Configuration;
+
+   function Has_Configuration_Specification (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Component_Instantiation_Statement;
+   end Has_Configuration_Specification;
+
+   function Has_Default_Binding_Indication (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Component_Instantiation_Statement;
+   end Has_Default_Binding_Indication;
+
+   function Has_Default_Configuration_Declaration (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Architecture_Body;
+   end Has_Default_Configuration_Declaration;
+
+   function Has_Expression (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Attribute_Specification
+           | Iir_Kind_Disconnection_Specification
+           | Iir_Kind_Parenthesis_Expression
+           | Iir_Kind_Qualified_Expression
+           | Iir_Kind_Type_Conversion
+           | Iir_Kind_Allocator_By_Expression
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_Case_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Expression;
+
+   function Has_Allocator_Designated_Type (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Allocator_By_Expression
+           | Iir_Kind_Allocator_By_Subtype =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Allocator_Designated_Type;
+
+   function Has_Selected_Waveform_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Concurrent_Selected_Signal_Assignment;
+   end Has_Selected_Waveform_Chain;
+
+   function Has_Conditional_Waveform_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Concurrent_Conditional_Signal_Assignment;
+   end Has_Conditional_Waveform_Chain;
+
+   function Has_Guard_Expression (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Guard_Signal_Declaration;
+   end Has_Guard_Expression;
+
+   function Has_Guard_Decl (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Block_Statement;
+   end Has_Guard_Decl;
+
+   function Has_Guard_Sensitivity_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Guard_Signal_Declaration;
+   end Has_Guard_Sensitivity_List;
+
+   function Has_Block_Block_Configuration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Block_Statement;
+   end Has_Block_Block_Configuration;
+
+   function Has_Package_Header (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Package_Declaration;
+   end Has_Package_Header;
+
+   function Has_Block_Header (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Block_Statement;
+   end Has_Block_Header;
+
+   function Has_Uninstantiated_Package_Name (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Interface_Package_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Uninstantiated_Package_Name;
+
+   function Has_Generate_Block_Configuration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Generate_Statement;
+   end Has_Generate_Block_Configuration;
+
+   function Has_Generation_Scheme (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Generate_Statement;
+   end Has_Generation_Scheme;
+
+   function Has_Condition (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Conditional_Waveform
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_If_Statement
+           | Iir_Kind_Elsif =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Condition;
+
+   function Has_Else_Clause (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_If_Statement
+           | Iir_Kind_Elsif =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Else_Clause;
+
+   function Has_Parameter_Specification (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_For_Loop_Statement;
+   end Has_Parameter_Specification;
+
+   function Has_Parent (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Design_File
+           | Iir_Kind_Design_Unit
+           | Iir_Kind_Library_Clause
+           | Iir_Kind_Use_Clause
+           | Iir_Kind_Choice_By_Others
+           | Iir_Kind_Choice_By_Expression
+           | Iir_Kind_Choice_By_Range
+           | Iir_Kind_Choice_By_None
+           | Iir_Kind_Choice_By_Name
+           | Iir_Kind_Block_Configuration
+           | Iir_Kind_Component_Configuration
+           | Iir_Kind_Record_Element_Constraint
+           | Iir_Kind_Attribute_Specification
+           | Iir_Kind_Disconnection_Specification
+           | Iir_Kind_Configuration_Specification
+           | Iir_Kind_Protected_Type_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_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Body
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Group_Template_Declaration
+           | Iir_Kind_Group_Declaration
+           | Iir_Kind_Non_Object_Alias_Declaration
+           | Iir_Kind_Psl_Declaration
+           | Iir_Kind_Terminal_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Interface_Package_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Concurrent_Conditional_Signal_Assignment
+           | Iir_Kind_Concurrent_Selected_Signal_Assignment
+           | Iir_Kind_Concurrent_Assertion_Statement
+           | Iir_Kind_Psl_Default_Clock
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement
+           | Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_Component_Instantiation_Statement
+           | Iir_Kind_Simple_Simultaneous_Statement
+           | Iir_Kind_Signal_Assignment_Statement
+           | Iir_Kind_Null_Statement
+           | Iir_Kind_Assertion_Statement
+           | Iir_Kind_Report_Statement
+           | Iir_Kind_Wait_Statement
+           | Iir_Kind_Variable_Assignment_Statement
+           | Iir_Kind_Return_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_Procedure_Call_Statement
+           | Iir_Kind_If_Statement
+           | Iir_Kind_Elsif =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Parent;
+
+   function Has_Loop_Label (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Next_Statement
+           | Iir_Kind_Exit_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Loop_Label;
+
+   function Has_Component_Name (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Component_Configuration
+           | Iir_Kind_Configuration_Specification =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Component_Name;
+
+   function Has_Instantiation_List (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Component_Configuration
+           | Iir_Kind_Configuration_Specification =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Instantiation_List;
+
+   function Has_Entity_Aspect (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Binding_Indication;
+   end Has_Entity_Aspect;
+
+   function Has_Default_Entity_Aspect (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Binding_Indication;
+   end Has_Default_Entity_Aspect;
+
+   function Has_Default_Generic_Map_Aspect_Chain (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Binding_Indication;
+   end Has_Default_Generic_Map_Aspect_Chain;
+
+   function Has_Default_Port_Map_Aspect_Chain (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Binding_Indication;
+   end Has_Default_Port_Map_Aspect_Chain;
+
+   function Has_Binding_Indication (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Component_Configuration
+           | Iir_Kind_Configuration_Specification =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Binding_Indication;
+
+   function Has_Named_Entity (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Operator_Symbol
+           | Iir_Kind_Selected_By_All_Name
+           | Iir_Kind_Parenthesis_Name
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Named_Entity;
+
+   function Has_Alias_Declaration (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Operator_Symbol =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Alias_Declaration;
+
+   function Has_Expr_Staticness (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Error
+           | Iir_Kind_Integer_Literal
+           | Iir_Kind_Floating_Point_Literal
+           | Iir_Kind_Null_Literal
+           | Iir_Kind_String_Literal
+           | Iir_Kind_Physical_Int_Literal
+           | Iir_Kind_Physical_Fp_Literal
+           | Iir_Kind_Bit_String_Literal
+           | Iir_Kind_Simple_Aggregate
+           | Iir_Kind_Overflow_Literal
+           | Iir_Kind_Attribute_Value
+           | Iir_Kind_Range_Expression
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Identity_Operator
+           | Iir_Kind_Negation_Operator
+           | Iir_Kind_Absolute_Operator
+           | Iir_Kind_Not_Operator
+           | Iir_Kind_Condition_Operator
+           | Iir_Kind_Reduction_And_Operator
+           | Iir_Kind_Reduction_Or_Operator
+           | Iir_Kind_Reduction_Nand_Operator
+           | Iir_Kind_Reduction_Nor_Operator
+           | Iir_Kind_Reduction_Xor_Operator
+           | Iir_Kind_Reduction_Xnor_Operator
+           | Iir_Kind_And_Operator
+           | Iir_Kind_Or_Operator
+           | Iir_Kind_Nand_Operator
+           | Iir_Kind_Nor_Operator
+           | Iir_Kind_Xor_Operator
+           | Iir_Kind_Xnor_Operator
+           | Iir_Kind_Equality_Operator
+           | Iir_Kind_Inequality_Operator
+           | Iir_Kind_Less_Than_Operator
+           | Iir_Kind_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Greater_Than_Operator
+           | Iir_Kind_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Equality_Operator
+           | Iir_Kind_Match_Inequality_Operator
+           | Iir_Kind_Match_Less_Than_Operator
+           | Iir_Kind_Match_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Greater_Than_Operator
+           | Iir_Kind_Match_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Sll_Operator
+           | Iir_Kind_Sla_Operator
+           | Iir_Kind_Srl_Operator
+           | Iir_Kind_Sra_Operator
+           | Iir_Kind_Rol_Operator
+           | Iir_Kind_Ror_Operator
+           | Iir_Kind_Addition_Operator
+           | Iir_Kind_Substraction_Operator
+           | Iir_Kind_Concatenation_Operator
+           | Iir_Kind_Multiplication_Operator
+           | Iir_Kind_Division_Operator
+           | Iir_Kind_Modulus_Operator
+           | Iir_Kind_Remainder_Operator
+           | Iir_Kind_Exponentiation_Operator
+           | Iir_Kind_Function_Call
+           | Iir_Kind_Aggregate
+           | Iir_Kind_Parenthesis_Expression
+           | Iir_Kind_Qualified_Expression
+           | Iir_Kind_Type_Conversion
+           | Iir_Kind_Allocator_By_Expression
+           | Iir_Kind_Allocator_By_Subtype
+           | Iir_Kind_Selected_Element
+           | Iir_Kind_Dereference
+           | Iir_Kind_Implicit_Dereference
+           | Iir_Kind_Slice_Name
+           | Iir_Kind_Indexed_Name
+           | Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Selected_By_All_Name
+           | Iir_Kind_Left_Type_Attribute
+           | Iir_Kind_Right_Type_Attribute
+           | Iir_Kind_High_Type_Attribute
+           | Iir_Kind_Low_Type_Attribute
+           | Iir_Kind_Ascending_Type_Attribute
+           | Iir_Kind_Image_Attribute
+           | Iir_Kind_Value_Attribute
+           | Iir_Kind_Pos_Attribute
+           | Iir_Kind_Val_Attribute
+           | Iir_Kind_Succ_Attribute
+           | Iir_Kind_Pred_Attribute
+           | Iir_Kind_Leftof_Attribute
+           | Iir_Kind_Rightof_Attribute
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute
+           | Iir_Kind_Event_Attribute
+           | Iir_Kind_Active_Attribute
+           | Iir_Kind_Last_Event_Attribute
+           | Iir_Kind_Last_Active_Attribute
+           | Iir_Kind_Last_Value_Attribute
+           | Iir_Kind_Driving_Attribute
+           | Iir_Kind_Driving_Value_Attribute
+           | Iir_Kind_Simple_Name_Attribute
+           | Iir_Kind_Instance_Name_Attribute
+           | Iir_Kind_Path_Name_Attribute
+           | Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Expr_Staticness;
+
+   function Has_Error_Origin (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Error;
+   end Has_Error_Origin;
+
+   function Has_Operand (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Identity_Operator
+           | Iir_Kind_Negation_Operator
+           | Iir_Kind_Absolute_Operator
+           | Iir_Kind_Not_Operator
+           | Iir_Kind_Condition_Operator
+           | Iir_Kind_Reduction_And_Operator
+           | Iir_Kind_Reduction_Or_Operator
+           | Iir_Kind_Reduction_Nand_Operator
+           | Iir_Kind_Reduction_Nor_Operator
+           | Iir_Kind_Reduction_Xor_Operator
+           | Iir_Kind_Reduction_Xnor_Operator =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Operand;
+
+   function Has_Left (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_And_Operator
+           | Iir_Kind_Or_Operator
+           | Iir_Kind_Nand_Operator
+           | Iir_Kind_Nor_Operator
+           | Iir_Kind_Xor_Operator
+           | Iir_Kind_Xnor_Operator
+           | Iir_Kind_Equality_Operator
+           | Iir_Kind_Inequality_Operator
+           | Iir_Kind_Less_Than_Operator
+           | Iir_Kind_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Greater_Than_Operator
+           | Iir_Kind_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Equality_Operator
+           | Iir_Kind_Match_Inequality_Operator
+           | Iir_Kind_Match_Less_Than_Operator
+           | Iir_Kind_Match_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Greater_Than_Operator
+           | Iir_Kind_Match_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Sll_Operator
+           | Iir_Kind_Sla_Operator
+           | Iir_Kind_Srl_Operator
+           | Iir_Kind_Sra_Operator
+           | Iir_Kind_Rol_Operator
+           | Iir_Kind_Ror_Operator
+           | Iir_Kind_Addition_Operator
+           | Iir_Kind_Substraction_Operator
+           | Iir_Kind_Concatenation_Operator
+           | Iir_Kind_Multiplication_Operator
+           | Iir_Kind_Division_Operator
+           | Iir_Kind_Modulus_Operator
+           | Iir_Kind_Remainder_Operator
+           | Iir_Kind_Exponentiation_Operator =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Left;
+
+   function Has_Right (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_And_Operator
+           | Iir_Kind_Or_Operator
+           | Iir_Kind_Nand_Operator
+           | Iir_Kind_Nor_Operator
+           | Iir_Kind_Xor_Operator
+           | Iir_Kind_Xnor_Operator
+           | Iir_Kind_Equality_Operator
+           | Iir_Kind_Inequality_Operator
+           | Iir_Kind_Less_Than_Operator
+           | Iir_Kind_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Greater_Than_Operator
+           | Iir_Kind_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Equality_Operator
+           | Iir_Kind_Match_Inequality_Operator
+           | Iir_Kind_Match_Less_Than_Operator
+           | Iir_Kind_Match_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Greater_Than_Operator
+           | Iir_Kind_Match_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Sll_Operator
+           | Iir_Kind_Sla_Operator
+           | Iir_Kind_Srl_Operator
+           | Iir_Kind_Sra_Operator
+           | Iir_Kind_Rol_Operator
+           | Iir_Kind_Ror_Operator
+           | Iir_Kind_Addition_Operator
+           | Iir_Kind_Substraction_Operator
+           | Iir_Kind_Concatenation_Operator
+           | Iir_Kind_Multiplication_Operator
+           | Iir_Kind_Division_Operator
+           | Iir_Kind_Modulus_Operator
+           | Iir_Kind_Remainder_Operator
+           | Iir_Kind_Exponentiation_Operator =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Right;
+
+   function Has_Unit_Name (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Physical_Int_Literal
+           | Iir_Kind_Physical_Fp_Literal =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Unit_Name;
+
+   function Has_Name (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Non_Object_Alias_Declaration
+           | Iir_Kind_Object_Alias_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Name;
+
+   function Has_Group_Template_Name (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Group_Declaration;
+   end Has_Group_Template_Name;
+
+   function Has_Name_Staticness (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Attribute_Value
+           | Iir_Kind_Unit_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration
+           | Iir_Kind_Function_Call
+           | Iir_Kind_Selected_Element
+           | Iir_Kind_Dereference
+           | Iir_Kind_Implicit_Dereference
+           | Iir_Kind_Slice_Name
+           | Iir_Kind_Indexed_Name
+           | Iir_Kind_Character_Literal
+           | Iir_Kind_Simple_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Left_Type_Attribute
+           | Iir_Kind_Right_Type_Attribute
+           | Iir_Kind_High_Type_Attribute
+           | Iir_Kind_Low_Type_Attribute
+           | Iir_Kind_Ascending_Type_Attribute
+           | Iir_Kind_Image_Attribute
+           | Iir_Kind_Value_Attribute
+           | Iir_Kind_Pos_Attribute
+           | Iir_Kind_Val_Attribute
+           | Iir_Kind_Succ_Attribute
+           | Iir_Kind_Pred_Attribute
+           | Iir_Kind_Leftof_Attribute
+           | Iir_Kind_Rightof_Attribute
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute
+           | Iir_Kind_Event_Attribute
+           | Iir_Kind_Active_Attribute
+           | Iir_Kind_Last_Event_Attribute
+           | Iir_Kind_Last_Active_Attribute
+           | Iir_Kind_Last_Value_Attribute
+           | Iir_Kind_Driving_Attribute
+           | Iir_Kind_Driving_Value_Attribute
+           | Iir_Kind_Simple_Name_Attribute
+           | Iir_Kind_Instance_Name_Attribute
+           | Iir_Kind_Path_Name_Attribute
+           | Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Name_Staticness;
+
+   function Has_Prefix (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Procedure_Call
+           | Iir_Kind_Function_Call
+           | Iir_Kind_Selected_Element
+           | Iir_Kind_Dereference
+           | Iir_Kind_Implicit_Dereference
+           | Iir_Kind_Slice_Name
+           | Iir_Kind_Indexed_Name
+           | Iir_Kind_Selected_Name
+           | Iir_Kind_Selected_By_All_Name
+           | Iir_Kind_Parenthesis_Name
+           | Iir_Kind_Base_Attribute
+           | Iir_Kind_Left_Type_Attribute
+           | Iir_Kind_Right_Type_Attribute
+           | Iir_Kind_High_Type_Attribute
+           | Iir_Kind_Low_Type_Attribute
+           | Iir_Kind_Ascending_Type_Attribute
+           | Iir_Kind_Image_Attribute
+           | Iir_Kind_Value_Attribute
+           | Iir_Kind_Pos_Attribute
+           | Iir_Kind_Val_Attribute
+           | Iir_Kind_Succ_Attribute
+           | Iir_Kind_Pred_Attribute
+           | Iir_Kind_Leftof_Attribute
+           | Iir_Kind_Rightof_Attribute
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute
+           | Iir_Kind_Event_Attribute
+           | Iir_Kind_Active_Attribute
+           | Iir_Kind_Last_Event_Attribute
+           | Iir_Kind_Last_Active_Attribute
+           | Iir_Kind_Last_Value_Attribute
+           | Iir_Kind_Driving_Attribute
+           | Iir_Kind_Driving_Value_Attribute
+           | Iir_Kind_Simple_Name_Attribute
+           | Iir_Kind_Instance_Name_Attribute
+           | Iir_Kind_Path_Name_Attribute
+           | Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute
+           | Iir_Kind_Attribute_Name =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Prefix;
+
+   function Has_Signature_Prefix (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Signature;
+   end Has_Signature_Prefix;
+
+   function Has_Slice_Subtype (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Slice_Name;
+   end Has_Slice_Subtype;
+
+   function Has_Suffix (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Slice_Name;
+   end Has_Suffix;
+
+   function Has_Index_Subtype (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Index_Subtype;
+
+   function Has_Parameter (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Image_Attribute
+           | Iir_Kind_Value_Attribute
+           | Iir_Kind_Pos_Attribute
+           | Iir_Kind_Val_Attribute
+           | Iir_Kind_Succ_Attribute
+           | Iir_Kind_Pred_Attribute
+           | Iir_Kind_Leftof_Attribute
+           | Iir_Kind_Rightof_Attribute
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute
+           | Iir_Kind_Left_Array_Attribute
+           | Iir_Kind_Right_Array_Attribute
+           | Iir_Kind_High_Array_Attribute
+           | Iir_Kind_Low_Array_Attribute
+           | Iir_Kind_Length_Array_Attribute
+           | Iir_Kind_Ascending_Array_Attribute
+           | Iir_Kind_Range_Array_Attribute
+           | Iir_Kind_Reverse_Range_Array_Attribute =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Parameter;
+
+   function Has_Actual_Type (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Association_Element_By_Individual;
+   end Has_Actual_Type;
+
+   function Has_Associated_Interface (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Association_Element_Package;
+   end Has_Associated_Interface;
+
+   function Has_Association_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Parenthesis_Name;
+   end Has_Association_Chain;
+
+   function Has_Individual_Association_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Association_Element_By_Individual;
+   end Has_Individual_Association_Chain;
+
+   function Has_Aggregate_Info (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate;
+   end Has_Aggregate_Info;
+
+   function Has_Sub_Aggregate_Info (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Sub_Aggregate_Info;
+
+   function Has_Aggr_Dynamic_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Aggr_Dynamic_Flag;
+
+   function Has_Aggr_Min_Length (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Aggr_Min_Length;
+
+   function Has_Aggr_Low_Limit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Aggr_Low_Limit;
+
+   function Has_Aggr_High_Limit (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Aggr_High_Limit;
+
+   function Has_Aggr_Others_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Aggr_Others_Flag;
+
+   function Has_Aggr_Named_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate_Info;
+   end Has_Aggr_Named_Flag;
+
+   function Has_Value_Staticness (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate;
+   end Has_Value_Staticness;
+
+   function Has_Association_Choices_Chain (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Aggregate;
+   end Has_Association_Choices_Chain;
+
+   function Has_Case_Statement_Alternative_Chain (K : Iir_Kind)
+      return Boolean is
+   begin
+      return K = Iir_Kind_Case_Statement;
+   end Has_Case_Statement_Alternative_Chain;
+
+   function Has_Choice_Staticness (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Choice_By_Expression
+           | Iir_Kind_Choice_By_Range =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Choice_Staticness;
+
+   function Has_Procedure_Call (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Concurrent_Procedure_Call_Statement
+           | Iir_Kind_Procedure_Call_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Procedure_Call;
+
+   function Has_Implementation (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Procedure_Call
+           | Iir_Kind_Identity_Operator
+           | Iir_Kind_Negation_Operator
+           | Iir_Kind_Absolute_Operator
+           | Iir_Kind_Not_Operator
+           | Iir_Kind_Condition_Operator
+           | Iir_Kind_Reduction_And_Operator
+           | Iir_Kind_Reduction_Or_Operator
+           | Iir_Kind_Reduction_Nand_Operator
+           | Iir_Kind_Reduction_Nor_Operator
+           | Iir_Kind_Reduction_Xor_Operator
+           | Iir_Kind_Reduction_Xnor_Operator
+           | Iir_Kind_And_Operator
+           | Iir_Kind_Or_Operator
+           | Iir_Kind_Nand_Operator
+           | Iir_Kind_Nor_Operator
+           | Iir_Kind_Xor_Operator
+           | Iir_Kind_Xnor_Operator
+           | Iir_Kind_Equality_Operator
+           | Iir_Kind_Inequality_Operator
+           | Iir_Kind_Less_Than_Operator
+           | Iir_Kind_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Greater_Than_Operator
+           | Iir_Kind_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Equality_Operator
+           | Iir_Kind_Match_Inequality_Operator
+           | Iir_Kind_Match_Less_Than_Operator
+           | Iir_Kind_Match_Less_Than_Or_Equal_Operator
+           | Iir_Kind_Match_Greater_Than_Operator
+           | Iir_Kind_Match_Greater_Than_Or_Equal_Operator
+           | Iir_Kind_Sll_Operator
+           | Iir_Kind_Sla_Operator
+           | Iir_Kind_Srl_Operator
+           | Iir_Kind_Sra_Operator
+           | Iir_Kind_Rol_Operator
+           | Iir_Kind_Ror_Operator
+           | Iir_Kind_Addition_Operator
+           | Iir_Kind_Substraction_Operator
+           | Iir_Kind_Concatenation_Operator
+           | Iir_Kind_Multiplication_Operator
+           | Iir_Kind_Division_Operator
+           | Iir_Kind_Modulus_Operator
+           | Iir_Kind_Remainder_Operator
+           | Iir_Kind_Exponentiation_Operator
+           | Iir_Kind_Function_Call =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Implementation;
+
+   function Has_Parameter_Association_Chain (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Procedure_Call
+           | Iir_Kind_Function_Call =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Parameter_Association_Chain;
+
+   function Has_Method_Object (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Procedure_Call
+           | Iir_Kind_Function_Call =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Method_Object;
+
+   function Has_Subtype_Type_Mark (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Array_Subtype_Definition
+           | Iir_Kind_Record_Subtype_Definition
+           | Iir_Kind_Access_Subtype_Definition
+           | Iir_Kind_Physical_Subtype_Definition
+           | Iir_Kind_Floating_Subtype_Definition
+           | Iir_Kind_Integer_Subtype_Definition
+           | Iir_Kind_Enumeration_Subtype_Definition
+           | Iir_Kind_Subtype_Definition =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Subtype_Type_Mark;
+
+   function Has_Type_Conversion_Subtype (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Type_Conversion;
+   end Has_Type_Conversion_Subtype;
+
+   function Has_Type_Mark (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Disconnection_Specification
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Qualified_Expression
+           | Iir_Kind_Type_Conversion =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Type_Mark;
+
+   function Has_File_Type_Mark (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_File_Type_Definition;
+   end Has_File_Type_Mark;
+
+   function Has_Return_Type_Mark (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Signature
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Return_Type_Mark;
+
+   function Has_Lexical_Layout (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Lexical_Layout;
+
+   function Has_Incomplete_Type_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Incomplete_Type_Definition;
+   end Has_Incomplete_Type_List;
+
+   function Has_Has_Disconnect_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Signal_Declaration
+           | Iir_Kind_Interface_Signal_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Disconnect_Flag;
+
+   function Has_Has_Active_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Delayed_Attribute
+           | Iir_Kind_Stable_Attribute
+           | Iir_Kind_Quiet_Attribute
+           | Iir_Kind_Transaction_Attribute =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Active_Flag;
+
+   function Has_Is_Within_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Enumeration_Literal
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_For_Loop_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Is_Within_Flag;
+
+   function Has_Type_Marks_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Signature;
+   end Has_Type_Marks_List;
+
+   function Has_Implicit_Alias_Flag (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Non_Object_Alias_Declaration;
+   end Has_Implicit_Alias_Flag;
+
+   function Has_Alias_Signature (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Non_Object_Alias_Declaration;
+   end Has_Alias_Signature;
+
+   function Has_Attribute_Signature (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Attribute_Name;
+   end Has_Attribute_Signature;
+
+   function Has_Overload_List (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Overload_List;
+   end Has_Overload_List;
+
+   function Has_Simple_Name_Identifier (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Simple_Name_Attribute;
+   end Has_Simple_Name_Identifier;
+
+   function Has_Simple_Name_Subtype (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Simple_Name_Attribute;
+   end Has_Simple_Name_Subtype;
+
+   function Has_Protected_Type_Body (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Protected_Type_Declaration;
+   end Has_Protected_Type_Body;
+
+   function Has_Protected_Type_Declaration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Protected_Type_Body;
+   end Has_Protected_Type_Declaration;
+
+   function Has_End_Location (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Design_Unit;
+   end Has_End_Location;
+
+   function Has_String_Id (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_String_Literal
+           | Iir_Kind_Bit_String_Literal =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_String_Id;
+
+   function Has_String_Length (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_String_Literal
+           | Iir_Kind_Bit_String_Literal =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_String_Length;
+
+   function Has_Use_Flag (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Type_Declaration
+           | Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Nature_Declaration
+           | Iir_Kind_Subnature_Declaration
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kind_Group_Template_Declaration
+           | Iir_Kind_Group_Declaration
+           | Iir_Kind_Non_Object_Alias_Declaration
+           | Iir_Kind_Psl_Declaration
+           | Iir_Kind_Terminal_Declaration
+           | Iir_Kind_Free_Quantity_Declaration
+           | Iir_Kind_Across_Quantity_Declaration
+           | Iir_Kind_Through_Quantity_Declaration
+           | Iir_Kind_Function_Declaration
+           | Iir_Kind_Implicit_Function_Declaration
+           | Iir_Kind_Implicit_Procedure_Declaration
+           | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Guard_Signal_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Use_Flag;
+
+   function Has_End_Has_Reserved_Id (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Physical_Type_Definition
+           | Iir_Kind_Protected_Type_Body
+           | Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Body
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_End_Has_Reserved_Id;
+
+   function Has_End_Has_Identifier (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Protected_Type_Declaration
+           | Iir_Kind_Record_Type_Definition
+           | Iir_Kind_Physical_Type_Definition
+           | Iir_Kind_Protected_Type_Body
+           | Iir_Kind_Package_Declaration
+           | Iir_Kind_Package_Instantiation_Declaration
+           | Iir_Kind_Package_Body
+           | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Entity_Declaration
+           | Iir_Kind_Architecture_Body
+           | Iir_Kind_Component_Declaration
+           | Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement
+           | Iir_Kind_Block_Statement
+           | Iir_Kind_Generate_Statement
+           | Iir_Kind_For_Loop_Statement
+           | Iir_Kind_While_Loop_Statement
+           | Iir_Kind_Case_Statement
+           | Iir_Kind_If_Statement
+           | Iir_Kind_Elsif =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_End_Has_Identifier;
+
+   function Has_End_Has_Postponed (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_End_Has_Postponed;
+
+   function Has_Has_Begin (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Entity_Declaration
+           | Iir_Kind_Generate_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Begin;
+
+   function Has_Has_Is (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Component_Declaration
+           | Iir_Kind_Sensitized_Process_Statement
+           | Iir_Kind_Process_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Is;
+
+   function Has_Has_Pure (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Function_Declaration;
+   end Has_Has_Pure;
+
+   function Has_Has_Body (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Function_Declaration
+           | Iir_Kind_Procedure_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Body;
+
+   function Has_Has_Identifier_List (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Library_Clause
+           | Iir_Kind_Element_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Has_Identifier_List;
+
+   function Has_Has_Mode (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_File_Declaration;
+   end Has_Has_Mode;
+
+   function Has_Is_Ref (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Subtype_Declaration
+           | Iir_Kind_Element_Declaration
+           | Iir_Kind_Object_Alias_Declaration
+           | Iir_Kind_File_Declaration
+           | Iir_Kind_Signal_Declaration
+           | Iir_Kind_Variable_Declaration
+           | Iir_Kind_Constant_Declaration
+           | Iir_Kind_Iterator_Declaration
+           | Iir_Kind_Interface_Constant_Declaration
+           | Iir_Kind_Interface_Variable_Declaration
+           | Iir_Kind_Interface_Signal_Declaration
+           | Iir_Kind_Interface_File_Declaration =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Is_Ref;
+
+   function Has_Psl_Property (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_Psl_Property;
+
+   function Has_Psl_Declaration (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Psl_Declaration;
+   end Has_Psl_Declaration;
+
+   function Has_Psl_Expression (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Psl_Expression;
+   end Has_Psl_Expression;
+
+   function Has_Psl_Boolean (K : Iir_Kind) return Boolean is
+   begin
+      return K = Iir_Kind_Psl_Default_Clock;
+   end Has_Psl_Boolean;
+
+   function Has_PSL_Clock (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Psl_Declaration
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_PSL_Clock;
+
+   function Has_PSL_NFA (K : Iir_Kind) return Boolean is
+   begin
+      case K is
+         when Iir_Kind_Psl_Declaration
+           | Iir_Kind_Psl_Assert_Statement
+           | Iir_Kind_Psl_Cover_Statement =>
+            return True;
+         when others =>
+            return False;
+      end case;
+   end Has_PSL_NFA;
+
+end Nodes_Meta;