libadalang_24.0.0_a1358075/src/libadalang-generic_api-introspection.ads

--
--  Copyright (C) 2014-2022, AdaCore
--  SPDX-License-Identifier: Apache-2.0
--

--  This package provides contants to refer to Libadalang types and struct
--  members in the generic introspection API
--  (``Langkit_Support.Generic_API.Introspection``).

with Langkit_Support.Generic_API.Introspection;

package Libadalang.Generic_API.Introspection is

   package G renames Langkit_Support.Generic_API.Introspection;

   ---------------------
   -- Type references --
   ---------------------

   package Type_Refs is
         Analysis_Unit : constant G.Type_Ref :=
           G.From_Index (Self_Id, 1);
         Big_Integer : constant G.Type_Ref :=
           G.From_Index (Self_Id, 2);
         Boolean : constant G.Type_Ref :=
           G.From_Index (Self_Id, 3);
         Character_Type : constant G.Type_Ref :=
           G.From_Index (Self_Id, 4);
         Integer : constant G.Type_Ref :=
           G.From_Index (Self_Id, 5);
         Source_Location_Range : constant G.Type_Ref :=
           G.From_Index (Self_Id, 6);
         Text_Type : constant G.Type_Ref :=
           G.From_Index (Self_Id, 7);
         Token_Reference : constant G.Type_Ref :=
           G.From_Index (Self_Id, 8);
         Unbounded_Text_Type : constant G.Type_Ref :=
           G.From_Index (Self_Id, 9);
         Analysis_Unit_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 10);
         Lookup_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 11);
         Designated_Env_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 12);
         Ref_Result_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 13);
         Call_Expr_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 14);
         Grammar_Rule : constant G.Type_Ref :=
           G.From_Index (Self_Id, 15);
         Discriminant_Values_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 16);
         Doc_Annotation_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 17);
         Accept_Stmt_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 18);
         Ada_Node_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 19);
         Base_Formal_Param_Decl_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 20);
         Base_Type_Decl_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 21);
         Basic_Decl_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 22);
         Compilation_Unit_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 23);
         Defining_Name_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 24);
         Expr_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 25);
         Generic_Instantiation_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 26);
         Param_Spec_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 27);
         Pragma_Node_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 28);
         Type_Decl_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 29);
         Param_Actual_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 30);
         Ref_Result_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 31);
         Shape_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 32);
         Substitution_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 33);
         Analysis_Unit_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 34);
         Unbounded_Text_Type_Array : constant G.Type_Ref :=
           G.From_Index (Self_Id, 35);
         Completion_Item_Iterator : constant G.Type_Ref :=
           G.From_Index (Self_Id, 36);
         Aspect : constant G.Type_Ref :=
           G.From_Index (Self_Id, 37);
         Completion_Item : constant G.Type_Ref :=
           G.From_Index (Self_Id, 38);
         Discrete_Range : constant G.Type_Ref :=
           G.From_Index (Self_Id, 39);
         Discriminant_Values : constant G.Type_Ref :=
           G.From_Index (Self_Id, 40);
         Doc_Annotation : constant G.Type_Ref :=
           G.From_Index (Self_Id, 41);
         Param_Actual : constant G.Type_Ref :=
           G.From_Index (Self_Id, 42);
         Ref_Result : constant G.Type_Ref :=
           G.From_Index (Self_Id, 43);
         Refd_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 44);
         Refd_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 45);
         Shape : constant G.Type_Ref :=
           G.From_Index (Self_Id, 46);
         Substitution : constant G.Type_Ref :=
           G.From_Index (Self_Id, 47);
         Ada_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 48);
         Abort_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 49);
         Abort_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 50);
         Abort_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 51);
         Abstract_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 52);
         Abstract_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 53);
         Abstract_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 54);
         Ada_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 55);
         Ada_Node_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 56);
         Abstract_State_Decl_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 57);
         Alternatives_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 58);
         Constraint_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 59);
         Decl_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 60);
         Stmt_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 61);
         Aspect_Assoc_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 62);
         Base_Assoc_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 63);
         Basic_Assoc_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 64);
         Assoc_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 65);
         Basic_Decl_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 66);
         Case_Expr_Alternative_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 67);
         Case_Stmt_Alternative_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 68);
         Compilation_Unit_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 69);
         Concat_Operand_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 70);
         Contract_Case_Assoc_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 71);
         Defining_Name_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 72);
         Discriminant_Spec_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 73);
         Elsif_Expr_Part_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 74);
         Elsif_Stmt_Part_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 75);
         Enum_Literal_Decl_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 76);
         Expr_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 77);
         Expr_Alternatives_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 78);
         Identifier_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 79);
         Discriminant_Choice_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 80);
         Name_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 81);
         Parent_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 82);
         Param_Spec_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 83);
         Pragma_Node_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 84);
         Select_When_Part_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 85);
         Unconstrained_Array_Index_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 86);
         Variant_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 87);
         Aliased_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 88);
         Aliased_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 89);
         Aliased_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 90);
         All_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 91);
         All_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 92);
         All_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 93);
         Array_Indices : constant G.Type_Ref :=
           G.From_Index (Self_Id, 94);
         Constrained_Array_Indices : constant G.Type_Ref :=
           G.From_Index (Self_Id, 95);
         Unconstrained_Array_Indices : constant G.Type_Ref :=
           G.From_Index (Self_Id, 96);
         Aspect_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 97);
         Aspect_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 98);
         At_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 99);
         Attribute_Def_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 100);
         Enum_Rep_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 101);
         Record_Rep_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 102);
         Aspect_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 103);
         Base_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 104);
         Contract_Case_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 105);
         Pragma_Argument_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 106);
         Base_Formal_Param_Holder : constant G.Type_Ref :=
           G.From_Index (Self_Id, 107);
         Base_Subp_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 108);
         Entry_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 109);
         Enum_Subp_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 110);
         Subp_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 111);
         Synthetic_Binary_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 112);
         Synthetic_Unary_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 113);
         Component_List : constant G.Type_Ref :=
           G.From_Index (Self_Id, 114);
         Discriminant_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 115);
         Known_Discriminant_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 116);
         Unknown_Discriminant_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 117);
         Entry_Completion_Formal_Params : constant G.Type_Ref :=
           G.From_Index (Self_Id, 118);
         Generic_Formal_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 119);
         Base_Record_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 120);
         Null_Record_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 121);
         Record_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 122);
         Basic_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 123);
         Aggregate_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 124);
         Multi_Dim_Array_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 125);
         Composite_Constraint_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 126);
         Iterated_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 127);
         Param_Assoc : constant G.Type_Ref :=
           G.From_Index (Self_Id, 128);
         Basic_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 129);
         Abstract_State_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 130);
         Anonymous_Expr_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 131);
         Base_Formal_Param_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 132);
         Component_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 133);
         Discriminant_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 134);
         Generic_Formal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 135);
         Generic_Formal_Obj_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 136);
         Generic_Formal_Package : constant G.Type_Ref :=
           G.From_Index (Self_Id, 137);
         Generic_Formal_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 138);
         Generic_Formal_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 139);
         Param_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 140);
         Synthetic_Formal_Param_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 141);
         Base_Package_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 142);
         Generic_Package_Internal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 143);
         Package_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 144);
         Base_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 145);
         Base_Subtype_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 146);
         Discrete_Base_Subtype_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 147);
         Subtype_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 148);
         Classwide_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 149);
         Incomplete_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 150);
         Incomplete_Formal_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 151);
         Incomplete_Tagged_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 152);
         Protected_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 153);
         Task_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 154);
         Single_Task_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 155);
         Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 156);
         Anonymous_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 157);
         Synth_Anonymous_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 158);
         Concrete_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 159);
         Formal_Type_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 160);
         Basic_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 161);
         Classic_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 162);
         Abstract_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 163);
         Formal_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 164);
         Abstract_Formal_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 165);
         Concrete_Formal_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 166);
         Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 167);
         Entry_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 168);
         Enum_Literal_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 169);
         Synthetic_Char_Enum_Lit : constant G.Type_Ref :=
           G.From_Index (Self_Id, 170);
         Generic_Subp_Internal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 171);
         Synthetic_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 172);
         Body_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 173);
         Accept_Stmt_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 174);
         Base_Subp_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 175);
         Expr_Function : constant G.Type_Ref :=
           G.From_Index (Self_Id, 176);
         Null_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 177);
         Subp_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 178);
         Subp_Renaming_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 179);
         Body_Stub : constant G.Type_Ref :=
           G.From_Index (Self_Id, 180);
         Package_Body_Stub : constant G.Type_Ref :=
           G.From_Index (Self_Id, 181);
         Protected_Body_Stub : constant G.Type_Ref :=
           G.From_Index (Self_Id, 182);
         Subp_Body_Stub : constant G.Type_Ref :=
           G.From_Index (Self_Id, 183);
         Task_Body_Stub : constant G.Type_Ref :=
           G.From_Index (Self_Id, 184);
         Entry_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 185);
         Package_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 186);
         Protected_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 187);
         Task_Body : constant G.Type_Ref :=
           G.From_Index (Self_Id, 188);
         Entry_Index_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 189);
         Error_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 190);
         Exception_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 191);
         Exception_Handler : constant G.Type_Ref :=
           G.From_Index (Self_Id, 192);
         For_Loop_Var_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 193);
         Generic_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 194);
         Generic_Package_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 195);
         Generic_Subp_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 196);
         Generic_Instantiation : constant G.Type_Ref :=
           G.From_Index (Self_Id, 197);
         Generic_Package_Instantiation : constant G.Type_Ref :=
           G.From_Index (Self_Id, 198);
         Generic_Subp_Instantiation : constant G.Type_Ref :=
           G.From_Index (Self_Id, 199);
         Generic_Renaming_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 200);
         Generic_Package_Renaming_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 201);
         Generic_Subp_Renaming_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 202);
         Label_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 203);
         Named_Stmt_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 204);
         Number_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 205);
         Object_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 206);
         Extended_Return_Stmt_Object_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 207);
         No_Type_Object_Renaming_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 208);
         Package_Renaming_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 209);
         Single_Protected_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 210);
         Single_Task_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 211);
         Case_Stmt_Alternative : constant G.Type_Ref :=
           G.From_Index (Self_Id, 212);
         Compilation_Unit : constant G.Type_Ref :=
           G.From_Index (Self_Id, 213);
         Component_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 214);
         Component_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 215);
         Constant_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 216);
         Constant_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 217);
         Constant_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 218);
         Constraint : constant G.Type_Ref :=
           G.From_Index (Self_Id, 219);
         Composite_Constraint : constant G.Type_Ref :=
           G.From_Index (Self_Id, 220);
         Delta_Constraint : constant G.Type_Ref :=
           G.From_Index (Self_Id, 221);
         Digits_Constraint : constant G.Type_Ref :=
           G.From_Index (Self_Id, 222);
         Range_Constraint : constant G.Type_Ref :=
           G.From_Index (Self_Id, 223);
         Declarative_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 224);
         Private_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 225);
         Public_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 226);
         Elsif_Expr_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 227);
         Elsif_Stmt_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 228);
         Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 229);
         Abstract_State_Decl_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 230);
         Allocator : constant G.Type_Ref :=
           G.From_Index (Self_Id, 231);
         Base_Aggregate : constant G.Type_Ref :=
           G.From_Index (Self_Id, 232);
         Aggregate : constant G.Type_Ref :=
           G.From_Index (Self_Id, 233);
         Bracket_Aggregate : constant G.Type_Ref :=
           G.From_Index (Self_Id, 234);
         Delta_Aggregate : constant G.Type_Ref :=
           G.From_Index (Self_Id, 235);
         Bracket_Delta_Aggregate : constant G.Type_Ref :=
           G.From_Index (Self_Id, 236);
         Null_Record_Aggregate : constant G.Type_Ref :=
           G.From_Index (Self_Id, 237);
         Bin_Op : constant G.Type_Ref :=
           G.From_Index (Self_Id, 238);
         Relation_Op : constant G.Type_Ref :=
           G.From_Index (Self_Id, 239);
         Box_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 240);
         Case_Expr_Alternative : constant G.Type_Ref :=
           G.From_Index (Self_Id, 241);
         Concat_Op : constant G.Type_Ref :=
           G.From_Index (Self_Id, 242);
         Concat_Operand : constant G.Type_Ref :=
           G.From_Index (Self_Id, 243);
         Cond_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 244);
         Case_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 245);
         If_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 246);
         Contract_Cases : constant G.Type_Ref :=
           G.From_Index (Self_Id, 247);
         Decl_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 248);
         Membership_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 249);
         Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 250);
         Attribute_Ref : constant G.Type_Ref :=
           G.From_Index (Self_Id, 251);
         Call_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 252);
         Defining_Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 253);
         Synthetic_Defining_Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 254);
         Discrete_Subtype_Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 255);
         Dotted_Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 256);
         End_Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 257);
         Explicit_Deref : constant G.Type_Ref :=
           G.From_Index (Self_Id, 258);
         Qual_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 259);
         Reduce_Attribute_Ref : constant G.Type_Ref :=
           G.From_Index (Self_Id, 260);
         Single_Tok_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 261);
         Base_Id : constant G.Type_Ref :=
           G.From_Index (Self_Id, 262);
         Char_Literal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 263);
         Identifier : constant G.Type_Ref :=
           G.From_Index (Self_Id, 264);
         Op : constant G.Type_Ref :=
           G.From_Index (Self_Id, 265);
         Op_Abs : constant G.Type_Ref :=
           G.From_Index (Self_Id, 266);
         Op_And : constant G.Type_Ref :=
           G.From_Index (Self_Id, 267);
         Op_And_Then : constant G.Type_Ref :=
           G.From_Index (Self_Id, 268);
         Op_Concat : constant G.Type_Ref :=
           G.From_Index (Self_Id, 269);
         Op_Div : constant G.Type_Ref :=
           G.From_Index (Self_Id, 270);
         Op_Double_Dot : constant G.Type_Ref :=
           G.From_Index (Self_Id, 271);
         Op_Eq : constant G.Type_Ref :=
           G.From_Index (Self_Id, 272);
         Op_Gt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 273);
         Op_Gte : constant G.Type_Ref :=
           G.From_Index (Self_Id, 274);
         Op_In : constant G.Type_Ref :=
           G.From_Index (Self_Id, 275);
         Op_Lt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 276);
         Op_Lte : constant G.Type_Ref :=
           G.From_Index (Self_Id, 277);
         Op_Minus : constant G.Type_Ref :=
           G.From_Index (Self_Id, 278);
         Op_Mod : constant G.Type_Ref :=
           G.From_Index (Self_Id, 279);
         Op_Mult : constant G.Type_Ref :=
           G.From_Index (Self_Id, 280);
         Op_Neq : constant G.Type_Ref :=
           G.From_Index (Self_Id, 281);
         Op_Not : constant G.Type_Ref :=
           G.From_Index (Self_Id, 282);
         Op_Not_In : constant G.Type_Ref :=
           G.From_Index (Self_Id, 283);
         Op_Or : constant G.Type_Ref :=
           G.From_Index (Self_Id, 284);
         Op_Or_Else : constant G.Type_Ref :=
           G.From_Index (Self_Id, 285);
         Op_Plus : constant G.Type_Ref :=
           G.From_Index (Self_Id, 286);
         Op_Pow : constant G.Type_Ref :=
           G.From_Index (Self_Id, 287);
         Op_Rem : constant G.Type_Ref :=
           G.From_Index (Self_Id, 288);
         Op_Xor : constant G.Type_Ref :=
           G.From_Index (Self_Id, 289);
         String_Literal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 290);
         Null_Literal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 291);
         Num_Literal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 292);
         Int_Literal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 293);
         Real_Literal : constant G.Type_Ref :=
           G.From_Index (Self_Id, 294);
         Synthetic_Identifier : constant G.Type_Ref :=
           G.From_Index (Self_Id, 295);
         Target_Name : constant G.Type_Ref :=
           G.From_Index (Self_Id, 296);
         Update_Attribute_Ref : constant G.Type_Ref :=
           G.From_Index (Self_Id, 297);
         Paren_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 298);
         Quantified_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 299);
         Raise_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 300);
         Un_Op : constant G.Type_Ref :=
           G.From_Index (Self_Id, 301);
         Handled_Stmts : constant G.Type_Ref :=
           G.From_Index (Self_Id, 302);
         Interface_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 303);
         Interface_Kind_Limited : constant G.Type_Ref :=
           G.From_Index (Self_Id, 304);
         Interface_Kind_Protected : constant G.Type_Ref :=
           G.From_Index (Self_Id, 305);
         Interface_Kind_Synchronized : constant G.Type_Ref :=
           G.From_Index (Self_Id, 306);
         Interface_Kind_Task : constant G.Type_Ref :=
           G.From_Index (Self_Id, 307);
         Iter_Type : constant G.Type_Ref :=
           G.From_Index (Self_Id, 308);
         Iter_Type_In : constant G.Type_Ref :=
           G.From_Index (Self_Id, 309);
         Iter_Type_Of : constant G.Type_Ref :=
           G.From_Index (Self_Id, 310);
         Library_Item : constant G.Type_Ref :=
           G.From_Index (Self_Id, 311);
         Limited_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 312);
         Limited_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 313);
         Limited_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 314);
         Loop_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 315);
         For_Loop_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 316);
         While_Loop_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 317);
         Mode : constant G.Type_Ref :=
           G.From_Index (Self_Id, 318);
         Mode_Default : constant G.Type_Ref :=
           G.From_Index (Self_Id, 319);
         Mode_In : constant G.Type_Ref :=
           G.From_Index (Self_Id, 320);
         Mode_In_Out : constant G.Type_Ref :=
           G.From_Index (Self_Id, 321);
         Mode_Out : constant G.Type_Ref :=
           G.From_Index (Self_Id, 322);
         Multi_Abstract_State_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 323);
         Not_Null : constant G.Type_Ref :=
           G.From_Index (Self_Id, 324);
         Not_Null_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 325);
         Not_Null_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 326);
         Null_Component_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 327);
         Others_Designator : constant G.Type_Ref :=
           G.From_Index (Self_Id, 328);
         Overriding_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 329);
         Overriding_Not_Overriding : constant G.Type_Ref :=
           G.From_Index (Self_Id, 330);
         Overriding_Overriding : constant G.Type_Ref :=
           G.From_Index (Self_Id, 331);
         Overriding_Unspecified : constant G.Type_Ref :=
           G.From_Index (Self_Id, 332);
         Params : constant G.Type_Ref :=
           G.From_Index (Self_Id, 333);
         Paren_Abstract_State_Decl : constant G.Type_Ref :=
           G.From_Index (Self_Id, 334);
         Pp_Directive : constant G.Type_Ref :=
           G.From_Index (Self_Id, 335);
         Pp_Else_Directive : constant G.Type_Ref :=
           G.From_Index (Self_Id, 336);
         Pp_Elsif_Directive : constant G.Type_Ref :=
           G.From_Index (Self_Id, 337);
         Pp_End_If_Directive : constant G.Type_Ref :=
           G.From_Index (Self_Id, 338);
         Pp_If_Directive : constant G.Type_Ref :=
           G.From_Index (Self_Id, 339);
         Pp_Then_Kw : constant G.Type_Ref :=
           G.From_Index (Self_Id, 340);
         Pragma_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 341);
         Private_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 342);
         Private_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 343);
         Private_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 344);
         Protected_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 345);
         Protected_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 346);
         Protected_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 347);
         Protected_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 348);
         Quantifier : constant G.Type_Ref :=
           G.From_Index (Self_Id, 349);
         Quantifier_All : constant G.Type_Ref :=
           G.From_Index (Self_Id, 350);
         Quantifier_Some : constant G.Type_Ref :=
           G.From_Index (Self_Id, 351);
         Range_Spec : constant G.Type_Ref :=
           G.From_Index (Self_Id, 352);
         Renaming_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 353);
         Synthetic_Renaming_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 354);
         Reverse_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 355);
         Reverse_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 356);
         Reverse_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 357);
         Select_When_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 358);
         Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 359);
         Composite_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 360);
         Accept_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 361);
         Accept_Stmt_With_Stmts : constant G.Type_Ref :=
           G.From_Index (Self_Id, 362);
         Base_Loop_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 363);
         For_Loop_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 364);
         Loop_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 365);
         While_Loop_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 366);
         Block_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 367);
         Begin_Block : constant G.Type_Ref :=
           G.From_Index (Self_Id, 368);
         Decl_Block : constant G.Type_Ref :=
           G.From_Index (Self_Id, 369);
         Case_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 370);
         Extended_Return_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 371);
         If_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 372);
         Named_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 373);
         Select_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 374);
         Error_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 375);
         Simple_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 376);
         Abort_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 377);
         Assign_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 378);
         Call_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 379);
         Delay_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 380);
         Exit_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 381);
         Goto_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 382);
         Label : constant G.Type_Ref :=
           G.From_Index (Self_Id, 383);
         Null_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 384);
         Raise_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 385);
         Requeue_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 386);
         Return_Stmt : constant G.Type_Ref :=
           G.From_Index (Self_Id, 387);
         Terminate_Alternative : constant G.Type_Ref :=
           G.From_Index (Self_Id, 388);
         Subp_Kind : constant G.Type_Ref :=
           G.From_Index (Self_Id, 389);
         Subp_Kind_Function : constant G.Type_Ref :=
           G.From_Index (Self_Id, 390);
         Subp_Kind_Procedure : constant G.Type_Ref :=
           G.From_Index (Self_Id, 391);
         Subunit : constant G.Type_Ref :=
           G.From_Index (Self_Id, 392);
         Synchronized_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 393);
         Synchronized_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 394);
         Synchronized_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 395);
         Tagged_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 396);
         Tagged_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 397);
         Tagged_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 398);
         Task_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 399);
         Type_Attributes_Repository : constant G.Type_Ref :=
           G.From_Index (Self_Id, 400);
         Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 401);
         Access_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 402);
         Access_To_Subp_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 403);
         Base_Type_Access_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 404);
         Anonymous_Type_Access_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 405);
         Type_Access_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 406);
         Array_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 407);
         Derived_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 408);
         Enum_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 409);
         Formal_Discrete_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 410);
         Interface_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 411);
         Mod_Int_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 412);
         Private_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 413);
         Real_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 414);
         Decimal_Fixed_Point_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 415);
         Floating_Point_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 416);
         Ordinary_Fixed_Point_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 417);
         Record_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 418);
         Signed_Int_Type_Def : constant G.Type_Ref :=
           G.From_Index (Self_Id, 419);
         Type_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 420);
         Anonymous_Type : constant G.Type_Ref :=
           G.From_Index (Self_Id, 421);
         Enum_Lit_Synth_Type_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 422);
         Subtype_Indication : constant G.Type_Ref :=
           G.From_Index (Self_Id, 423);
         Constrained_Subtype_Indication : constant G.Type_Ref :=
           G.From_Index (Self_Id, 424);
         Discrete_Subtype_Indication : constant G.Type_Ref :=
           G.From_Index (Self_Id, 425);
         Synthetic_Type_Expr : constant G.Type_Ref :=
           G.From_Index (Self_Id, 426);
         Unconstrained_Array_Index : constant G.Type_Ref :=
           G.From_Index (Self_Id, 427);
         Until_Node : constant G.Type_Ref :=
           G.From_Index (Self_Id, 428);
         Until_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 429);
         Until_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 430);
         Use_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 431);
         Use_Package_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 432);
         Use_Type_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 433);
         Value_Sequence : constant G.Type_Ref :=
           G.From_Index (Self_Id, 434);
         Variant : constant G.Type_Ref :=
           G.From_Index (Self_Id, 435);
         Variant_Part : constant G.Type_Ref :=
           G.From_Index (Self_Id, 436);
         With_Clause : constant G.Type_Ref :=
           G.From_Index (Self_Id, 437);
         With_Private : constant G.Type_Ref :=
           G.From_Index (Self_Id, 438);
         With_Private_Absent : constant G.Type_Ref :=
           G.From_Index (Self_Id, 439);
         With_Private_Present : constant G.Type_Ref :=
           G.From_Index (Self_Id, 440);
   end Type_Refs;

   Kind_To_Type : constant array (Ada_Node_Kind_Type) of G.Type_Ref := (
      Ada_Abort_Absent => Type_Refs.Abort_Absent,
Ada_Abort_Present => Type_Refs.Abort_Present,
Ada_Abstract_Absent => Type_Refs.Abstract_Absent,
Ada_Abstract_Present => Type_Refs.Abstract_Present,
Ada_Ada_Node_List => Type_Refs.Ada_Node_List,
Ada_Abstract_State_Decl_List => Type_Refs.Abstract_State_Decl_List,
Ada_Alternatives_List => Type_Refs.Alternatives_List,
Ada_Constraint_List => Type_Refs.Constraint_List,
Ada_Decl_List => Type_Refs.Decl_List,
Ada_Stmt_List => Type_Refs.Stmt_List,
Ada_Aspect_Assoc_List => Type_Refs.Aspect_Assoc_List,
Ada_Base_Assoc_List => Type_Refs.Base_Assoc_List,
Ada_Assoc_List => Type_Refs.Assoc_List,
Ada_Basic_Decl_List => Type_Refs.Basic_Decl_List,
Ada_Case_Expr_Alternative_List => Type_Refs.Case_Expr_Alternative_List,
Ada_Case_Stmt_Alternative_List => Type_Refs.Case_Stmt_Alternative_List,
Ada_Compilation_Unit_List => Type_Refs.Compilation_Unit_List,
Ada_Concat_Operand_List => Type_Refs.Concat_Operand_List,
Ada_Contract_Case_Assoc_List => Type_Refs.Contract_Case_Assoc_List,
Ada_Defining_Name_List => Type_Refs.Defining_Name_List,
Ada_Discriminant_Spec_List => Type_Refs.Discriminant_Spec_List,
Ada_Elsif_Expr_Part_List => Type_Refs.Elsif_Expr_Part_List,
Ada_Elsif_Stmt_Part_List => Type_Refs.Elsif_Stmt_Part_List,
Ada_Enum_Literal_Decl_List => Type_Refs.Enum_Literal_Decl_List,
Ada_Expr_Alternatives_List => Type_Refs.Expr_Alternatives_List,
Ada_Discriminant_Choice_List => Type_Refs.Discriminant_Choice_List,
Ada_Name_List => Type_Refs.Name_List,
Ada_Parent_List => Type_Refs.Parent_List,
Ada_Param_Spec_List => Type_Refs.Param_Spec_List,
Ada_Pragma_Node_List => Type_Refs.Pragma_Node_List,
Ada_Select_When_Part_List => Type_Refs.Select_When_Part_List,
Ada_Unconstrained_Array_Index_List => Type_Refs.Unconstrained_Array_Index_List,
Ada_Variant_List => Type_Refs.Variant_List,
Ada_Aliased_Absent => Type_Refs.Aliased_Absent,
Ada_Aliased_Present => Type_Refs.Aliased_Present,
Ada_All_Absent => Type_Refs.All_Absent,
Ada_All_Present => Type_Refs.All_Present,
Ada_Constrained_Array_Indices => Type_Refs.Constrained_Array_Indices,
Ada_Unconstrained_Array_Indices => Type_Refs.Unconstrained_Array_Indices,
Ada_Aspect_Assoc => Type_Refs.Aspect_Assoc,
Ada_At_Clause => Type_Refs.At_Clause,
Ada_Attribute_Def_Clause => Type_Refs.Attribute_Def_Clause,
Ada_Enum_Rep_Clause => Type_Refs.Enum_Rep_Clause,
Ada_Record_Rep_Clause => Type_Refs.Record_Rep_Clause,
Ada_Aspect_Spec => Type_Refs.Aspect_Spec,
Ada_Contract_Case_Assoc => Type_Refs.Contract_Case_Assoc,
Ada_Pragma_Argument_Assoc => Type_Refs.Pragma_Argument_Assoc,
Ada_Entry_Spec => Type_Refs.Entry_Spec,
Ada_Enum_Subp_Spec => Type_Refs.Enum_Subp_Spec,
Ada_Subp_Spec => Type_Refs.Subp_Spec,
Ada_Synthetic_Binary_Spec => Type_Refs.Synthetic_Binary_Spec,
Ada_Synthetic_Unary_Spec => Type_Refs.Synthetic_Unary_Spec,
Ada_Component_List => Type_Refs.Component_List,
Ada_Known_Discriminant_Part => Type_Refs.Known_Discriminant_Part,
Ada_Unknown_Discriminant_Part => Type_Refs.Unknown_Discriminant_Part,
Ada_Entry_Completion_Formal_Params => Type_Refs.Entry_Completion_Formal_Params,
Ada_Generic_Formal_Part => Type_Refs.Generic_Formal_Part,
Ada_Null_Record_Def => Type_Refs.Null_Record_Def,
Ada_Record_Def => Type_Refs.Record_Def,
Ada_Aggregate_Assoc => Type_Refs.Aggregate_Assoc,
Ada_Multi_Dim_Array_Assoc => Type_Refs.Multi_Dim_Array_Assoc,
Ada_Composite_Constraint_Assoc => Type_Refs.Composite_Constraint_Assoc,
Ada_Iterated_Assoc => Type_Refs.Iterated_Assoc,
Ada_Param_Assoc => Type_Refs.Param_Assoc,
Ada_Abstract_State_Decl => Type_Refs.Abstract_State_Decl,
Ada_Anonymous_Expr_Decl => Type_Refs.Anonymous_Expr_Decl,
Ada_Component_Decl => Type_Refs.Component_Decl,
Ada_Discriminant_Spec => Type_Refs.Discriminant_Spec,
Ada_Generic_Formal_Obj_Decl => Type_Refs.Generic_Formal_Obj_Decl,
Ada_Generic_Formal_Package => Type_Refs.Generic_Formal_Package,
Ada_Generic_Formal_Subp_Decl => Type_Refs.Generic_Formal_Subp_Decl,
Ada_Generic_Formal_Type_Decl => Type_Refs.Generic_Formal_Type_Decl,
Ada_Param_Spec => Type_Refs.Param_Spec,
Ada_Synthetic_Formal_Param_Decl => Type_Refs.Synthetic_Formal_Param_Decl,
Ada_Generic_Package_Internal => Type_Refs.Generic_Package_Internal,
Ada_Package_Decl => Type_Refs.Package_Decl,
Ada_Discrete_Base_Subtype_Decl => Type_Refs.Discrete_Base_Subtype_Decl,
Ada_Subtype_Decl => Type_Refs.Subtype_Decl,
Ada_Classwide_Type_Decl => Type_Refs.Classwide_Type_Decl,
Ada_Incomplete_Type_Decl => Type_Refs.Incomplete_Type_Decl,
Ada_Incomplete_Formal_Type_Decl => Type_Refs.Incomplete_Formal_Type_Decl,
Ada_Incomplete_Tagged_Type_Decl => Type_Refs.Incomplete_Tagged_Type_Decl,
Ada_Protected_Type_Decl => Type_Refs.Protected_Type_Decl,
Ada_Task_Type_Decl => Type_Refs.Task_Type_Decl,
Ada_Single_Task_Type_Decl => Type_Refs.Single_Task_Type_Decl,
Ada_Anonymous_Type_Decl => Type_Refs.Anonymous_Type_Decl,
Ada_Synth_Anonymous_Type_Decl => Type_Refs.Synth_Anonymous_Type_Decl,
Ada_Concrete_Type_Decl => Type_Refs.Concrete_Type_Decl,
Ada_Formal_Type_Decl => Type_Refs.Formal_Type_Decl,
Ada_Abstract_Subp_Decl => Type_Refs.Abstract_Subp_Decl,
Ada_Abstract_Formal_Subp_Decl => Type_Refs.Abstract_Formal_Subp_Decl,
Ada_Concrete_Formal_Subp_Decl => Type_Refs.Concrete_Formal_Subp_Decl,
Ada_Subp_Decl => Type_Refs.Subp_Decl,
Ada_Entry_Decl => Type_Refs.Entry_Decl,
Ada_Enum_Literal_Decl => Type_Refs.Enum_Literal_Decl,
Ada_Synthetic_Char_Enum_Lit => Type_Refs.Synthetic_Char_Enum_Lit,
Ada_Generic_Subp_Internal => Type_Refs.Generic_Subp_Internal,
Ada_Synthetic_Subp_Decl => Type_Refs.Synthetic_Subp_Decl,
Ada_Accept_Stmt_Body => Type_Refs.Accept_Stmt_Body,
Ada_Expr_Function => Type_Refs.Expr_Function,
Ada_Null_Subp_Decl => Type_Refs.Null_Subp_Decl,
Ada_Subp_Body => Type_Refs.Subp_Body,
Ada_Subp_Renaming_Decl => Type_Refs.Subp_Renaming_Decl,
Ada_Package_Body_Stub => Type_Refs.Package_Body_Stub,
Ada_Protected_Body_Stub => Type_Refs.Protected_Body_Stub,
Ada_Subp_Body_Stub => Type_Refs.Subp_Body_Stub,
Ada_Task_Body_Stub => Type_Refs.Task_Body_Stub,
Ada_Entry_Body => Type_Refs.Entry_Body,
Ada_Package_Body => Type_Refs.Package_Body,
Ada_Protected_Body => Type_Refs.Protected_Body,
Ada_Task_Body => Type_Refs.Task_Body,
Ada_Entry_Index_Spec => Type_Refs.Entry_Index_Spec,
Ada_Error_Decl => Type_Refs.Error_Decl,
Ada_Exception_Decl => Type_Refs.Exception_Decl,
Ada_Exception_Handler => Type_Refs.Exception_Handler,
Ada_For_Loop_Var_Decl => Type_Refs.For_Loop_Var_Decl,
Ada_Generic_Package_Decl => Type_Refs.Generic_Package_Decl,
Ada_Generic_Subp_Decl => Type_Refs.Generic_Subp_Decl,
Ada_Generic_Package_Instantiation => Type_Refs.Generic_Package_Instantiation,
Ada_Generic_Subp_Instantiation => Type_Refs.Generic_Subp_Instantiation,
Ada_Generic_Package_Renaming_Decl => Type_Refs.Generic_Package_Renaming_Decl,
Ada_Generic_Subp_Renaming_Decl => Type_Refs.Generic_Subp_Renaming_Decl,
Ada_Label_Decl => Type_Refs.Label_Decl,
Ada_Named_Stmt_Decl => Type_Refs.Named_Stmt_Decl,
Ada_Number_Decl => Type_Refs.Number_Decl,
Ada_Object_Decl => Type_Refs.Object_Decl,
Ada_Extended_Return_Stmt_Object_Decl => Type_Refs.Extended_Return_Stmt_Object_Decl,
Ada_No_Type_Object_Renaming_Decl => Type_Refs.No_Type_Object_Renaming_Decl,
Ada_Package_Renaming_Decl => Type_Refs.Package_Renaming_Decl,
Ada_Single_Protected_Decl => Type_Refs.Single_Protected_Decl,
Ada_Single_Task_Decl => Type_Refs.Single_Task_Decl,
Ada_Case_Stmt_Alternative => Type_Refs.Case_Stmt_Alternative,
Ada_Compilation_Unit => Type_Refs.Compilation_Unit,
Ada_Component_Clause => Type_Refs.Component_Clause,
Ada_Component_Def => Type_Refs.Component_Def,
Ada_Constant_Absent => Type_Refs.Constant_Absent,
Ada_Constant_Present => Type_Refs.Constant_Present,
Ada_Composite_Constraint => Type_Refs.Composite_Constraint,
Ada_Delta_Constraint => Type_Refs.Delta_Constraint,
Ada_Digits_Constraint => Type_Refs.Digits_Constraint,
Ada_Range_Constraint => Type_Refs.Range_Constraint,
Ada_Declarative_Part => Type_Refs.Declarative_Part,
Ada_Private_Part => Type_Refs.Private_Part,
Ada_Public_Part => Type_Refs.Public_Part,
Ada_Elsif_Expr_Part => Type_Refs.Elsif_Expr_Part,
Ada_Elsif_Stmt_Part => Type_Refs.Elsif_Stmt_Part,
Ada_Abstract_State_Decl_Expr => Type_Refs.Abstract_State_Decl_Expr,
Ada_Allocator => Type_Refs.Allocator,
Ada_Aggregate => Type_Refs.Aggregate,
Ada_Bracket_Aggregate => Type_Refs.Bracket_Aggregate,
Ada_Delta_Aggregate => Type_Refs.Delta_Aggregate,
Ada_Bracket_Delta_Aggregate => Type_Refs.Bracket_Delta_Aggregate,
Ada_Null_Record_Aggregate => Type_Refs.Null_Record_Aggregate,
Ada_Bin_Op => Type_Refs.Bin_Op,
Ada_Relation_Op => Type_Refs.Relation_Op,
Ada_Box_Expr => Type_Refs.Box_Expr,
Ada_Case_Expr_Alternative => Type_Refs.Case_Expr_Alternative,
Ada_Concat_Op => Type_Refs.Concat_Op,
Ada_Concat_Operand => Type_Refs.Concat_Operand,
Ada_Case_Expr => Type_Refs.Case_Expr,
Ada_If_Expr => Type_Refs.If_Expr,
Ada_Contract_Cases => Type_Refs.Contract_Cases,
Ada_Decl_Expr => Type_Refs.Decl_Expr,
Ada_Membership_Expr => Type_Refs.Membership_Expr,
Ada_Attribute_Ref => Type_Refs.Attribute_Ref,
Ada_Call_Expr => Type_Refs.Call_Expr,
Ada_Defining_Name => Type_Refs.Defining_Name,
Ada_Synthetic_Defining_Name => Type_Refs.Synthetic_Defining_Name,
Ada_Discrete_Subtype_Name => Type_Refs.Discrete_Subtype_Name,
Ada_Dotted_Name => Type_Refs.Dotted_Name,
Ada_End_Name => Type_Refs.End_Name,
Ada_Explicit_Deref => Type_Refs.Explicit_Deref,
Ada_Qual_Expr => Type_Refs.Qual_Expr,
Ada_Reduce_Attribute_Ref => Type_Refs.Reduce_Attribute_Ref,
Ada_Char_Literal => Type_Refs.Char_Literal,
Ada_Identifier => Type_Refs.Identifier,
Ada_Op_Abs => Type_Refs.Op_Abs,
Ada_Op_And => Type_Refs.Op_And,
Ada_Op_And_Then => Type_Refs.Op_And_Then,
Ada_Op_Concat => Type_Refs.Op_Concat,
Ada_Op_Div => Type_Refs.Op_Div,
Ada_Op_Double_Dot => Type_Refs.Op_Double_Dot,
Ada_Op_Eq => Type_Refs.Op_Eq,
Ada_Op_Gt => Type_Refs.Op_Gt,
Ada_Op_Gte => Type_Refs.Op_Gte,
Ada_Op_In => Type_Refs.Op_In,
Ada_Op_Lt => Type_Refs.Op_Lt,
Ada_Op_Lte => Type_Refs.Op_Lte,
Ada_Op_Minus => Type_Refs.Op_Minus,
Ada_Op_Mod => Type_Refs.Op_Mod,
Ada_Op_Mult => Type_Refs.Op_Mult,
Ada_Op_Neq => Type_Refs.Op_Neq,
Ada_Op_Not => Type_Refs.Op_Not,
Ada_Op_Not_In => Type_Refs.Op_Not_In,
Ada_Op_Or => Type_Refs.Op_Or,
Ada_Op_Or_Else => Type_Refs.Op_Or_Else,
Ada_Op_Plus => Type_Refs.Op_Plus,
Ada_Op_Pow => Type_Refs.Op_Pow,
Ada_Op_Rem => Type_Refs.Op_Rem,
Ada_Op_Xor => Type_Refs.Op_Xor,
Ada_String_Literal => Type_Refs.String_Literal,
Ada_Null_Literal => Type_Refs.Null_Literal,
Ada_Int_Literal => Type_Refs.Int_Literal,
Ada_Real_Literal => Type_Refs.Real_Literal,
Ada_Synthetic_Identifier => Type_Refs.Synthetic_Identifier,
Ada_Target_Name => Type_Refs.Target_Name,
Ada_Update_Attribute_Ref => Type_Refs.Update_Attribute_Ref,
Ada_Paren_Expr => Type_Refs.Paren_Expr,
Ada_Quantified_Expr => Type_Refs.Quantified_Expr,
Ada_Raise_Expr => Type_Refs.Raise_Expr,
Ada_Un_Op => Type_Refs.Un_Op,
Ada_Handled_Stmts => Type_Refs.Handled_Stmts,
Ada_Interface_Kind_Limited => Type_Refs.Interface_Kind_Limited,
Ada_Interface_Kind_Protected => Type_Refs.Interface_Kind_Protected,
Ada_Interface_Kind_Synchronized => Type_Refs.Interface_Kind_Synchronized,
Ada_Interface_Kind_Task => Type_Refs.Interface_Kind_Task,
Ada_Iter_Type_In => Type_Refs.Iter_Type_In,
Ada_Iter_Type_Of => Type_Refs.Iter_Type_Of,
Ada_Library_Item => Type_Refs.Library_Item,
Ada_Limited_Absent => Type_Refs.Limited_Absent,
Ada_Limited_Present => Type_Refs.Limited_Present,
Ada_For_Loop_Spec => Type_Refs.For_Loop_Spec,
Ada_While_Loop_Spec => Type_Refs.While_Loop_Spec,
Ada_Mode_Default => Type_Refs.Mode_Default,
Ada_Mode_In => Type_Refs.Mode_In,
Ada_Mode_In_Out => Type_Refs.Mode_In_Out,
Ada_Mode_Out => Type_Refs.Mode_Out,
Ada_Multi_Abstract_State_Decl => Type_Refs.Multi_Abstract_State_Decl,
Ada_Not_Null_Absent => Type_Refs.Not_Null_Absent,
Ada_Not_Null_Present => Type_Refs.Not_Null_Present,
Ada_Null_Component_Decl => Type_Refs.Null_Component_Decl,
Ada_Others_Designator => Type_Refs.Others_Designator,
Ada_Overriding_Not_Overriding => Type_Refs.Overriding_Not_Overriding,
Ada_Overriding_Overriding => Type_Refs.Overriding_Overriding,
Ada_Overriding_Unspecified => Type_Refs.Overriding_Unspecified,
Ada_Params => Type_Refs.Params,
Ada_Paren_Abstract_State_Decl => Type_Refs.Paren_Abstract_State_Decl,
Ada_Pp_Else_Directive => Type_Refs.Pp_Else_Directive,
Ada_Pp_Elsif_Directive => Type_Refs.Pp_Elsif_Directive,
Ada_Pp_End_If_Directive => Type_Refs.Pp_End_If_Directive,
Ada_Pp_If_Directive => Type_Refs.Pp_If_Directive,
Ada_Pp_Then_Kw => Type_Refs.Pp_Then_Kw,
Ada_Pragma_Node => Type_Refs.Pragma_Node,
Ada_Private_Absent => Type_Refs.Private_Absent,
Ada_Private_Present => Type_Refs.Private_Present,
Ada_Protected_Def => Type_Refs.Protected_Def,
Ada_Protected_Absent => Type_Refs.Protected_Absent,
Ada_Protected_Present => Type_Refs.Protected_Present,
Ada_Quantifier_All => Type_Refs.Quantifier_All,
Ada_Quantifier_Some => Type_Refs.Quantifier_Some,
Ada_Range_Spec => Type_Refs.Range_Spec,
Ada_Renaming_Clause => Type_Refs.Renaming_Clause,
Ada_Synthetic_Renaming_Clause => Type_Refs.Synthetic_Renaming_Clause,
Ada_Reverse_Absent => Type_Refs.Reverse_Absent,
Ada_Reverse_Present => Type_Refs.Reverse_Present,
Ada_Select_When_Part => Type_Refs.Select_When_Part,
Ada_Accept_Stmt => Type_Refs.Accept_Stmt,
Ada_Accept_Stmt_With_Stmts => Type_Refs.Accept_Stmt_With_Stmts,
Ada_For_Loop_Stmt => Type_Refs.For_Loop_Stmt,
Ada_Loop_Stmt => Type_Refs.Loop_Stmt,
Ada_While_Loop_Stmt => Type_Refs.While_Loop_Stmt,
Ada_Begin_Block => Type_Refs.Begin_Block,
Ada_Decl_Block => Type_Refs.Decl_Block,
Ada_Case_Stmt => Type_Refs.Case_Stmt,
Ada_Extended_Return_Stmt => Type_Refs.Extended_Return_Stmt,
Ada_If_Stmt => Type_Refs.If_Stmt,
Ada_Named_Stmt => Type_Refs.Named_Stmt,
Ada_Select_Stmt => Type_Refs.Select_Stmt,
Ada_Error_Stmt => Type_Refs.Error_Stmt,
Ada_Abort_Stmt => Type_Refs.Abort_Stmt,
Ada_Assign_Stmt => Type_Refs.Assign_Stmt,
Ada_Call_Stmt => Type_Refs.Call_Stmt,
Ada_Delay_Stmt => Type_Refs.Delay_Stmt,
Ada_Exit_Stmt => Type_Refs.Exit_Stmt,
Ada_Goto_Stmt => Type_Refs.Goto_Stmt,
Ada_Label => Type_Refs.Label,
Ada_Null_Stmt => Type_Refs.Null_Stmt,
Ada_Raise_Stmt => Type_Refs.Raise_Stmt,
Ada_Requeue_Stmt => Type_Refs.Requeue_Stmt,
Ada_Return_Stmt => Type_Refs.Return_Stmt,
Ada_Terminate_Alternative => Type_Refs.Terminate_Alternative,
Ada_Subp_Kind_Function => Type_Refs.Subp_Kind_Function,
Ada_Subp_Kind_Procedure => Type_Refs.Subp_Kind_Procedure,
Ada_Subunit => Type_Refs.Subunit,
Ada_Synchronized_Absent => Type_Refs.Synchronized_Absent,
Ada_Synchronized_Present => Type_Refs.Synchronized_Present,
Ada_Tagged_Absent => Type_Refs.Tagged_Absent,
Ada_Tagged_Present => Type_Refs.Tagged_Present,
Ada_Task_Def => Type_Refs.Task_Def,
Ada_Type_Attributes_Repository => Type_Refs.Type_Attributes_Repository,
Ada_Access_To_Subp_Def => Type_Refs.Access_To_Subp_Def,
Ada_Anonymous_Type_Access_Def => Type_Refs.Anonymous_Type_Access_Def,
Ada_Type_Access_Def => Type_Refs.Type_Access_Def,
Ada_Array_Type_Def => Type_Refs.Array_Type_Def,
Ada_Derived_Type_Def => Type_Refs.Derived_Type_Def,
Ada_Enum_Type_Def => Type_Refs.Enum_Type_Def,
Ada_Formal_Discrete_Type_Def => Type_Refs.Formal_Discrete_Type_Def,
Ada_Interface_Type_Def => Type_Refs.Interface_Type_Def,
Ada_Mod_Int_Type_Def => Type_Refs.Mod_Int_Type_Def,
Ada_Private_Type_Def => Type_Refs.Private_Type_Def,
Ada_Decimal_Fixed_Point_Def => Type_Refs.Decimal_Fixed_Point_Def,
Ada_Floating_Point_Def => Type_Refs.Floating_Point_Def,
Ada_Ordinary_Fixed_Point_Def => Type_Refs.Ordinary_Fixed_Point_Def,
Ada_Record_Type_Def => Type_Refs.Record_Type_Def,
Ada_Signed_Int_Type_Def => Type_Refs.Signed_Int_Type_Def,
Ada_Anonymous_Type => Type_Refs.Anonymous_Type,
Ada_Enum_Lit_Synth_Type_Expr => Type_Refs.Enum_Lit_Synth_Type_Expr,
Ada_Subtype_Indication => Type_Refs.Subtype_Indication,
Ada_Constrained_Subtype_Indication => Type_Refs.Constrained_Subtype_Indication,
Ada_Discrete_Subtype_Indication => Type_Refs.Discrete_Subtype_Indication,
Ada_Synthetic_Type_Expr => Type_Refs.Synthetic_Type_Expr,
Ada_Unconstrained_Array_Index => Type_Refs.Unconstrained_Array_Index,
Ada_Until_Absent => Type_Refs.Until_Absent,
Ada_Until_Present => Type_Refs.Until_Present,
Ada_Use_Package_Clause => Type_Refs.Use_Package_Clause,
Ada_Use_Type_Clause => Type_Refs.Use_Type_Clause,
Ada_Value_Sequence => Type_Refs.Value_Sequence,
Ada_Variant => Type_Refs.Variant,
Ada_Variant_Part => Type_Refs.Variant_Part,
Ada_With_Clause => Type_Refs.With_Clause,
Ada_With_Private_Absent => Type_Refs.With_Private_Absent,
Ada_With_Private_Present => Type_Refs.With_Private_Present
   );

   -----------------------
   -- Member references --
   -----------------------

   package Member_Refs is
         Aspect_Exists : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 1);
         Aspect_Node : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 2);
         Aspect_Value : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 3);
         Aspect_Inherited : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 4);
         Completion_Item_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 5);
         Completion_Item_Is_Dot_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 6);
         Completion_Item_Is_Visible : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 7);
         Completion_Item_Weight : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 8);
         Discrete_Range_Low_Bound : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 9);
         Discrete_Range_High_Bound : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 10);
         Discriminant_Values_Discriminant : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 11);
         Discriminant_Values_Values : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 12);
         Doc_Annotation_Key : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 13);
         Doc_Annotation_Value : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 14);
         Param_Actual_Param : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 15);
         Param_Actual_Actual : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 16);
         Ref_Result_Ref : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 17);
         Ref_Result_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 18);
         Refd_Decl_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 19);
         Refd_Decl_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 20);
         Refd_Def_Def_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 21);
         Refd_Def_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 22);
         Shape_Components : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 23);
         Shape_Discriminants_Values : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 24);
         Substitution_From_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 25);
         Substitution_To_Value : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 26);
         Substitution_Value_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 27);
         Constrained_Array_Indices_F_List : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 28);
         Unconstrained_Array_Indices_F_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 29);
         Aspect_Assoc_F_Id : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 30);
         Aspect_Assoc_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 31);
         At_Clause_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 32);
         At_Clause_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 33);
         Attribute_Def_Clause_F_Attribute_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 34);
         Attribute_Def_Clause_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 35);
         Enum_Rep_Clause_F_Type_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 36);
         Enum_Rep_Clause_F_Aggregate : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 37);
         Record_Rep_Clause_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 38);
         Record_Rep_Clause_F_At_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 39);
         Record_Rep_Clause_F_Components : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 40);
         Aspect_Spec_F_Aspect_Assocs : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 41);
         Contract_Case_Assoc_F_Guard : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 42);
         Contract_Case_Assoc_F_Consequence : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 43);
         Pragma_Argument_Assoc_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 44);
         Pragma_Argument_Assoc_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 45);
         Entry_Spec_F_Entry_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 46);
         Entry_Spec_F_Family_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 47);
         Entry_Spec_F_Entry_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 48);
         Subp_Spec_F_Subp_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 49);
         Subp_Spec_F_Subp_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 50);
         Subp_Spec_F_Subp_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 51);
         Subp_Spec_F_Subp_Returns : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 52);
         Synthetic_Binary_Spec_F_Left_Param : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 53);
         Synthetic_Binary_Spec_F_Right_Param : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 54);
         Synthetic_Binary_Spec_F_Return_Type_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 55);
         Synthetic_Unary_Spec_F_Right_Param : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 56);
         Synthetic_Unary_Spec_F_Return_Type_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 57);
         Component_List_F_Components : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 58);
         Component_List_F_Variant_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 59);
         Known_Discriminant_Part_F_Discr_Specs : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 60);
         Entry_Completion_Formal_Params_F_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 61);
         Generic_Formal_Part_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 62);
         Base_Record_Def_F_Components : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 63);
         Aggregate_Assoc_F_Designators : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 64);
         Aggregate_Assoc_F_R_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 65);
         Composite_Constraint_Assoc_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 66);
         Composite_Constraint_Assoc_F_Constraint_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 67);
         Iterated_Assoc_F_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 68);
         Iterated_Assoc_F_R_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 69);
         Param_Assoc_F_Designator : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 70);
         Param_Assoc_F_R_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 71);
         Basic_Decl_F_Aspects : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 72);
         Abstract_State_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 73);
         Anonymous_Expr_Decl_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 74);
         Component_Decl_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 75);
         Component_Decl_F_Component_Def : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 76);
         Component_Decl_F_Default_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 77);
         Discriminant_Spec_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 78);
         Discriminant_Spec_F_Type_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 79);
         Discriminant_Spec_F_Default_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 80);
         Generic_Formal_F_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 81);
         Param_Spec_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 82);
         Param_Spec_F_Has_Aliased : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 83);
         Param_Spec_F_Mode : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 84);
         Param_Spec_F_Type_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 85);
         Param_Spec_F_Default_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 86);
         Synthetic_Formal_Param_Decl_F_Param_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 87);
         Base_Package_Decl_F_Package_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 88);
         Base_Package_Decl_F_Public_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 89);
         Base_Package_Decl_F_Private_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 90);
         Base_Package_Decl_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 91);
         Base_Type_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 92);
         Subtype_Decl_F_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 93);
         Incomplete_Type_Decl_F_Discriminants : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 94);
         Incomplete_Formal_Type_Decl_F_Is_Tagged : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 95);
         Incomplete_Formal_Type_Decl_F_Default_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 96);
         Incomplete_Tagged_Type_Decl_F_Has_Abstract : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 97);
         Protected_Type_Decl_F_Discriminants : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 98);
         Protected_Type_Decl_F_Interfaces : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 99);
         Protected_Type_Decl_F_Definition : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 100);
         Task_Type_Decl_F_Discriminants : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 101);
         Task_Type_Decl_F_Definition : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 102);
         Type_Decl_F_Discriminants : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 103);
         Type_Decl_F_Type_Def : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 104);
         Formal_Type_Decl_F_Default_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 105);
         Classic_Subp_Decl_F_Overriding : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 106);
         Classic_Subp_Decl_F_Subp_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 107);
         Formal_Subp_Decl_F_Default_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 108);
         Entry_Decl_F_Overriding : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 109);
         Entry_Decl_F_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 110);
         Enum_Literal_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 111);
         Generic_Subp_Internal_F_Subp_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 112);
         Synthetic_Subp_Decl_F_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 113);
         Accept_Stmt_Body_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 114);
         Base_Subp_Body_F_Overriding : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 115);
         Base_Subp_Body_F_Subp_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 116);
         Expr_Function_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 117);
         Subp_Body_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 118);
         Subp_Body_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 119);
         Subp_Body_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 120);
         Subp_Renaming_Decl_F_Renames : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 121);
         Package_Body_Stub_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 122);
         Protected_Body_Stub_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 123);
         Subp_Body_Stub_F_Overriding : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 124);
         Subp_Body_Stub_F_Subp_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 125);
         Task_Body_Stub_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 126);
         Entry_Body_F_Entry_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 127);
         Entry_Body_F_Index_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 128);
         Entry_Body_F_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 129);
         Entry_Body_F_Barrier : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 130);
         Entry_Body_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 131);
         Entry_Body_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 132);
         Entry_Body_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 133);
         Package_Body_F_Package_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 134);
         Package_Body_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 135);
         Package_Body_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 136);
         Package_Body_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 137);
         Protected_Body_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 138);
         Protected_Body_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 139);
         Protected_Body_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 140);
         Task_Body_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 141);
         Task_Body_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 142);
         Task_Body_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 143);
         Task_Body_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 144);
         Entry_Index_Spec_F_Id : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 145);
         Entry_Index_Spec_F_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 146);
         Exception_Decl_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 147);
         Exception_Decl_F_Renames : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 148);
         Exception_Handler_F_Exception_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 149);
         Exception_Handler_F_Handled_Exceptions : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 150);
         Exception_Handler_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 151);
         For_Loop_Var_Decl_F_Id : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 152);
         For_Loop_Var_Decl_F_Id_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 153);
         Generic_Decl_F_Formal_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 154);
         Generic_Package_Decl_F_Package_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 155);
         Generic_Subp_Decl_F_Subp_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 156);
         Generic_Package_Instantiation_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 157);
         Generic_Package_Instantiation_F_Generic_Pkg_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 158);
         Generic_Package_Instantiation_F_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 159);
         Generic_Subp_Instantiation_F_Overriding : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 160);
         Generic_Subp_Instantiation_F_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 161);
         Generic_Subp_Instantiation_F_Subp_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 162);
         Generic_Subp_Instantiation_F_Generic_Subp_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 163);
         Generic_Subp_Instantiation_F_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 164);
         Generic_Package_Renaming_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 165);
         Generic_Package_Renaming_Decl_F_Renames : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 166);
         Generic_Subp_Renaming_Decl_F_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 167);
         Generic_Subp_Renaming_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 168);
         Generic_Subp_Renaming_Decl_F_Renames : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 169);
         Label_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 170);
         Named_Stmt_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 171);
         Number_Decl_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 172);
         Number_Decl_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 173);
         Object_Decl_F_Ids : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 174);
         Object_Decl_F_Has_Aliased : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 175);
         Object_Decl_F_Has_Constant : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 176);
         Object_Decl_F_Mode : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 177);
         Object_Decl_F_Type_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 178);
         Object_Decl_F_Default_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 179);
         Object_Decl_F_Renaming_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 180);
         Package_Renaming_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 181);
         Package_Renaming_Decl_F_Renames : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 182);
         Single_Protected_Decl_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 183);
         Single_Protected_Decl_F_Interfaces : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 184);
         Single_Protected_Decl_F_Definition : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 185);
         Single_Task_Decl_F_Task_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 186);
         Case_Stmt_Alternative_F_Choices : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 187);
         Case_Stmt_Alternative_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 188);
         Compilation_Unit_F_Prelude : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 189);
         Compilation_Unit_F_Body : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 190);
         Compilation_Unit_F_Pragmas : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 191);
         Component_Clause_F_Id : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 192);
         Component_Clause_F_Position : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 193);
         Component_Clause_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 194);
         Component_Def_F_Has_Aliased : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 195);
         Component_Def_F_Has_Constant : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 196);
         Component_Def_F_Type_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 197);
         Composite_Constraint_F_Constraints : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 198);
         Delta_Constraint_F_Digits : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 199);
         Delta_Constraint_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 200);
         Digits_Constraint_F_Digits : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 201);
         Digits_Constraint_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 202);
         Range_Constraint_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 203);
         Declarative_Part_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 204);
         Elsif_Expr_Part_F_Cond_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 205);
         Elsif_Expr_Part_F_Then_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 206);
         Elsif_Stmt_Part_F_Cond_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 207);
         Elsif_Stmt_Part_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 208);
         Abstract_State_Decl_Expr_F_State_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 209);
         Allocator_F_Subpool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 210);
         Allocator_F_Type_Or_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 211);
         Base_Aggregate_F_Ancestor_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 212);
         Base_Aggregate_F_Assocs : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 213);
         Bin_Op_F_Left : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 214);
         Bin_Op_F_Op : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 215);
         Bin_Op_F_Right : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 216);
         Case_Expr_Alternative_F_Choices : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 217);
         Case_Expr_Alternative_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 218);
         Concat_Op_F_First_Operand : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 219);
         Concat_Op_F_Other_Operands : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 220);
         Concat_Operand_F_Operator : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 221);
         Concat_Operand_F_Operand : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 222);
         Case_Expr_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 223);
         Case_Expr_F_Cases : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 224);
         If_Expr_F_Cond_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 225);
         If_Expr_F_Then_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 226);
         If_Expr_F_Alternatives : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 227);
         If_Expr_F_Else_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 228);
         Contract_Cases_F_Contract_Cases : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 229);
         Decl_Expr_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 230);
         Decl_Expr_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 231);
         Membership_Expr_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 232);
         Membership_Expr_F_Op : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 233);
         Membership_Expr_F_Membership_Exprs : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 234);
         Attribute_Ref_F_Prefix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 235);
         Attribute_Ref_F_Attribute : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 236);
         Attribute_Ref_F_Args : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 237);
         Call_Expr_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 238);
         Call_Expr_F_Suffix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 239);
         Defining_Name_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 240);
         Discrete_Subtype_Name_F_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 241);
         Dotted_Name_F_Prefix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 242);
         Dotted_Name_F_Suffix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 243);
         End_Name_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 244);
         Explicit_Deref_F_Prefix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 245);
         Qual_Expr_F_Prefix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 246);
         Qual_Expr_F_Suffix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 247);
         Reduce_Attribute_Ref_F_Prefix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 248);
         Reduce_Attribute_Ref_F_Attribute : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 249);
         Reduce_Attribute_Ref_F_Args : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 250);
         Update_Attribute_Ref_F_Prefix : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 251);
         Update_Attribute_Ref_F_Attribute : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 252);
         Update_Attribute_Ref_F_Values : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 253);
         Paren_Expr_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 254);
         Quantified_Expr_F_Quantifier : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 255);
         Quantified_Expr_F_Loop_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 256);
         Quantified_Expr_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 257);
         Raise_Expr_F_Exception_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 258);
         Raise_Expr_F_Error_Message : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 259);
         Un_Op_F_Op : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 260);
         Un_Op_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 261);
         Handled_Stmts_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 262);
         Handled_Stmts_F_Exceptions : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 263);
         Library_Item_F_Has_Private : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 264);
         Library_Item_F_Item : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 265);
         For_Loop_Spec_F_Var_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 266);
         For_Loop_Spec_F_Loop_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 267);
         For_Loop_Spec_F_Has_Reverse : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 268);
         For_Loop_Spec_F_Iter_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 269);
         For_Loop_Spec_F_Iter_Filter : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 270);
         While_Loop_Spec_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 271);
         Multi_Abstract_State_Decl_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 272);
         Params_F_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 273);
         Paren_Abstract_State_Decl_F_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 274);
         Pp_Elsif_Directive_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 275);
         Pp_Elsif_Directive_F_Then_Kw : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 276);
         Pp_If_Directive_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 277);
         Pp_If_Directive_F_Then_Kw : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 278);
         Pragma_Node_F_Id : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 279);
         Pragma_Node_F_Args : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 280);
         Protected_Def_F_Public_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 281);
         Protected_Def_F_Private_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 282);
         Protected_Def_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 283);
         Range_Spec_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 284);
         Renaming_Clause_F_Renamed_Object : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 285);
         Select_When_Part_F_Cond_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 286);
         Select_When_Part_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 287);
         Accept_Stmt_F_Body_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 288);
         Accept_Stmt_F_Entry_Index_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 289);
         Accept_Stmt_F_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 290);
         Accept_Stmt_With_Stmts_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 291);
         Accept_Stmt_With_Stmts_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 292);
         Base_Loop_Stmt_F_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 293);
         Base_Loop_Stmt_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 294);
         Base_Loop_Stmt_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 295);
         Begin_Block_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 296);
         Begin_Block_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 297);
         Decl_Block_F_Decls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 298);
         Decl_Block_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 299);
         Decl_Block_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 300);
         Case_Stmt_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 301);
         Case_Stmt_F_Pragmas : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 302);
         Case_Stmt_F_Alternatives : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 303);
         Extended_Return_Stmt_F_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 304);
         Extended_Return_Stmt_F_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 305);
         If_Stmt_F_Cond_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 306);
         If_Stmt_F_Then_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 307);
         If_Stmt_F_Alternatives : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 308);
         If_Stmt_F_Else_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 309);
         Named_Stmt_F_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 310);
         Named_Stmt_F_Stmt : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 311);
         Select_Stmt_F_Guards : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 312);
         Select_Stmt_F_Else_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 313);
         Select_Stmt_F_Abort_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 314);
         Abort_Stmt_F_Names : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 315);
         Assign_Stmt_F_Dest : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 316);
         Assign_Stmt_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 317);
         Call_Stmt_F_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 318);
         Delay_Stmt_F_Has_Until : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 319);
         Delay_Stmt_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 320);
         Exit_Stmt_F_Loop_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 321);
         Exit_Stmt_F_Cond_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 322);
         Goto_Stmt_F_Label_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 323);
         Label_F_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 324);
         Raise_Stmt_F_Exception_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 325);
         Raise_Stmt_F_Error_Message : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 326);
         Requeue_Stmt_F_Call_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 327);
         Requeue_Stmt_F_Has_Abort : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 328);
         Return_Stmt_F_Return_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 329);
         Subunit_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 330);
         Subunit_F_Body : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 331);
         Task_Def_F_Interfaces : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 332);
         Task_Def_F_Public_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 333);
         Task_Def_F_Private_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 334);
         Task_Def_F_End_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 335);
         Access_Def_F_Has_Not_Null : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 336);
         Access_To_Subp_Def_F_Has_Protected : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 337);
         Access_To_Subp_Def_F_Subp_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 338);
         Anonymous_Type_Access_Def_F_Type_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 339);
         Type_Access_Def_F_Has_All : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 340);
         Type_Access_Def_F_Has_Constant : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 341);
         Type_Access_Def_F_Subtype_Indication : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 342);
         Array_Type_Def_F_Indices : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 343);
         Array_Type_Def_F_Component_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 344);
         Derived_Type_Def_F_Has_Abstract : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 345);
         Derived_Type_Def_F_Has_Limited : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 346);
         Derived_Type_Def_F_Has_Synchronized : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 347);
         Derived_Type_Def_F_Subtype_Indication : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 348);
         Derived_Type_Def_F_Interfaces : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 349);
         Derived_Type_Def_F_Record_Extension : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 350);
         Derived_Type_Def_F_Has_With_Private : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 351);
         Enum_Type_Def_F_Enum_Literals : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 352);
         Interface_Type_Def_F_Interface_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 353);
         Interface_Type_Def_F_Interfaces : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 354);
         Mod_Int_Type_Def_F_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 355);
         Private_Type_Def_F_Has_Abstract : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 356);
         Private_Type_Def_F_Has_Tagged : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 357);
         Private_Type_Def_F_Has_Limited : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 358);
         Decimal_Fixed_Point_Def_F_Delta : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 359);
         Decimal_Fixed_Point_Def_F_Digits : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 360);
         Decimal_Fixed_Point_Def_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 361);
         Floating_Point_Def_F_Num_Digits : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 362);
         Floating_Point_Def_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 363);
         Ordinary_Fixed_Point_Def_F_Delta : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 364);
         Ordinary_Fixed_Point_Def_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 365);
         Record_Type_Def_F_Has_Abstract : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 366);
         Record_Type_Def_F_Has_Tagged : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 367);
         Record_Type_Def_F_Has_Limited : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 368);
         Record_Type_Def_F_Record_Def : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 369);
         Signed_Int_Type_Def_F_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 370);
         Anonymous_Type_F_Type_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 371);
         Subtype_Indication_F_Has_Not_Null : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 372);
         Subtype_Indication_F_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 373);
         Subtype_Indication_F_Constraint : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 374);
         Synthetic_Type_Expr_F_Target_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 375);
         Unconstrained_Array_Index_F_Subtype_Indication : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 376);
         Use_Package_Clause_F_Packages : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 377);
         Use_Type_Clause_F_Has_All : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 378);
         Use_Type_Clause_F_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 379);
         Value_Sequence_F_Iter_Assoc : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 380);
         Variant_F_Choices : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 381);
         Variant_F_Components : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 382);
         Variant_Part_F_Discr_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 383);
         Variant_Part_F_Variant : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 384);
         With_Clause_F_Has_Limited : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 385);
         With_Clause_F_Has_Private : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 386);
         With_Clause_F_Packages : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 387);
         Ada_Node_P_Declarative_Scope : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 388);
         Ada_Node_P_Enclosing_Compilation_Unit : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 389);
         Ada_Node_P_Get_Uninstantiated_Node : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 390);
         Ada_Node_P_Complete : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 391);
         Ada_Node_P_Valid_Keywords : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 392);
         Ada_Node_P_Generic_Instantiations : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 393);
         Ada_Node_P_Semantic_Parent : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 394);
         Ada_Node_P_Parent_Basic_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 395);
         Ada_Node_P_Filter_Is_Imported_By : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 396);
         Ada_Node_P_Xref_Entry_Point : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 397);
         Ada_Node_P_Resolve_Names : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 398);
         Ada_Node_P_Standard_Unit : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 399);
         Ada_Node_P_Std_Entity : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 400);
         Ada_Node_P_Bool_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 401);
         Ada_Node_P_Int_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 402);
         Ada_Node_P_Universal_Int_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 403);
         Ada_Node_P_Universal_Real_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 404);
         Ada_Node_P_Std_Char_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 405);
         Ada_Node_P_Std_Wide_Char_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 406);
         Ada_Node_P_Std_Wide_Wide_Char_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 407);
         Ada_Node_P_Top_Level_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 408);
         Ada_Node_P_Choice_Match : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 409);
         Ada_Node_P_Gnat_Xref : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 410);
         Parent : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 411);
         Parents : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 412);
         Children : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 413);
         Token_Start : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 414);
         Token_End : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 415);
         Child_Index : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 416);
         Previous_Sibling : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 417);
         Next_Sibling : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 418);
         Unit : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 419);
         Is_Ghost : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 420);
         Full_Sloc_Image : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 421);
         Abort_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 422);
         Abstract_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 423);
         Assoc_List_P_Zip_With_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 424);
         Aliased_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 425);
         All_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 426);
         Aspect_Assoc_P_Is_Ghost_Code : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 427);
         Enum_Rep_Clause_P_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 428);
         Base_Assoc_P_Assoc_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 429);
         Base_Formal_Param_Holder_P_Abstract_Formal_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 430);
         Base_Formal_Param_Holder_P_Formal_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 431);
         Base_Formal_Param_Holder_P_Nb_Min_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 432);
         Base_Formal_Param_Holder_P_Nb_Max_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 433);
         Base_Formal_Param_Holder_P_Param_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 434);
         Base_Subp_Spec_P_Returns : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 435);
         Base_Subp_Spec_P_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 436);
         Base_Subp_Spec_P_Primitive_Subp_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 437);
         Base_Subp_Spec_P_Primitive_Subp_First_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 438);
         Base_Subp_Spec_P_Primitive_Subp_Tagged_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 439);
         Base_Subp_Spec_P_Return_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 440);
         Basic_Assoc_P_Get_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 441);
         Basic_Decl_P_Is_Formal : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 442);
         Basic_Decl_P_Doc_Annotations : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 443);
         Basic_Decl_P_Doc : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 444);
         Basic_Decl_P_Previous_Part_For_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 445);
         Basic_Decl_P_Canonical_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 446);
         Basic_Decl_P_All_Parts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 447);
         Basic_Decl_P_Is_Static_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 448);
         Basic_Decl_P_Get_Aspect_Assoc : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 449);
         Basic_Decl_P_Get_Aspect_Spec_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 450);
         Basic_Decl_P_Get_Aspect : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 451);
         Basic_Decl_P_Has_Aspect : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 452);
         Basic_Decl_P_Get_Pragma : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 453);
         Basic_Decl_P_Get_Representation_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 454);
         Basic_Decl_P_Get_At_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 455);
         Basic_Decl_P_Is_Imported : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 456);
         Basic_Decl_P_Is_Ghost_Code : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 457);
         Basic_Decl_P_Is_Compilation_Unit_Root : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 458);
         Basic_Decl_P_Is_Visible : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 459);
         Basic_Decl_P_Base_Subp_Declarations : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 460);
         Basic_Decl_P_Root_Subp_Declarations : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 461);
         Basic_Decl_P_Find_All_Overrides : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 462);
         Basic_Decl_P_Defining_Names : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 463);
         Basic_Decl_P_Defining_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 464);
         Basic_Decl_P_Type_Expression : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 465);
         Basic_Decl_P_Subp_Spec_Or_Null : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 466);
         Basic_Decl_P_Is_Subprogram : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 467);
         Basic_Decl_P_Relative_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 468);
         Basic_Decl_P_Relative_Name_Text : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 469);
         Basic_Decl_P_Next_Part_For_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 470);
         Basic_Decl_P_Body_Part_For_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 471);
         Basic_Decl_P_Most_Visible_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 472);
         Basic_Decl_P_Fully_Qualified_Name_Array : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 473);
         Basic_Decl_P_Fully_Qualified_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 474);
         Basic_Decl_P_Canonical_Fully_Qualified_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 475);
         Basic_Decl_P_Unique_Identifying_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 476);
         Basic_Decl_P_Is_Constant_Object : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 477);
         Anonymous_Expr_Decl_P_Get_Formal : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 478);
         Base_Formal_Param_Decl_P_Formal_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 479);
         Base_Package_Decl_P_Body_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 480);
         Base_Type_Decl_P_Base_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 481);
         Base_Type_Decl_P_Private_Completion : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 482);
         Base_Type_Decl_P_Is_Inherited_Primitive : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 483);
         Base_Type_Decl_P_Get_Record_Representation_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 484);
         Base_Type_Decl_P_Get_Enum_Representation_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 485);
         Base_Type_Decl_P_Is_Record_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 486);
         Base_Type_Decl_P_Is_Array_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 487);
         Base_Type_Decl_P_Find_Derived_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 488);
         Base_Type_Decl_P_Is_Real_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 489);
         Base_Type_Decl_P_Is_Float_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 490);
         Base_Type_Decl_P_Is_Fixed_Point : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 491);
         Base_Type_Decl_P_Is_Scalar_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 492);
         Base_Type_Decl_P_Is_Enum_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 493);
         Base_Type_Decl_P_Is_Access_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 494);
         Base_Type_Decl_P_Specific_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 495);
         Base_Type_Decl_P_Is_Char_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 496);
         Base_Type_Decl_P_Classwide_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 497);
         Base_Type_Decl_P_Discrete_Range : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 498);
         Base_Type_Decl_P_Is_Discrete_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 499);
         Base_Type_Decl_P_Is_Int_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 500);
         Base_Type_Decl_P_Accessed_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 501);
         Base_Type_Decl_P_Is_Tagged_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 502);
         Base_Type_Decl_P_Base_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 503);
         Base_Type_Decl_P_Base_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 504);
         Base_Type_Decl_P_Find_All_Derived_Types : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 505);
         Base_Type_Decl_P_Comp_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 506);
         Base_Type_Decl_P_Index_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 507);
         Base_Type_Decl_P_Is_Derived_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 508);
         Base_Type_Decl_P_Is_Interface_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 509);
         Base_Type_Decl_P_Matching_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 510);
         Base_Type_Decl_P_Canonical_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 511);
         Base_Type_Decl_P_Previous_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 512);
         Base_Type_Decl_P_Next_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 513);
         Base_Type_Decl_P_Full_View : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 514);
         Base_Type_Decl_P_Is_Definite_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 515);
         Base_Type_Decl_P_Is_Private : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 516);
         Base_Type_Decl_P_Discriminants_List : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 517);
         Base_Type_Decl_P_Root_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 518);
         Base_Type_Decl_P_Shapes : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 519);
         Base_Subtype_Decl_P_Get_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 520);
         Type_Decl_P_Get_Primitives : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 521);
         Basic_Subp_Decl_P_Has_Spark_Mode_On : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 522);
         Basic_Subp_Decl_P_Subp_Decl_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 523);
         Classic_Subp_Decl_P_Body_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 524);
         Entry_Decl_P_Body_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 525);
         Entry_Decl_P_Accept_Stmts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 526);
         Enum_Literal_Decl_P_Enum_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 527);
         Enum_Literal_Decl_P_Enum_Rep : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 528);
         Synthetic_Char_Enum_Lit_P_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 529);
         Body_Node_P_Previous_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 530);
         Body_Node_P_Decl_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 531);
         Body_Node_P_Subunit_Root : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 532);
         Base_Subp_Body_P_Is_Subject_To_Proof : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 533);
         Base_Subp_Body_P_Has_Spark_Mode_On : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 534);
         Body_Stub_P_Syntactic_Fully_Qualified_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 535);
         Generic_Package_Decl_P_Body_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 536);
         Generic_Subp_Decl_P_Body_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 537);
         Generic_Instantiation_P_Designated_Generic_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 538);
         Generic_Instantiation_P_Inst_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 539);
         Generic_Subp_Instantiation_P_Designated_Subp : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 540);
         Object_Decl_P_Private_Part_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 541);
         Object_Decl_P_Public_Part_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 542);
         Package_Renaming_Decl_P_Renamed_Package : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 543);
         Package_Renaming_Decl_P_Final_Renamed_Package : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 544);
         Compilation_Unit_P_Syntactic_Fully_Qualified_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 545);
         Compilation_Unit_P_Unit_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 546);
         Compilation_Unit_P_Withed_Units : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 547);
         Compilation_Unit_P_Imported_Units : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 548);
         Compilation_Unit_P_Unit_Dependencies : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 549);
         Compilation_Unit_P_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 550);
         Compilation_Unit_P_Is_Preelaborable : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 551);
         Compilation_Unit_P_Other_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 552);
         Compilation_Unit_P_Has_Restriction : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 553);
         Compilation_Unit_P_All_Config_Pragmas : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 554);
         Compilation_Unit_P_Config_Pragmas : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 555);
         Constant_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 556);
         Composite_Constraint_P_Is_Index_Constraint : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 557);
         Composite_Constraint_P_Is_Discriminant_Constraint : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 558);
         Expr_P_Expression_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 559);
         Expr_P_Expected_Expression_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 560);
         Expr_P_Is_Dynamically_Tagged : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 561);
         Expr_P_Is_Dispatching_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 562);
         Expr_P_Is_Static_Expr : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 563);
         Expr_P_First_Corresponding_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 564);
         Expr_P_Eval_As_Int : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 565);
         Expr_P_Eval_As_Int_In_Env : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 566);
         Expr_P_Eval_As_String : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 567);
         Expr_P_Eval_As_String_In_Env : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 568);
         Expr_P_Matching_Nodes : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 569);
         Allocator_P_Get_Allocated_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 570);
         Base_Aggregate_P_Aggregate_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 571);
         Base_Aggregate_P_Is_Subaggregate : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 572);
         Concat_Op_P_Operands : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 573);
         Cond_Expr_P_Dependent_Exprs : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 574);
         Name_P_Enclosing_Defining_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 575);
         Name_P_Is_Defining : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 576);
         Name_P_Name_Is : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 577);
         Name_P_Is_Direct_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 578);
         Name_P_Is_Access_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 579);
         Name_P_Is_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 580);
         Name_P_Is_Dot_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 581);
         Name_P_Failsafe_Referenced_Def_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 582);
         Name_P_Referenced_Defining_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 583);
         Name_P_All_Env_Elements : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 584);
         Name_P_Called_Subp_Spec : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 585);
         Name_P_Referenced_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 586);
         Name_P_Failsafe_Referenced_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 587);
         Name_P_Name_Designated_Type : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 588);
         Name_P_Is_Static_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 589);
         Name_P_Name_Matches : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 590);
         Name_P_Relative_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 591);
         Name_P_Is_Operator_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 592);
         Name_P_Is_Write_Reference : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 593);
         Name_P_Is_Static_Call : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 594);
         Name_P_As_Symbol_Array : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 595);
         Name_P_Canonical_Text : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 596);
         Name_P_Is_Constant : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 597);
         Name_P_Call_Params : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 598);
         Call_Expr_P_Kind : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 599);
         Call_Expr_P_Is_Array_Slice : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 600);
         Defining_Name_P_Canonical_Fully_Qualified_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 601);
         Defining_Name_P_Unique_Identifying_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 602);
         Defining_Name_P_Fully_Qualified_Name_Array : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 603);
         Defining_Name_P_Fully_Qualified_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 604);
         Defining_Name_P_Basic_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 605);
         Defining_Name_P_Find_Refs : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 606);
         Defining_Name_P_Find_All_References : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 607);
         Defining_Name_P_Find_All_Calls : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 608);
         Defining_Name_P_Next_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 609);
         Defining_Name_P_Previous_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 610);
         Defining_Name_P_Canonical_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 611);
         Defining_Name_P_Most_Visible_Part : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 612);
         Defining_Name_P_All_Parts : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 613);
         Defining_Name_P_Get_Aspect : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 614);
         Defining_Name_P_Has_Aspect : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 615);
         Defining_Name_P_Get_Pragma : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 616);
         Defining_Name_P_Get_Representation_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 617);
         Defining_Name_P_Get_At_Clause : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 618);
         Defining_Name_P_Is_Imported : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 619);
         Defining_Name_P_Is_Ghost_Code : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 620);
         End_Name_P_Basic_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 621);
         Char_Literal_P_Denoted_Value : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 622);
         String_Literal_P_Denoted_Value : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 623);
         Int_Literal_P_Denoted_Value : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 624);
         Limited_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 625);
         Not_Null_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 626);
         Pragma_Node_P_Is_Ghost_Code : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 627);
         Pragma_Node_P_Associated_Entities : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 628);
         Private_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 629);
         Protected_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 630);
         Reverse_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 631);
         Stmt_P_Is_Ghost_Code : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 632);
         Accept_Stmt_P_Corresponding_Entry : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 633);
         Subunit_P_Body_Root : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 634);
         Synchronized_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 635);
         Tagged_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 636);
         Type_Expr_P_Type_Name : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 637);
         Type_Expr_P_Designated_Type_Decl : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 638);
         Type_Expr_P_Designated_Type_Decl_From : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 639);
         Subtype_Indication_P_Subtype_Constraints : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 640);
         Subtype_Indication_P_Is_Static_Subtype : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 641);
         Until_Node_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 642);
         With_Private_P_As_Bool : constant G.Struct_Member_Ref :=
           G.From_Index (Self_Id, 643);
   end Member_Refs;

end Libadalang.Generic_API.Introspection;