+ --------------------------------
+ -- Node_Kind Membership Tests --
+ --------------------------------
+
+ -- The following functions allow a convenient notation for testing whether
+ -- a Node_Kind value matches any one of a list of possible values. In each
+ -- case True is returned if the given T argument is equal to any of the V
+ -- arguments. Note that there is a similar set of functions defined in
+ -- Atree where the first argument is a Node_Id whose Nkind field is tested.
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind) return Boolean;
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind;
+ V3 : Node_Kind) return Boolean;
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind;
+ V3 : Node_Kind;
+ V4 : Node_Kind) return Boolean;
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind;
+ V3 : Node_Kind;
+ V4 : Node_Kind;
+ V5 : Node_Kind) return Boolean;
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind;
+ V3 : Node_Kind;
+ V4 : Node_Kind;
+ V5 : Node_Kind;
+ V6 : Node_Kind) return Boolean;
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind;
+ V3 : Node_Kind;
+ V4 : Node_Kind;
+ V5 : Node_Kind;
+ V6 : Node_Kind;
+ V7 : Node_Kind) return Boolean;
+
+ function Nkind_In
+ (T : Node_Kind;
+ V1 : Node_Kind;
+ V2 : Node_Kind;
+ V3 : Node_Kind;
+ V4 : Node_Kind;
+ V5 : Node_Kind;
+ V6 : Node_Kind;
+ V7 : Node_Kind;
+ V8 : Node_Kind) return Boolean;
+
+ pragma Inline (Nkind_In);
+ -- Inline all above functions
+
+ -----------------------
+ -- Utility Functions --
+ -----------------------
+
+ function Pragma_Name (N : Node_Id) return Name_Id;
+ pragma Inline (Pragma_Name);
+ -- Convenient function to obtain Chars field of Pragma_Identifier
+
+ -----------------------------
+ -- Syntactic Parent Tables --
+ -----------------------------
+
+ -- These tables show for each node, and for each of the five fields,
+ -- whether the corresponding field is syntactic (True) or semantic (False).
+ -- Unused entries are also set to False.
+
+ subtype Field_Num is Natural range 1 .. 5;
+
+ Is_Syntactic_Field : constant array (Node_Kind, Field_Num) of Boolean := (
+
+ -- Following entries can be built automatically from the sinfo sources
+ -- using the makeisf utility (currently this program is in spitbol).
+
+ N_Identifier =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- Original_Discriminant (Node2-Sem)
+ 3 => False, -- unused
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Integer_Literal =>
+ (1 => False, -- unused
+ 2 => False, -- Original_Entity (Node2-Sem)
+ 3 => True, -- Intval (Uint3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Real_Literal =>
+ (1 => False, -- unused
+ 2 => False, -- Original_Entity (Node2-Sem)
+ 3 => True, -- Realval (Ureal3)
+ 4 => False, -- Corresponding_Integer_Value (Uint4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Character_Literal =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Char_Literal_Value (Uint2)
+ 3 => False, -- unused
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_String_Literal =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Strval (Str3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Pragma =>
+ (1 => False, -- Next_Pragma (Node1-Sem)
+ 2 => True, -- Pragma_Argument_Associations (List2)
+ 3 => True, -- Debug_Statement (Node3)
+ 4 => True, -- Pragma_Identifier (Node4)
+ 5 => False), -- Next_Rep_Item (Node5-Sem)
+
+ N_Pragma_Argument_Association =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Defining_Identifier =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- Next_Entity (Node2-Sem)
+ 3 => False, -- Scope (Node3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Full_Type_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Type_Definition (Node3)
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => False), -- unused
+
+ N_Subtype_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- Generic_Parent_Type (Node4-Sem)
+ 5 => True), -- Subtype_Indication (Node5)
+
+ N_Subtype_Indication =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Constraint (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Object_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- Handler_List_Entry (Node2-Sem)
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Object_Definition (Node4)
+ 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
+
+ N_Number_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Derived_Type_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Interface_List (List2)
+ 3 => True, -- Record_Extension_Part (Node3)
+ 4 => False, -- unused
+ 5 => True), -- Subtype_Indication (Node5)
+
+ N_Range_Constraint =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Range_Expression (Node4)
+ 5 => False), -- unused
+
+ N_Range =>
+ (1 => True, -- Low_Bound (Node1)
+ 2 => True, -- High_Bound (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Enumeration_Type_Definition =>
+ (1 => True, -- Literals (List1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- unused
+
+ N_Defining_Character_Literal =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- Next_Entity (Node2-Sem)
+ 3 => False, -- Scope (Node3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Signed_Integer_Type_Definition =>
+ (1 => True, -- Low_Bound (Node1)
+ 2 => True, -- High_Bound (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Modular_Type_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Floating_Point_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Digits_Expression (Node2)
+ 3 => False, -- unused
+ 4 => True, -- Real_Range_Specification (Node4)
+ 5 => False), -- unused
+
+ N_Real_Range_Specification =>
+ (1 => True, -- Low_Bound (Node1)
+ 2 => True, -- High_Bound (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Ordinary_Fixed_Point_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Delta_Expression (Node3)
+ 4 => True, -- Real_Range_Specification (Node4)
+ 5 => False), -- unused
+
+ N_Decimal_Fixed_Point_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Digits_Expression (Node2)
+ 3 => True, -- Delta_Expression (Node3)
+ 4 => True, -- Real_Range_Specification (Node4)
+ 5 => False), -- unused
+
+ N_Digits_Constraint =>
+ (1 => False, -- unused
+ 2 => True, -- Digits_Expression (Node2)
+ 3 => False, -- unused
+ 4 => True, -- Range_Constraint (Node4)
+ 5 => False), -- unused
+
+ N_Unconstrained_Array_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Subtype_Marks (List2)
+ 3 => False, -- unused
+ 4 => True, -- Component_Definition (Node4)
+ 5 => False), -- unused
+
+ N_Constrained_Array_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Discrete_Subtype_Definitions (List2)
+ 3 => False, -- unused
+ 4 => True, -- Component_Definition (Node4)
+ 5 => False), -- unused
+
+ N_Component_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Access_Definition (Node3)
+ 4 => False, -- unused
+ 5 => True), -- Subtype_Indication (Node5)
+
+ N_Discriminant_Specification =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => True), -- Discriminant_Type (Node5)
+
+ N_Index_Or_Discriminant_Constraint =>
+ (1 => True, -- Constraints (List1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Discriminant_Association =>
+ (1 => True, -- Selector_Names (List1)
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Record_Definition =>
+ (1 => True, -- Component_List (Node1)
+ 2 => True, -- Interface_List (List2)
+ 3 => False, -- unused
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- unused
+
+ N_Component_List =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Component_Items (List3)
+ 4 => True, -- Variant_Part (Node4)
+ 5 => False), -- unused
+
+ N_Component_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Component_Definition (Node4)
+ 5 => False), -- unused
+
+ N_Variant_Part =>
+ (1 => True, -- Variants (List1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Variant =>
+ (1 => True, -- Component_List (Node1)
+ 2 => False, -- Enclosing_Variant (Node2-Sem)
+ 3 => False, -- Present_Expr (Uint3-Sem)
+ 4 => True, -- Discrete_Choices (List4)
+ 5 => False), -- Dcheck_Function (Node5-Sem)
+
+ N_Others_Choice =>
+ (1 => False, -- Others_Discrete_Choices (List1-Sem)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Access_To_Object_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => True), -- Subtype_Indication (Node5)
+
+ N_Access_Function_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => True, -- Result_Definition (Node4)
+ 5 => False), -- unused
+
+ N_Access_Procedure_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Access_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Access_To_Subprogram_Definition (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- unused
+
+ N_Incomplete_Type_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => False), -- unused
+
+ N_Explicit_Dereference =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Prefix (Node3)
+ 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Indexed_Component =>
+ (1 => True, -- Expressions (List1)
+ 2 => False, -- unused
+ 3 => True, -- Prefix (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Slice =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Prefix (Node3)
+ 4 => True, -- Discrete_Range (Node4)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Selected_Component =>
+ (1 => False, -- unused
+ 2 => True, -- Selector_Name (Node2)
+ 3 => True, -- Prefix (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Attribute_Reference =>
+ (1 => True, -- Expressions (List1)
+ 2 => True, -- Attribute_Name (Name2)
+ 3 => True, -- Prefix (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Aggregate =>
+ (1 => True, -- Expressions (List1)
+ 2 => True, -- Component_Associations (List2)
+ 3 => False, -- Aggregate_Bounds (Node3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Component_Association =>
+ (1 => True, -- Choices (List1)
+ 2 => False, -- Loop_Actions (List2-Sem)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Extension_Aggregate =>
+ (1 => True, -- Expressions (List1)
+ 2 => True, -- Component_Associations (List2)
+ 3 => True, -- Ancestor_Part (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Null =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_And_Then =>
+ (1 => False, -- Actions (List1-Sem)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Or_Else =>
+ (1 => False, -- Actions (List1-Sem)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_In =>
+ (1 => False, -- unused
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Not_In =>
+ (1 => False, -- unused
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_And =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Or =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Xor =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Eq =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Ne =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Lt =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Le =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Gt =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Ge =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Add =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Subtract =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Concat =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Multiply =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Divide =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Mod =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Rem =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Expon =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Plus =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- unused
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Minus =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- unused
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Abs =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- unused
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Not =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- unused
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Type_Conversion =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Qualified_Expression =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Allocator =>
+ (1 => False, -- Storage_Pool (Node1-Sem)
+ 2 => False, -- Procedure_To_Call (Node2-Sem)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- Coextensions (Elist4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Null_Statement =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Label =>
+ (1 => True, -- Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Assignment_Statement =>
+ (1 => False, -- unused
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_If_Statement =>
+ (1 => True, -- Condition (Node1)
+ 2 => True, -- Then_Statements (List2)
+ 3 => True, -- Elsif_Parts (List3)
+ 4 => True, -- Else_Statements (List4)
+ 5 => True), -- End_Span (Uint5)
+
+ N_Elsif_Part =>
+ (1 => True, -- Condition (Node1)
+ 2 => True, -- Then_Statements (List2)
+ 3 => False, -- Condition_Actions (List3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Case_Statement =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Alternatives (List4)
+ 5 => True), -- End_Span (Uint5)
+
+ N_Case_Statement_Alternative =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Statements (List3)
+ 4 => True, -- Discrete_Choices (List4)
+ 5 => False), -- unused
+
+ N_Loop_Statement =>
+ (1 => True, -- Identifier (Node1)
+ 2 => True, -- Iteration_Scheme (Node2)
+ 3 => True, -- Statements (List3)
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- unused
+
+ N_Iteration_Scheme =>
+ (1 => True, -- Condition (Node1)
+ 2 => False, -- unused
+ 3 => False, -- Condition_Actions (List3-Sem)
+ 4 => True, -- Loop_Parameter_Specification (Node4)
+ 5 => False), -- unused
+
+ N_Loop_Parameter_Specification =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Discrete_Subtype_Definition (Node4)
+ 5 => False), -- unused
+
+ N_Block_Statement =>
+ (1 => True, -- Identifier (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- Activation_Chain_Entity (Node3-Sem)
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => False), -- unused
+
+ N_Exit_Statement =>
+ (1 => True, -- Condition (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Goto_Statement =>
+ (1 => False, -- unused
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Subprogram_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => False, -- unused
+ 3 => False, -- Body_To_Inline (Node3-Sem)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Abstract_Subprogram_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Function_Specification =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => False, -- Elaboration_Boolean (Node2-Sem)
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => True, -- Result_Definition (Node4)
+ 5 => False), -- Generic_Parent (Node5-Sem)
+
+ N_Procedure_Specification =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => False, -- Elaboration_Boolean (Node2-Sem)
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => False, -- unused
+ 5 => False), -- Generic_Parent (Node5-Sem)
+
+ N_Designator =>
+ (1 => True, -- Identifier (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Defining_Program_Unit_Name =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Operator_Symbol =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- unused
+ 3 => True, -- Strval (Str3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Defining_Operator_Symbol =>
+ (1 => True, -- Chars (Name1)
+ 2 => False, -- Next_Entity (Node2-Sem)
+ 3 => False, -- Scope (Node3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Parameter_Specification =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Parameter_Type (Node2)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Default_Expression (Node5-Sem)
+
+ N_Subprogram_Body =>
+ (1 => True, -- Specification (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- Activation_Chain_Entity (Node3-Sem)
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => False), -- Corresponding_Spec (Node5-Sem)
+
+ N_Procedure_Call_Statement =>
+ (1 => False, -- Controlling_Argument (Node1-Sem)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Parameter_Associations (List3)
+ 4 => False, -- First_Named_Actual (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Function_Call =>
+ (1 => False, -- Controlling_Argument (Node1-Sem)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Parameter_Associations (List3)
+ 4 => False, -- First_Named_Actual (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Parameter_Association =>
+ (1 => False, -- unused
+ 2 => True, -- Selector_Name (Node2)
+ 3 => True, -- Explicit_Actual_Parameter (Node3)
+ 4 => False, -- Next_Named_Actual (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Return_Statement =>
+ (1 => False, -- Storage_Pool (Node1-Sem)
+ 2 => False, -- Procedure_To_Call (Node2-Sem)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Return_Statement_Entity (Node5-Sem)
+
+ N_Extended_Return_Statement =>
+ (1 => False, -- Storage_Pool (Node1-Sem)
+ 2 => False, -- Procedure_To_Call (Node2-Sem)
+ 3 => True, -- Return_Object_Declarations (List3)
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => False), -- Return_Statement_Entity (Node5-Sem)
+
+ N_Package_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => False, -- unused
+ 3 => False, -- Activation_Chain_Entity (Node3-Sem)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Package_Specification =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Visible_Declarations (List2)
+ 3 => True, -- Private_Declarations (List3)
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- Generic_Parent (Node5-Sem)
+
+ N_Package_Body =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- unused
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => False), -- Corresponding_Spec (Node5-Sem)
+
+ N_Private_Type_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => False), -- unused
+
+ N_Private_Extension_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Interface_List (List2)
+ 3 => False, -- unused
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => True), -- Subtype_Indication (Node5)
+
+ N_Use_Package_Clause =>
+ (1 => False, -- unused
+ 2 => True, -- Names (List2)
+ 3 => False, -- Next_Use_Clause (Node3-Sem)
+ 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
+ 5 => False), -- unused
+
+ N_Use_Type_Clause =>
+ (1 => False, -- unused
+ 2 => True, -- Subtype_Marks (List2)
+ 3 => False, -- Next_Use_Clause (Node3-Sem)
+ 4 => False, -- Hidden_By_Use_Clause (Elist4-Sem)
+ 5 => False), -- unused
+
+ N_Object_Renaming_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Access_Definition (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- Corresponding_Generic_Association (Node5-Sem)
+
+ N_Exception_Renaming_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Package_Renaming_Declaration =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Subprogram_Renaming_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- Corresponding_Formal_Spec (Node3-Sem)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Corresponding_Spec (Node5-Sem)
+
+ N_Generic_Package_Renaming_Declaration =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Generic_Procedure_Renaming_Declaration =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Generic_Function_Renaming_Declaration =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Task_Type_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Interface_List (List2)
+ 3 => True, -- Task_Definition (Node3)
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Single_Task_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Interface_List (List2)
+ 3 => True, -- Task_Definition (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Task_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Visible_Declarations (List2)
+ 3 => True, -- Private_Declarations (List3)
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- unused
+
+ N_Task_Body =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- Activation_Chain_Entity (Node3-Sem)
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => False), -- Corresponding_Spec (Node5-Sem)
+
+ N_Protected_Type_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Interface_List (List2)
+ 3 => True, -- Protected_Definition (Node3)
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Single_Protected_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Interface_List (List2)
+ 3 => True, -- Protected_Definition (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Protected_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Visible_Declarations (List2)
+ 3 => True, -- Private_Declarations (List3)
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- unused
+
+ N_Protected_Body =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- unused
+ 4 => True, -- End_Label (Node4)
+ 5 => False), -- Corresponding_Spec (Node5-Sem)
+
+ N_Entry_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => True, -- Discrete_Subtype_Definition (Node4)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Accept_Statement =>
+ (1 => True, -- Entry_Direct_Name (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => True), -- Entry_Index (Node5)
+
+ N_Entry_Body =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- Activation_Chain_Entity (Node3-Sem)
+ 4 => True, -- Handled_Statement_Sequence (Node4)
+ 5 => True), -- Entry_Body_Formal_Part (Node5)
+
+ N_Entry_Body_Formal_Part =>
+ (1 => True, -- Condition (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Parameter_Specifications (List3)
+ 4 => True, -- Entry_Index_Specification (Node4)
+ 5 => False), -- unused
+
+ N_Entry_Index_Specification =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Discrete_Subtype_Definition (Node4)
+ 5 => False), -- unused
+
+ N_Entry_Call_Statement =>
+ (1 => False, -- unused
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Parameter_Associations (List3)
+ 4 => False, -- First_Named_Actual (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Requeue_Statement =>
+ (1 => False, -- unused
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Delay_Until_Statement =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Delay_Relative_Statement =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Selective_Accept =>
+ (1 => True, -- Select_Alternatives (List1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Else_Statements (List4)
+ 5 => False), -- unused
+
+ N_Accept_Alternative =>
+ (1 => True, -- Condition (Node1)
+ 2 => True, -- Accept_Statement (Node2)
+ 3 => True, -- Statements (List3)
+ 4 => True, -- Pragmas_Before (List4)
+ 5 => False), -- Accept_Handler_Records (List5-Sem)
+
+ N_Delay_Alternative =>
+ (1 => True, -- Condition (Node1)
+ 2 => True, -- Delay_Statement (Node2)
+ 3 => True, -- Statements (List3)
+ 4 => True, -- Pragmas_Before (List4)
+ 5 => False), -- unused
+
+ N_Terminate_Alternative =>
+ (1 => True, -- Condition (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Pragmas_Before (List4)
+ 5 => True), -- Pragmas_After (List5)
+
+ N_Timed_Entry_Call =>
+ (1 => True, -- Entry_Call_Alternative (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Delay_Alternative (Node4)
+ 5 => False), -- unused
+
+ N_Entry_Call_Alternative =>
+ (1 => True, -- Entry_Call_Statement (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Statements (List3)
+ 4 => True, -- Pragmas_Before (List4)
+ 5 => False), -- unused
+
+ N_Conditional_Entry_Call =>
+ (1 => True, -- Entry_Call_Alternative (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => True, -- Else_Statements (List4)
+ 5 => False), -- unused
+
+ N_Asynchronous_Select =>
+ (1 => True, -- Triggering_Alternative (Node1)
+ 2 => True, -- Abortable_Part (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Triggering_Alternative =>
+ (1 => True, -- Triggering_Statement (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Statements (List3)
+ 4 => True, -- Pragmas_Before (List4)
+ 5 => False), -- unused
+
+ N_Abortable_Part =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Statements (List3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Abort_Statement =>
+ (1 => False, -- unused
+ 2 => True, -- Names (List2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Compilation_Unit =>
+ (1 => True, -- Context_Items (List1)
+ 2 => True, -- Unit (Node2)
+ 3 => False, -- First_Inlined_Subprogram (Node3-Sem)
+ 4 => False, -- Library_Unit (Node4-Sem)
+ 5 => True), -- Aux_Decls_Node (Node5)
+
+ N_Compilation_Unit_Aux =>
+ (1 => True, -- Actions (List1)
+ 2 => True, -- Declarations (List2)
+ 3 => False, -- unused
+ 4 => True, -- Config_Pragmas (List4)
+ 5 => True), -- Pragmas_After (List5)
+
+ N_With_Clause =>
+ (1 => False, -- unused
+ 2 => True, -- Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- Library_Unit (Node4-Sem)
+ 5 => False), -- Corresponding_Spec (Node5-Sem)
+
+ N_Subprogram_Body_Stub =>
+ (1 => True, -- Specification (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- Library_Unit (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Package_Body_Stub =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- Library_Unit (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Task_Body_Stub =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- Library_Unit (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Protected_Body_Stub =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- Library_Unit (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Subunit =>
+ (1 => True, -- Proper_Body (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => False, -- Corresponding_Stub (Node3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Exception_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- Expression (Node3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Handled_Sequence_Of_Statements =>
+ (1 => True, -- At_End_Proc (Node1)
+ 2 => False, -- First_Real_Statement (Node2-Sem)
+ 3 => True, -- Statements (List3)
+ 4 => True, -- End_Label (Node4)
+ 5 => True), -- Exception_Handlers (List5)
+
+ N_Exception_Handler =>
+ (1 => False, -- Local_Raise_Statements (Elist1)
+ 2 => True, -- Choice_Parameter (Node2)
+ 3 => True, -- Statements (List3)
+ 4 => True, -- Exception_Choices (List4)
+ 5 => False), -- Exception_Label (Node5)
+
+ N_Raise_Statement =>
+ (1 => False, -- unused
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Generic_Subprogram_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => True, -- Generic_Formal_Declarations (List2)
+ 3 => False, -- unused
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Generic_Package_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => True, -- Generic_Formal_Declarations (List2)
+ 3 => False, -- Activation_Chain_Entity (Node3-Sem)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Corresponding_Body (Node5-Sem)
+
+ N_Package_Instantiation =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Generic_Associations (List3)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Instance_Spec (Node5-Sem)
+
+ N_Procedure_Instantiation =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Generic_Associations (List3)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Instance_Spec (Node5-Sem)
+
+ N_Function_Instantiation =>
+ (1 => True, -- Defining_Unit_Name (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Generic_Associations (List3)
+ 4 => False, -- Parent_Spec (Node4-Sem)
+ 5 => False), -- Instance_Spec (Node5-Sem)
+
+ N_Generic_Association =>
+ (1 => True, -- Explicit_Generic_Actual_Parameter (Node1)
+ 2 => True, -- Selector_Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Object_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Access_Definition (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => True), -- Default_Expression (Node5)
+
+ N_Formal_Type_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Formal_Type_Definition (Node3)
+ 4 => True, -- Discriminant_Specifications (List4)
+ 5 => False), -- unused
+
+ N_Formal_Private_Type_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Derived_Type_Definition =>
+ (1 => False, -- unused
+ 2 => True, -- Interface_List (List2)
+ 3 => False, -- unused
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- unused
+
+ N_Formal_Discrete_Type_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Signed_Integer_Type_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Modular_Type_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Floating_Point_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Ordinary_Fixed_Point_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Decimal_Fixed_Point_Definition =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Concrete_Subprogram_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => True, -- Default_Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Abstract_Subprogram_Declaration =>
+ (1 => True, -- Specification (Node1)
+ 2 => True, -- Default_Name (Node2)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Formal_Package_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Generic_Associations (List3)
+ 4 => False, -- unused
+ 5 => False), -- Instance_Spec (Node5-Sem)
+
+ N_Attribute_Definition_Clause =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Name (Node2)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Next_Rep_Item (Node5-Sem)
+
+ N_Enumeration_Representation_Clause =>
+ (1 => True, -- Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Array_Aggregate (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Next_Rep_Item (Node5-Sem)
+
+ N_Record_Representation_Clause =>
+ (1 => True, -- Identifier (Node1)
+ 2 => True, -- Mod_Clause (Node2)
+ 3 => True, -- Component_Clauses (List3)
+ 4 => False, -- unused
+ 5 => False), -- Next_Rep_Item (Node5-Sem)
+
+ N_Component_Clause =>
+ (1 => True, -- Component_Name (Node1)
+ 2 => True, -- Position (Node2)
+ 3 => True, -- First_Bit (Node3)
+ 4 => True, -- Last_Bit (Node4)
+ 5 => False), -- unused
+
+ N_Code_Statement =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Op_Rotate_Left =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Rotate_Right =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Shift_Left =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Shift_Right_Arithmetic =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Op_Shift_Right =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Left_Opnd (Node2)
+ 3 => True, -- Right_Opnd (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Delta_Constraint =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Delta_Expression (Node3)
+ 4 => True, -- Range_Constraint (Node4)
+ 5 => False), -- unused
+
+ N_At_Clause =>
+ (1 => True, -- Identifier (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Mod_Clause =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Pragmas_Before (List4)
+ 5 => False), -- unused
+
+ N_Conditional_Expression =>
+ (1 => True, -- Expressions (List1)
+ 2 => False, -- Then_Actions (List2-Sem)
+ 3 => False, -- Else_Actions (List3-Sem)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Expanded_Name =>
+ (1 => True, -- Chars (Name1)
+ 2 => True, -- Selector_Name (Node2)
+ 3 => True, -- Prefix (Node3)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Free_Statement =>
+ (1 => False, -- Storage_Pool (Node1-Sem)
+ 2 => False, -- Procedure_To_Call (Node2-Sem)
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- Actual_Designated_Subtype (Node4-Sem)
+ 5 => False), -- unused
+
+ N_Freeze_Entity =>
+ (1 => True, -- Actions (List1)
+ 2 => False, -- Access_Types_To_Process (Elist2-Sem)
+ 3 => False, -- TSS_Elist (Elist3-Sem)
+ 4 => False, -- Entity (Node4-Sem)
+ 5 => False), -- First_Subtype_Link (Node5-Sem)
+
+ N_Implicit_Label_Declaration =>
+ (1 => True, -- Defining_Identifier (Node1)
+ 2 => False, -- Label_Construct (Node2-Sem)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Itype_Reference =>
+ (1 => False, -- Itype (Node1-Sem)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Raise_Constraint_Error =>
+ (1 => True, -- Condition (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Reason (Uint3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Raise_Program_Error =>
+ (1 => True, -- Condition (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Reason (Uint3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Raise_Storage_Error =>
+ (1 => True, -- Condition (Node1)
+ 2 => False, -- unused
+ 3 => True, -- Reason (Uint3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Push_Constraint_Error_Label =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Push_Program_Error_Label =>
+ (1 => False, -- Exception_Label
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- Exception_Label
+
+ N_Push_Storage_Error_Label =>
+ (1 => False, -- Exception_Label
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- Exception_Label
+
+ N_Pop_Constraint_Error_Label =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Pop_Program_Error_Label =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Pop_Storage_Error_Label =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Reference =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Prefix (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Subprogram_Info =>
+ (1 => True, -- Identifier (Node1)
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Unchecked_Expression =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => False, -- unused
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Unchecked_Type_Conversion =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => True, -- Expression (Node3)
+ 4 => True, -- Subtype_Mark (Node4)
+ 5 => False), -- Etype (Node5-Sem)
+
+ N_Validate_Unchecked_Conversion =>
+ (1 => False, -- Source_Type (Node1-Sem)
+ 2 => False, -- Target_Type (Node2-Sem)
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ -- End of inserted output from makeisf program
+
+ -- Entries for Empty, Error and Unused. Even thought these have a Chars
+ -- field for debugging purposes, they are not really syntactic fields, so
+ -- we mark all fields as unused.
+
+ N_Empty =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Error =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Unused_At_Start =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False), -- unused
+
+ N_Unused_At_End =>
+ (1 => False, -- unused
+ 2 => False, -- unused
+ 3 => False, -- unused
+ 4 => False, -- unused
+ 5 => False)); -- unused
+