/*--------------------------------------------------------------------------*/ /* */ /* GNAT COMPILER COMPONENTS */ /* */ /* E I N F O */ /* */ /* C Header File */ /* */ /* Generated by xeinfo revision 1.2 using */ /* einfo.ads revision 1.7 */ /* einfo.adb revision 1.4 */ /* */ /* Copyright (C) 1992-2001 Free Software Foundation, Inc. */ /* */ /* GNAT is free software; you can redistribute it and/or modify it under */ /* terms of the GNU General Public License as published by the Free Soft- */ /* ware Foundation; either version 2, or (at your option) any later ver- */ /* sion. GNAT is distributed in the hope that it will be useful, but WITH- */ /* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY */ /* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License */ /* for more details. You should have received a copy of the GNU General */ /* Public License distributed with GNAT; see file COPYING. If not, write */ /* to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, */ /* MA 02111-1307, USA. */ /* */ /* As a special exception, if other files instantiate generics from this */ /* unit, or you link this unit with other files to produce an executable, */ /* this unit does not by itself cause the resulting executable to be */ /* covered by the GNU General Public License. This exception does not */ /* however invalidate any other reasons why the executable file might be */ /* covered by the GNU Public License. */ /* */ /* GNAT was originally developed by the GNAT team at New York University. */ /* It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). */ /* */ /*--------------------------------------------------------------------------*/ #define E_Void 0 #define E_Variable 1 #define E_Component 2 #define E_Constant 3 #define E_Discriminant 4 #define E_Loop_Parameter 5 #define E_In_Parameter 6 #define E_Out_Parameter 7 #define E_In_Out_Parameter 8 #define E_Generic_In_Out_Parameter 9 #define E_Generic_In_Parameter 10 #define E_Named_Integer 11 #define E_Named_Real 12 #define E_Enumeration_Type 13 #define E_Enumeration_Subtype 14 #define E_Signed_Integer_Type 15 #define E_Signed_Integer_Subtype 16 #define E_Modular_Integer_Type 17 #define E_Modular_Integer_Subtype 18 #define E_Ordinary_Fixed_Point_Type 19 #define E_Ordinary_Fixed_Point_Subtype 20 #define E_Decimal_Fixed_Point_Type 21 #define E_Decimal_Fixed_Point_Subtype 22 #define E_Floating_Point_Type 23 #define E_Floating_Point_Subtype 24 #define E_Access_Type 25 #define E_Access_Subtype 26 #define E_Access_Attribute_Type 27 #define E_Allocator_Type 28 #define E_General_Access_Type 29 #define E_Access_Subprogram_Type 30 #define E_Access_Protected_Subprogram_Type 31 #define E_Anonymous_Access_Type 32 #define E_Array_Type 33 #define E_Array_Subtype 34 #define E_String_Type 35 #define E_String_Subtype 36 #define E_String_Literal_Subtype 37 #define E_Class_Wide_Type 38 #define E_Class_Wide_Subtype 39 #define E_Record_Type 40 #define E_Record_Subtype 41 #define E_Record_Type_With_Private 42 #define E_Record_Subtype_With_Private 43 #define E_Private_Type 44 #define E_Private_Subtype 45 #define E_Limited_Private_Type 46 #define E_Limited_Private_Subtype 47 #define E_Incomplete_Type 48 #define E_Task_Type 49 #define E_Task_Subtype 50 #define E_Protected_Type 51 #define E_Protected_Subtype 52 #define E_Exception_Type 53 #define E_Subprogram_Type 54 #define E_Enumeration_Literal 55 #define E_Function 56 #define E_Operator 57 #define E_Procedure 58 #define E_Entry 59 #define E_Entry_Family 60 #define E_Block 61 #define E_Entry_Index_Parameter 62 #define E_Exception 63 #define E_Generic_Function 64 #define E_Generic_Package 65 #define E_Generic_Procedure 66 #define E_Label 67 #define E_Loop 68 #define E_Package 69 #define E_Package_Body 70 #define E_Protected_Object 71 #define E_Protected_Body 72 #define E_Task_Body 73 #define E_Subprogram_Body 74 SUBTYPE (Access_Kind, Entity_Kind, E_Access_Type, E_Anonymous_Access_Type) SUBTYPE (Array_Kind, Entity_Kind, E_Array_Type, E_String_Literal_Subtype) SUBTYPE (Class_Wide_Kind, Entity_Kind, E_Class_Wide_Type, E_Class_Wide_Subtype) SUBTYPE (Composite_Kind, Entity_Kind, E_Array_Type, E_Protected_Subtype) SUBTYPE (Concurrent_Kind, Entity_Kind, E_Task_Type, E_Protected_Subtype) SUBTYPE (Concurrent_Body_Kind, Entity_Kind, E_Protected_Body, E_Task_Body) SUBTYPE (Decimal_Fixed_Point_Kind, Entity_Kind, E_Decimal_Fixed_Point_Type, E_Decimal_Fixed_Point_Subtype) SUBTYPE (Digits_Kind, Entity_Kind, E_Decimal_Fixed_Point_Type, E_Floating_Point_Subtype) SUBTYPE (Discrete_Kind, Entity_Kind, E_Enumeration_Type, E_Modular_Integer_Subtype) SUBTYPE (Discrete_Or_Fixed_Point_Kind, Entity_Kind, E_Enumeration_Type, E_Decimal_Fixed_Point_Subtype) SUBTYPE (Elementary_Kind, Entity_Kind, E_Enumeration_Type, E_Anonymous_Access_Type) SUBTYPE (Enumeration_Kind, Entity_Kind, E_Enumeration_Type, E_Enumeration_Subtype) SUBTYPE (Entry_Kind, Entity_Kind, E_Entry, E_Entry_Family) SUBTYPE (Fixed_Point_Kind, Entity_Kind, E_Ordinary_Fixed_Point_Type, E_Decimal_Fixed_Point_Subtype) SUBTYPE (Float_Kind, Entity_Kind, E_Floating_Point_Type, E_Floating_Point_Subtype) SUBTYPE (Formal_Kind, Entity_Kind, E_In_Parameter, E_In_Out_Parameter) SUBTYPE (Generic_Unit_Kind, Entity_Kind, E_Generic_Function, E_Generic_Procedure) SUBTYPE (Incomplete_Or_Private_Kind, Entity_Kind, E_Record_Type_With_Private, E_Incomplete_Type) SUBTYPE (Integer_Kind, Entity_Kind, E_Signed_Integer_Type, E_Modular_Integer_Subtype) SUBTYPE (Modular_Integer_Kind, Entity_Kind, E_Modular_Integer_Type, E_Modular_Integer_Subtype) SUBTYPE (Named_Kind, Entity_Kind, E_Named_Integer, E_Named_Real) SUBTYPE (Numeric_Kind, Entity_Kind, E_Signed_Integer_Type, E_Floating_Point_Subtype) SUBTYPE (Object_Kind, Entity_Kind, E_Variable, E_Generic_In_Parameter) SUBTYPE (Ordinary_Fixed_Point_Kind, Entity_Kind, E_Ordinary_Fixed_Point_Type, E_Ordinary_Fixed_Point_Subtype) SUBTYPE (Overloadable_Kind, Entity_Kind, E_Enumeration_Literal, E_Entry) SUBTYPE (Private_Kind, Entity_Kind, E_Record_Type_With_Private, E_Limited_Private_Subtype) SUBTYPE (Protected_Kind, Entity_Kind, E_Protected_Type, E_Protected_Subtype) SUBTYPE (Real_Kind, Entity_Kind, E_Ordinary_Fixed_Point_Type, E_Floating_Point_Subtype) SUBTYPE (Record_Kind, Entity_Kind, E_Class_Wide_Type, E_Record_Subtype_With_Private) SUBTYPE (Scalar_Kind, Entity_Kind, E_Enumeration_Type, E_Floating_Point_Subtype) SUBTYPE (String_Kind, Entity_Kind, E_String_Type, E_String_Literal_Subtype) SUBTYPE (Subprogram_Kind, Entity_Kind, E_Function, E_Procedure) SUBTYPE (Signed_Integer_Kind, Entity_Kind, E_Signed_Integer_Type, E_Signed_Integer_Subtype) SUBTYPE (Task_Kind, Entity_Kind, E_Task_Type, E_Task_Subtype) SUBTYPE (Type_Kind, Entity_Kind, E_Enumeration_Type, E_Subprogram_Type) typedef char Component_Alignment_Kind; #define Calign_Default 0 #define Calign_Component_Size 1 #define Calign_Component_Size_4 2 #define Calign_Storage_Unit 3 typedef Boolean B; typedef Component_Alignment_Kind C; typedef Entity_Id E; typedef Mechanism_Type M; typedef Node_Id N; typedef Uint U; typedef Ureal R; typedef Elist_Id L; typedef List_Id S; INLINE L Accept_Address (E Id); INLINE E Access_Disp_Table (E Id); INLINE E Actual_Subtype (E Id); INLINE B Address_Taken (E Id); INLINE E Alias (E Id); INLINE U Alignment (E Id); INLINE E Associated_Final_Chain (E Id); INLINE E Associated_Formal_Package (E Id); INLINE N Associated_Node_For_Itype (E Id); INLINE E Associated_Storage_Pool (E Id); INLINE N Barrier_Function (E Id); INLINE N Block_Node (E Id); INLINE E Body_Entity (E Id); INLINE E CR_Discriminant (E Id); INLINE B C_Pass_By_Copy (E Id); INLINE E Class_Wide_Type (E Id); INLINE E Cloned_Subtype (E Id); #define Component_Alignment einfo__component_alignment C Component_Alignment (E Id); INLINE N Component_Clause (E Id); INLINE U Component_Bit_Offset (E Id); INLINE U Component_Size (E Id); INLINE E Component_Type (E Id); INLINE E Corresponding_Concurrent_Type (E Id); INLINE E Corresponding_Discriminant (E Id); INLINE E Corresponding_Equality (E Id); INLINE E Corresponding_Record_Type (E Id); INLINE E Corresponding_Remote_Type (E Id); INLINE B Debug_Info_Off (E Id); INLINE E Debug_Renaming_Link (E Id); INLINE E DTC_Entity (E Id); INLINE U DT_Entry_Count (E Id); INLINE U DT_Position (E Id); INLINE E Default_Expr_Function (E Id); INLINE B Default_Expressions_Processed (E Id); INLINE N Default_Value (E Id); INLINE B Delay_Cleanups (E Id); INLINE B Delay_Subprogram_Descriptors (E Id); INLINE R Delta_Value (E Id); INLINE L Dependent_Instances (E Id); INLINE B Depends_On_Private (E Id); INLINE U Digits_Value (E Id); INLINE E Directly_Designated_Type (E Id); INLINE B Discard_Names (E Id); INLINE E Discriminal (E Id); INLINE E Discriminal_Link (E Id); INLINE E Discriminant_Checking_Func (E Id); INLINE L Discriminant_Constraint (E Id); INLINE N Discriminant_Default_Value (E Id); INLINE U Discriminant_Number (E Id); INLINE B Elaborate_All_Desirable (E Id); INLINE E Elaboration_Entity (E Id); INLINE B Elaboration_Entity_Required (E Id); INLINE E Enclosing_Scope (E Id); INLINE B Entry_Accepted (E Id); INLINE E Entry_Bodies_Array (E Id); INLINE E Entry_Cancel_Parameter (E Id); INLINE E Entry_Component (E Id); INLINE E Entry_Formal (E Id); INLINE E Entry_Index_Constant (E Id); INLINE E Entry_Index_Type (E Id); INLINE E Entry_Parameters_Type (E Id); INLINE E Enum_Pos_To_Rep (E Id); INLINE U Enumeration_Pos (E Id); INLINE U Enumeration_Rep (E Id); INLINE N Enumeration_Rep_Expr (E Id); INLINE E Equivalent_Type (E Id); INLINE U Esize (E Id); INLINE U Exception_Code (E Id); INLINE E Extra_Accessibility (E Id); INLINE E Extra_Constrained (E Id); INLINE E Extra_Formal (E Id); INLINE E Finalization_Chain_Entity (E Id); #define Finalize_Storage_Only einfo__finalize_storage_only B Finalize_Storage_Only (E Id); INLINE E First_Entity (E Id); INLINE N First_Index (E Id); INLINE E First_Literal (E Id); INLINE E First_Optional_Parameter (E Id); INLINE E First_Private_Entity (E Id); INLINE N First_Rep_Item (E Id); INLINE N Freeze_Node (E Id); INLINE B From_With_Type (E Id); INLINE E Full_View (E Id); INLINE B Function_Returns_With_DSP (E Id); INLINE L Generic_Renamings (E Id); INLINE L Girder_Constraint (E Id); INLINE S Handler_Records (E Id); INLINE B Has_Aliased_Components (E Id); INLINE B Has_Alignment_Clause (E Id); INLINE B Has_All_Calls_Remote (E Id); INLINE B Has_Atomic_Components (E Id); INLINE B Has_Biased_Representation (E Id); INLINE B Has_Completion (E Id); INLINE B Has_Completion_In_Body (E Id); INLINE B Has_Complex_Representation (E Id); INLINE B Has_Component_Size_Clause (E Id); INLINE B Has_Controlled_Component (E Id); INLINE B Has_Controlling_Result (E Id); INLINE B Has_Convention_Pragma (E Id); INLINE B Has_Delayed_Freeze (E Id); INLINE B Has_Discriminants (E Id); INLINE B Has_Enumeration_Rep_Clause (E Id); INLINE B Has_Exit (E Id); INLINE B Has_External_Tag_Rep_Clause (E Id); INLINE B Has_Fully_Qualified_Name (E Id); INLINE B Has_Gigi_Rep_Item (E Id); INLINE B Has_Homonym (E Id); #define Has_Interrupt_Handler einfo__has_interrupt_handler B Has_Interrupt_Handler (E Id); INLINE B Has_Machine_Radix_Clause (E Id); INLINE B Has_Master_Entity (E Id); INLINE B Has_Missing_Return (E Id); INLINE B Has_Nested_Block_With_Handler (E Id); INLINE B Has_Forward_Instantiation (E Id); INLINE B Has_Non_Standard_Rep (E Id); INLINE B Has_Object_Size_Clause (E Id); INLINE B Has_Per_Object_Constraint (E Id); INLINE B Has_Pragma_Controlled (E Id); INLINE B Has_Pragma_Elaborate_Body (E Id); INLINE B Has_Pragma_Inline (E Id); INLINE B Has_Pragma_Pack (E Id); INLINE B Has_Pragma_Pure_Function (E Id); INLINE B Has_Primitive_Operations (E Id); INLINE B Has_Qualified_Name (E Id); INLINE B Has_Record_Rep_Clause (E Id); INLINE B Has_Recursive_Call (E Id); INLINE B Has_Size_Clause (E Id); INLINE B Has_Small_Clause (E Id); INLINE B Has_Specified_Layout (E Id); INLINE B Has_Storage_Size_Clause (E Id); INLINE B Has_Subprogram_Descriptor (E Id); INLINE B Has_Task (E Id); INLINE B Has_Unchecked_Union (E Id); INLINE B Has_Unknown_Discriminants (E Id); INLINE B Has_Volatile_Components (E Id); INLINE E Homonym (E Id); INLINE E Hiding_Loop_Variable (E Id); INLINE B In_Package_Body (E Id); INLINE B In_Private_Part (E Id); INLINE B In_Use (E Id); INLINE L Inner_Instances (E Id); INLINE N Interface_Name (E Id); INLINE B Is_AST_Entry (E Id); INLINE B Is_Abstract (E Id); INLINE B Is_Access_Constant (E Id); INLINE B Is_Aliased (E Id); INLINE B Is_Asynchronous (E Id); INLINE B Is_Atomic (E Id); INLINE B Is_Bit_Packed_Array (E Id); INLINE B Is_CPP_Class (E Id); INLINE B Is_Called (E Id); INLINE B Is_Character_Type (E Id); INLINE B Is_Child_Unit (E Id); INLINE B Is_Compilation_Unit (E Id); INLINE B Is_Completely_Hidden (E Id); INLINE B Is_Constr_Subt_For_UN_Aliased (E Id); INLINE B Is_Constr_Subt_For_U_Nominal (E Id); INLINE B Is_Constrained (E Id); INLINE B Is_Constructor (E Id); INLINE B Is_Controlled (E Id); INLINE B Is_Controlling_Formal (E Id); INLINE B Is_Destructor (E Id); INLINE B Is_Discrim_SO_Function (E Id); INLINE B Is_Dispatching_Operation (E Id); INLINE B Is_Eliminated (E Id); INLINE B Is_Entry_Formal (E Id); INLINE B Is_Exported (E Id); INLINE B Is_First_Subtype (E Id); INLINE B Is_For_Access_Subtype (E Id); INLINE B Is_Frozen (E Id); INLINE B Is_Generic_Instance (E Id); INLINE B Is_Hidden (E Id); INLINE B Is_Hidden_Open_Scope (E Id); INLINE B Is_Immediately_Visible (E Id); INLINE B Is_Imported (E Id); INLINE B Is_Inlined (E Id); INLINE B Is_Instantiated (E Id); INLINE B Is_Internal (E Id); INLINE B Is_Interrupt_Handler (E Id); INLINE B Is_Intrinsic_Subprogram (E Id); INLINE B Is_Itype (E Id); INLINE B Is_Known_Valid (E Id); INLINE B Is_Limited_Composite (E Id); INLINE B Is_Machine_Code_Subprogram (E Id); INLINE B Is_Non_Static_Subtype (E Id); INLINE B Is_Null_Init_Proc (E Id); INLINE B Is_Optional_Parameter (E Id); INLINE B Is_Package_Body_Entity (E Id); INLINE B Is_Packed (E Id); INLINE B Is_Packed_Array_Type (E Id); INLINE B Is_Potentially_Use_Visible (E Id); INLINE B Is_Preelaborated (E Id); INLINE B Is_Private_Composite (E Id); INLINE B Is_Private_Descendant (E Id); INLINE B Is_Psected (E Id); INLINE B Is_Public (E Id); INLINE B Is_Pure (E Id); INLINE B Is_Remote_Call_Interface (E Id); INLINE B Is_Remote_Types (E Id); INLINE B Is_Renaming_Of_Object (E Id); INLINE B Is_Shared_Passive (E Id); INLINE B Is_Statically_Allocated (E Id); INLINE B Is_Tag (E Id); INLINE B Is_Tagged_Type (E Id); INLINE B Is_True_Constant (E Id); INLINE B Is_Unchecked_Union (E Id); INLINE B Is_Unsigned_Type (E Id); INLINE B Is_VMS_Exception (E Id); INLINE B Is_Valued_Procedure (E Id); INLINE B Is_Visible_Child_Unit (E Id); INLINE B Is_Volatile (E Id); #define Is_Wrapper_Package einfo__is_wrapper_package B Is_Wrapper_Package (E Id); INLINE E Last_Entity (E Id); INLINE E Lit_Indexes (E Id); INLINE E Lit_Strings (E Id); INLINE B Machine_Radix_10 (E Id); INLINE E Master_Id (E Id); INLINE B Materialize_Entity (E Id); INLINE M Mechanism (E Id); INLINE U Modulus (E Id); INLINE B Needs_Debug_Info (E Id); INLINE B Needs_No_Actuals (E Id); INLINE E Next_Inlined_Subprogram (E Id); INLINE B No_Pool_Assigned (E Id); INLINE B No_Return (E Id); INLINE B Non_Binary_Modulus (E Id); INLINE B Nonzero_Is_True (E Id); INLINE U Normalized_First_Bit (E Id); INLINE U Normalized_Position (E Id); INLINE U Normalized_Position_Max (E Id); INLINE B Not_Source_Assigned (E Id); INLINE E Object_Ref (E Id); INLINE E Original_Record_Component (E Id); INLINE E Packed_Array_Type (E Id); INLINE E Parent_Subtype (E Id); INLINE L Primitive_Operations (E Id); INLINE E Prival (E Id); INLINE L Privals_Chain (E Id); INLINE L Private_Dependents (E Id); INLINE N Private_View (E Id); INLINE E Protected_Body_Subprogram (E Id); INLINE E Protected_Formal (E Id); INLINE E Protected_Operation (E Id); INLINE U RM_Size (E Id); INLINE B Reachable (E Id); INLINE B Referenced (E Id); INLINE N Referenced_Object (E Id); INLINE N Register_Exception_Call (E Id); INLINE E Related_Array_Object (E Id); INLINE E Related_Instance (E Id); INLINE N Renamed_Entity (E Id); INLINE N Renamed_Object (E Id); INLINE U Renaming_Map (E Id); INLINE B Return_Present (E Id); INLINE B Returns_By_Ref (E Id); INLINE B Reverse_Bit_Order (E Id); INLINE N Scalar_Range (E Id); INLINE U Scale_Value (E Id); INLINE U Scope_Depth_Value (E Id); INLINE B Sec_Stack_Needed_For_Return (E Id); INLINE S Shadow_Entities (E Id); INLINE E Shared_Var_Assign_Proc (E Id); INLINE E Shared_Var_Read_Proc (E Id); INLINE N Size_Check_Code (E Id); INLINE B Size_Known_At_Compile_Time (E Id); INLINE B Size_Depends_On_Discriminant (E Id); INLINE R Small_Value (E Id); INLINE E Spec_Entity (E Id); INLINE E Storage_Size_Variable (E Id); INLINE B Strict_Alignment (E Id); INLINE U String_Literal_Length (E Id); INLINE N String_Literal_Low_Bound (E Id); INLINE B Suppress_Access_Checks (E Id); INLINE B Suppress_Accessibility_Checks (E Id); INLINE B Suppress_Discriminant_Checks (E Id); INLINE B Suppress_Division_Checks (E Id); INLINE B Suppress_Elaboration_Checks (E Id); INLINE B Suppress_Elaboration_Warnings (E Id); INLINE B Suppress_Index_Checks (E Id); INLINE B Suppress_Init_Proc (E Id); INLINE B Suppress_Length_Checks (E Id); INLINE B Suppress_Overflow_Checks (E Id); INLINE B Suppress_Range_Checks (E Id); INLINE B Suppress_Storage_Checks (E Id); INLINE B Suppress_Style_Checks (E Id); INLINE B Suppress_Tag_Checks (E Id); INLINE E Underlying_Full_View (E Id); INLINE N Unset_Reference (E Id); INLINE B Uses_Sec_Stack (E Id); INLINE B Vax_Float (E Id); INLINE B Warnings_Off (E Id); INLINE B Is_Access_Type (E Id); INLINE B Is_Array_Type (E Id); INLINE B Is_Class_Wide_Type (E Id); INLINE B Is_Composite_Type (E Id); INLINE B Is_Concurrent_Body (E Id); INLINE B Is_Concurrent_Record_Type (E Id); INLINE B Is_Concurrent_Type (E Id); INLINE B Is_Decimal_Fixed_Point_Type (E Id); INLINE B Is_Digits_Type (E Id); INLINE B Is_Discrete_Or_Fixed_Point_Type (E Id); INLINE B Is_Discrete_Type (E Id); INLINE B Is_Elementary_Type (E Id); INLINE B Is_Entry (E Id); INLINE B Is_Enumeration_Type (E Id); INLINE B Is_Fixed_Point_Type (E Id); INLINE B Is_Floating_Point_Type (E Id); INLINE B Is_Formal (E Id); INLINE B Is_Formal_Subprogram (E Id); INLINE B Is_Generic_Actual_Type (E Id); INLINE B Is_Generic_Type (E Id); INLINE B Is_Generic_Unit (E Id); INLINE B Is_Incomplete_Or_Private_Type (E Id); INLINE B Is_Integer_Type (E Id); INLINE B Is_Limited_Record (E Id); INLINE B Is_Modular_Integer_Type (E Id); INLINE B Is_Named_Number (E Id); INLINE B Is_Numeric_Type (E Id); INLINE B Is_Object (E Id); INLINE B Is_Ordinary_Fixed_Point_Type (E Id); INLINE B Is_Overloadable (E Id); INLINE B Is_Private_Type (E Id); INLINE B Is_Protected_Type (E Id); INLINE B Is_Real_Type (E Id); INLINE B Is_Record_Type (E Id); INLINE B Is_Scalar_Type (E Id); INLINE B Is_Signed_Integer_Type (E Id); INLINE B Is_Subprogram (E Id); INLINE B Is_Task_Type (E Id); INLINE B Is_Type (E Id); #define Address_Clause einfo__address_clause N Address_Clause (E Id); #define Alignment_Clause einfo__alignment_clause N Alignment_Clause (E Id); #define Ancestor_Subtype einfo__ancestor_subtype E Ancestor_Subtype (E Id); #define Base_Type einfo__base_type E Base_Type (E Id); #define Constant_Value einfo__constant_value N Constant_Value (E Id); #define Declaration_Node einfo__declaration_node N Declaration_Node (E Id); #define Designated_Type einfo__designated_type E Designated_Type (E Id); #define Enclosing_Dynamic_Scope einfo__enclosing_dynamic_scope E Enclosing_Dynamic_Scope (E Id); #define First_Component einfo__first_component E First_Component (E Id); #define First_Discriminant einfo__first_discriminant E First_Discriminant (E Id); #define First_Formal einfo__first_formal E First_Formal (E Id); #define First_Girder_Discriminant einfo__first_girder_discriminant E First_Girder_Discriminant (E Id); #define First_Subtype einfo__first_subtype E First_Subtype (E Id); #define Has_Attach_Handler einfo__has_attach_handler B Has_Attach_Handler (E Id); #define Has_Entries einfo__has_entries B Has_Entries (E Id); #define Has_Foreign_Convention einfo__has_foreign_convention B Has_Foreign_Convention (E Id); #define Has_Private_Ancestor einfo__has_private_ancestor B Has_Private_Ancestor (E Id); INLINE B Has_Private_Declaration (E Id); #define Implementation_Base_Type einfo__implementation_base_type E Implementation_Base_Type (E Id); #define Is_Always_Inlined einfo__is_always_inlined B Is_Always_Inlined (E Id); #define Is_Boolean_Type einfo__is_boolean_type B Is_Boolean_Type (E Id); #define Is_By_Copy_Type einfo__is_by_copy_type B Is_By_Copy_Type (E Id); #define Is_By_Reference_Type einfo__is_by_reference_type B Is_By_Reference_Type (E Id); #define Is_Derived_Type einfo__is_derived_type B Is_Derived_Type (E Id); #define Is_Dynamic_Scope einfo__is_dynamic_scope B Is_Dynamic_Scope (E Id); #define Is_Indefinite_Subtype einfo__is_indefinite_subtype B Is_Indefinite_Subtype (E Id); #define Is_Limited_Type einfo__is_limited_type B Is_Limited_Type (E Id); #define Is_Package einfo__is_package B Is_Package (E Id); #define Is_Protected_Private einfo__is_protected_private B Is_Protected_Private (E Id); #define Is_Protected_Record_Type einfo__is_protected_record_type B Is_Protected_Record_Type (E Id); #define Is_Return_By_Reference_Type einfo__is_return_by_reference_type B Is_Return_By_Reference_Type (E Id); #define Is_String_Type einfo__is_string_type B Is_String_Type (E Id); #define Is_Task_Record_Type einfo__is_task_record_type B Is_Task_Record_Type (E Id); #define Next_Component einfo__next_component E Next_Component (E Id); #define Next_Discriminant einfo__next_discriminant E Next_Discriminant (E Id); #define Next_Formal einfo__next_formal E Next_Formal (E Id); #define Next_Formal_With_Extras einfo__next_formal_with_extras E Next_Formal_With_Extras (E Id); #define Next_Girder_Discriminant einfo__next_girder_discriminant E Next_Girder_Discriminant (E Id); INLINE E Next_Literal (E Id); #define Number_Dimensions einfo__number_dimensions Pos Number_Dimensions (E Id); #define Number_Discriminants einfo__number_discriminants Pos Number_Discriminants (E Id); #define Number_Entries einfo__number_entries Nat Number_Entries (E Id); #define Number_Formals einfo__number_formals Pos Number_Formals (E Id); INLINE Formal_Kind Parameter_Mode (E Id); #define Root_Type einfo__root_type E Root_Type (E Id); #define Scope_Depth_Set einfo__scope_depth_set B Scope_Depth_Set (E Id); #define Size_Clause einfo__size_clause N Size_Clause (E Id); #define Tag_Component einfo__tag_component E Tag_Component (E Id); #define Type_High_Bound einfo__type_high_bound N Type_High_Bound (E Id); #define Type_Low_Bound einfo__type_low_bound N Type_Low_Bound (E Id); #define Underlying_Type einfo__underlying_type E Underlying_Type (E Id); INLINE B Known_Alignment (Entity_Id E); INLINE B Known_Component_Bit_Offset (Entity_Id E); INLINE B Known_Component_Size (Entity_Id E); INLINE B Known_Esize (Entity_Id E); #define Known_Normalized_First_Bit einfo__known_normalized_first_bit B Known_Normalized_First_Bit (Entity_Id E); #define Known_Normalized_Position einfo__known_normalized_position B Known_Normalized_Position (Entity_Id E); #define Known_Normalized_Position_Max einfo__known_normalized_position_max B Known_Normalized_Position_Max (Entity_Id E); #define Known_RM_Size einfo__known_rm_size B Known_RM_Size (Entity_Id E); #define Known_Static_Component_Bit_Offset einfo__known_static_component_bit_offset B Known_Static_Component_Bit_Offset (Entity_Id E); INLINE B Known_Static_Component_Size (Entity_Id E); INLINE B Known_Static_Esize (Entity_Id E); #define Known_Static_Normalized_Position einfo__known_static_normalized_position B Known_Static_Normalized_Position (Entity_Id E); #define Known_Static_Normalized_Position_Max einfo__known_static_normalized_position_max B Known_Static_Normalized_Position_Max (Entity_Id E); #define Known_Static_RM_Size einfo__known_static_rm_size B Known_Static_RM_Size (Entity_Id E); INLINE B Unknown_Alignment (Entity_Id E); INLINE B Unknown_Component_Bit_Offset (Entity_Id E); INLINE B Unknown_Component_Size (Entity_Id E); INLINE B Unknown_Esize (Entity_Id E); #define Unknown_Normalized_First_Bit einfo__unknown_normalized_first_bit B Unknown_Normalized_First_Bit (Entity_Id E); #define Unknown_Normalized_Position einfo__unknown_normalized_position B Unknown_Normalized_Position (Entity_Id E); #define Unknown_Normalized_Position_Max einfo__unknown_normalized_position_max B Unknown_Normalized_Position_Max (Entity_Id E); #define Unknown_RM_Size einfo__unknown_rm_size B Unknown_RM_Size (Entity_Id E); INLINE L Accept_Address (E Id) { return Elist21 (Id); } INLINE E Access_Disp_Table (E Id) { return Node16 (Base_Type (Underlying_Type (Base_Type (Id)))); } INLINE E Actual_Subtype (E Id) { return Node17 (Id); } INLINE B Address_Taken (E Id) { return Flag104 (Id); } INLINE E Alias (E Id) { return Node18 (Id); } INLINE U Alignment (E Id) { return Uint14 (Id); } INLINE E Associated_Final_Chain (E Id) { return Node23 (Id); } INLINE E Associated_Formal_Package (E Id) { return Node12 (Id); } INLINE N Associated_Node_For_Itype (E Id) { return Node8 (Id); } INLINE E Associated_Storage_Pool (E Id) { return Node22 (Id); } INLINE N Barrier_Function (E Id) { return Node12 (Id); } INLINE N Block_Node (E Id) { return Node11 (Id); } INLINE E Body_Entity (E Id) { return Node19 (Id); } INLINE B C_Pass_By_Copy (E Id) { return Flag125 (Implementation_Base_Type (Id)); } INLINE E Class_Wide_Type (E Id) { return Node9 (Id); } INLINE E Cloned_Subtype (E Id) { return Node16 (Id); } INLINE U Component_Bit_Offset (E Id) { return Uint11 (Id); } INLINE N Component_Clause (E Id) { return Node13 (Id); } INLINE U Component_Size (E Id) { return Uint22 (Implementation_Base_Type (Id)); } INLINE E Component_Type (E Id) { return Node20 (Implementation_Base_Type (Id)); } INLINE E Corresponding_Concurrent_Type (E Id) { return Node18 (Id); } INLINE E Corresponding_Discriminant (E Id) { return Node19 (Id); } INLINE E Corresponding_Equality (E Id) { return Node13 (Id); } INLINE E Corresponding_Record_Type (E Id) { return Node18 (Id); } INLINE E Corresponding_Remote_Type (E Id) { return Node22 (Id); } INLINE E CR_Discriminant (E Id) { return Node23 (Id); } INLINE B Debug_Info_Off (E Id) { return Flag166 (Id); } INLINE E Debug_Renaming_Link (E Id) { return Node13 (Id); } INLINE E Default_Expr_Function (E Id) { return Node21 (Id); } INLINE B Default_Expressions_Processed (E Id) { return Flag108 (Id); } INLINE N Default_Value (E Id) { return Node20 (Id); } INLINE B Delay_Cleanups (E Id) { return Flag114 (Id); } INLINE B Delay_Subprogram_Descriptors (E Id) { return Flag50 (Id); } INLINE R Delta_Value (E Id) { return Ureal18 (Id); } INLINE L Dependent_Instances (E Id) { return Elist8 (Id); } INLINE B Depends_On_Private (E Id) { return Flag14 (Id); } INLINE U Digits_Value (E Id) { return Uint17 (Id); } INLINE E Directly_Designated_Type (E Id) { return Node20 (Id); } INLINE B Discard_Names (E Id) { return Flag88 (Id); } INLINE E Discriminal (E Id) { return Node17 (Id); } INLINE N Discriminal_Link (E Id) { return Node10 (Id); } INLINE E Discriminant_Checking_Func (E Id) { return Node20 (Id); } INLINE L Discriminant_Constraint (E Id) { return Elist21 (Id); } INLINE N Discriminant_Default_Value (E Id) { return Node20 (Id); } INLINE U Discriminant_Number (E Id) { return Uint15 (Id); } INLINE U DT_Entry_Count (E Id) { return Uint15 (Id); } INLINE U DT_Position (E Id) { return Uint15 (Id); } INLINE E DTC_Entity (E Id) { return Node16 (Id); } INLINE B Elaborate_All_Desirable (E Id) { return Flag146 (Id); } INLINE E Elaboration_Entity (E Id) { return Node13 (Id); } INLINE B Elaboration_Entity_Required (E Id) { return Flag174 (Id); } INLINE E Enclosing_Scope (E Id) { return Node18 (Id); } INLINE B Entry_Accepted (E Id) { return Flag152 (Id); } INLINE E Entry_Bodies_Array (E Id) { return Node15 (Id); } INLINE E Entry_Cancel_Parameter (E Id) { return Node23 (Id); } INLINE E Entry_Component (E Id) { return Node11 (Id); } INLINE E Entry_Formal (E Id) { return Node16 (Id); } INLINE N Entry_Index_Constant (E Id) { return Node18 (Id); } INLINE E Entry_Parameters_Type (E Id) { return Node15 (Id); } INLINE E Enum_Pos_To_Rep (E Id) { return Node23 (Id); } INLINE Uint Enumeration_Pos (E Id) { return Uint11 (Id); } INLINE U Enumeration_Rep (E Id) { return Uint12 (Id); } INLINE N Enumeration_Rep_Expr (E Id) { return Node22 (Id); } INLINE E Equivalent_Type (E Id) { return Node18 (Id); } INLINE Uint Esize (E Id) { return Uint12 (Id); } INLINE Uint Exception_Code (E Id) { return Uint22 (Id); } INLINE E Extra_Accessibility (E Id) { return Node13 (Id); } INLINE E Extra_Constrained (E Id) { return Node23 (Id); } INLINE E Extra_Formal (E Id) { return Node15 (Id); } INLINE E Finalization_Chain_Entity (E Id) { return Node19 (Id); } INLINE E First_Entity (E Id) { return Node17 (Id); } INLINE N First_Index (E Id) { return Node17 (Id); } INLINE E First_Literal (E Id) { return Node17 (Id); } INLINE E First_Optional_Parameter (E Id) { return Node14 (Id); } INLINE E First_Private_Entity (E Id) { return Node16 (Id); } INLINE E First_Rep_Item (E Id) { return Node6 (Id); } INLINE N Freeze_Node (E Id) { return Node7 (Id); } INLINE B From_With_Type (E Id) { return Flag159 (Id); } INLINE E Full_View (E Id) { return Node11 (Id); } INLINE B Function_Returns_With_DSP (E Id) { return Flag169 (Id); } INLINE L Generic_Renamings (E Id) { return Elist23 (Id); } INLINE L Girder_Constraint (E Id) { return Elist23 (Id); } INLINE S Handler_Records (E Id) { return List10 (Id); } INLINE B Has_Aliased_Components (E Id) { return Flag135 (Implementation_Base_Type (Id)); } INLINE B Has_Alignment_Clause (E Id) { return Flag46 (Id); } INLINE B Has_All_Calls_Remote (E Id) { return Flag79 (Id); } INLINE B Has_Atomic_Components (E Id) { return Flag86 (Implementation_Base_Type (Id)); } INLINE B Has_Biased_Representation (E Id) { return Flag139 (Id); } INLINE B Has_Completion (E Id) { return Flag26 (Id); } INLINE B Has_Completion_In_Body (E Id) { return Flag71 (Id); } INLINE B Has_Complex_Representation (E Id) { return Flag140 (Implementation_Base_Type (Id)); } INLINE B Has_Component_Size_Clause (E Id) { return Flag68 (Implementation_Base_Type (Id)); } INLINE B Has_Controlled_Component (E Id) { return Flag43 (Base_Type (Id)); } INLINE B Has_Controlling_Result (E Id) { return Flag98 (Id); } INLINE B Has_Convention_Pragma (E Id) { return Flag119 (Id); } INLINE B Has_Delayed_Freeze (E Id) { return Flag18 (Id); } INLINE B Has_Discriminants (E Id) { return Flag5 (Id); } INLINE B Has_Enumeration_Rep_Clause (E Id) { return Flag66 (Id); } INLINE B Has_Exit (E Id) { return Flag47 (Id); } INLINE B Has_External_Tag_Rep_Clause (E Id) { return Flag110 (Id); } INLINE B Has_Forward_Instantiation (E Id) { return Flag175 (Id); } INLINE B Has_Fully_Qualified_Name (E Id) { return Flag173 (Id); } INLINE B Has_Gigi_Rep_Item (E Id) { return Flag82 (Id); } INLINE B Has_Homonym (E Id) { return Flag56 (Id); } INLINE B Has_Machine_Radix_Clause (E Id) { return Flag83 (Id); } INLINE B Has_Master_Entity (E Id) { return Flag21 (Id); } INLINE B Has_Missing_Return (E Id) { return Flag142 (Id); } INLINE B Has_Nested_Block_With_Handler (E Id) { return Flag101 (Id); } INLINE B Has_Non_Standard_Rep (E Id) { return Flag75 (Implementation_Base_Type (Id)); } INLINE B Has_Object_Size_Clause (E Id) { return Flag172 (Id); } INLINE B Has_Per_Object_Constraint (E Id) { return Flag154 (Id); } INLINE B Has_Pragma_Controlled (E Id) { return Flag27 (Implementation_Base_Type (Id)); } INLINE B Has_Pragma_Elaborate_Body (E Id) { return Flag150 (Id); } INLINE B Has_Pragma_Inline (E Id) { return Flag157 (Id); } INLINE B Has_Pragma_Pack (E Id) { return Flag121 (Implementation_Base_Type (Id)); } INLINE B Has_Pragma_Pure_Function (E Id) { return Flag179 (Id); } INLINE B Has_Primitive_Operations (E Id) { return Flag120 (Base_Type (Id)); } INLINE B Has_Private_Declaration (E Id) { return Flag155 (Id); } INLINE B Has_Qualified_Name (E Id) { return Flag161 (Id); } INLINE B Has_Record_Rep_Clause (E Id) { return Flag65 (Id); } INLINE B Has_Recursive_Call (E Id) { return Flag143 (Id); } INLINE B Has_Size_Clause (E Id) { return Flag29 (Id); } INLINE B Has_Small_Clause (E Id) { return Flag67 (Id); } INLINE B Has_Specified_Layout (E Id) { return Flag100 (Id); } INLINE B Has_Storage_Size_Clause (E Id) { return Flag23 (Implementation_Base_Type (Id)); } INLINE B Has_Subprogram_Descriptor (E Id) { return Flag93 (Id); } INLINE B Has_Task (E Id) { return Flag30 (Base_Type (Id)); } INLINE B Has_Unchecked_Union (E Id) { return Flag123 (Base_Type (Id)); } INLINE B Has_Unknown_Discriminants (E Id) { return Flag72 (Id); } INLINE B Has_Volatile_Components (E Id) { return Flag87 (Implementation_Base_Type (Id)); } INLINE E Hiding_Loop_Variable (E Id) { return Node8 (Id); } INLINE E Homonym (E Id) { return Node4 (Id); } INLINE B In_Package_Body (E Id) { return Flag48 (Id); } INLINE B In_Private_Part (E Id) { return Flag45 (Id); } INLINE B In_Use (E Id) { return Flag8 (Id); } INLINE L Inner_Instances (E Id) { return Elist23 (Id); } INLINE N Interface_Name (E Id) { return Node21 (Id); } INLINE B Is_Abstract (E Id) { return Flag19 (Id); } INLINE B Is_Access_Constant (E Id) { return Flag69 (Id); } INLINE B Is_Aliased (E Id) { return Flag15 (Id); } INLINE B Is_AST_Entry (E Id) { return Flag132 (Id); } INLINE B Is_Asynchronous (E Id) { return Flag81 (Id); } INLINE B Is_Atomic (E Id) { return Flag85 (Id); } INLINE B Is_Bit_Packed_Array (E Id) { return Flag122 (Implementation_Base_Type (Id)); } INLINE B Is_Called (E Id) { return Flag102 (Id); } INLINE B Is_Character_Type (E Id) { return Flag63 (Id); } INLINE B Is_Child_Unit (E Id) { return Flag73 (Id); } INLINE B Is_Compilation_Unit (E Id) { return Flag149 (Id); } INLINE B Is_Completely_Hidden (E Id) { return Flag103 (Id); } INLINE B Is_Constr_Subt_For_U_Nominal (E Id) { return Flag80 (Id); } INLINE B Is_Constr_Subt_For_UN_Aliased (E Id) { return Flag141 (Id); } INLINE B Is_Constrained (E Id) { return Flag12 (Id); } INLINE B Is_Constructor (E Id) { return Flag76 (Id); } INLINE B Is_Controlled (E Id) { return Flag42 (Base_Type (Id)); } INLINE B Is_Controlling_Formal (E Id) { return Flag97 (Id); } INLINE B Is_CPP_Class (E Id) { return Flag74 (Id); } INLINE B Is_Destructor (E Id) { return Flag77 (Id); } INLINE B Is_Discrim_SO_Function (E Id) { return Flag176 (Id); } INLINE B Is_Dispatching_Operation (E Id) { return Flag6 (Id); } INLINE B Is_Eliminated (E Id) { return Flag124 (Id); } INLINE B Is_Entry_Formal (E Id) { return Flag52 (Id); } INLINE B Is_Exported (E Id) { return Flag99 (Id); } INLINE B Is_First_Subtype (E Id) { return Flag70 (Id); } INLINE B Is_For_Access_Subtype (E Id) { return Flag118 (Id); } INLINE B Is_Formal_Subprogram (E Id) { return Flag111 (Id); } INLINE B Is_Frozen (E Id) { return Flag4 (Id); } INLINE B Is_Generic_Actual_Type (E Id) { return Flag94 (Id); } INLINE B Is_Generic_Instance (E Id) { return Flag130 (Id); } INLINE B Is_Generic_Type (E Id) { return Flag13 (Id); } INLINE B Is_Hidden (E Id) { return Flag57 (Id); } INLINE B Is_Hidden_Open_Scope (E Id) { return Flag171 (Id); } INLINE B Is_Immediately_Visible (E Id) { return Flag7 (Id); } INLINE B Is_Imported (E Id) { return Flag24 (Id); } INLINE B Is_Inlined (E Id) { return Flag11 (Id); } INLINE B Is_Instantiated (E Id) { return Flag126 (Id); } INLINE B Is_Internal (E Id) { return Flag17 (Id); } INLINE B Is_Interrupt_Handler (E Id) { return Flag89 (Id); } INLINE B Is_Intrinsic_Subprogram (E Id) { return Flag64 (Id); } INLINE B Is_Itype (E Id) { return Flag91 (Id); } INLINE B Is_Known_Valid (E Id) { return Flag170 (Id); } INLINE B Is_Limited_Composite (E Id) { return Flag106 (Id); } INLINE B Is_Limited_Record (E Id) { return Flag25 (Id); } INLINE B Is_Machine_Code_Subprogram (E Id) { return Flag137 (Id); } INLINE B Is_Non_Static_Subtype (E Id) { return Flag109 (Id); } INLINE B Is_Null_Init_Proc (E Id) { return Flag178 (Id); } INLINE B Is_Optional_Parameter (E Id) { return Flag134 (Id); } INLINE B Is_Package_Body_Entity (E Id) { return Flag160 (Id); } INLINE B Is_Packed (E Id) { return Flag51 (Implementation_Base_Type (Id)); } INLINE B Is_Packed_Array_Type (E Id) { return Flag138 (Id); } INLINE B Is_Potentially_Use_Visible (E Id) { return Flag9 (Id); } INLINE B Is_Preelaborated (E Id) { return Flag59 (Id); } INLINE B Is_Private_Composite (E Id) { return Flag107 (Id); } INLINE B Is_Private_Descendant (E Id) { return Flag53 (Id); } INLINE B Is_Psected (E Id) { return Flag153 (Id); } INLINE B Is_Public (E Id) { return Flag10 (Id); } INLINE B Is_Pure (E Id) { return Flag44 (Id); } INLINE B Is_Remote_Call_Interface (E Id) { return Flag62 (Id); } INLINE B Is_Remote_Types (E Id) { return Flag61 (Id); } INLINE B Is_Renaming_Of_Object (E Id) { return Flag112 (Id); } INLINE B Is_Shared_Passive (E Id) { return Flag60 (Id); } INLINE B Is_Statically_Allocated (E Id) { return Flag28 (Id); } INLINE B Is_Tag (E Id) { return Flag78 (Id); } INLINE B Is_Tagged_Type (E Id) { return Flag55 (Id); } INLINE B Is_True_Constant (E Id) { return Flag163 (Id); } INLINE B Is_Unchecked_Union (E Id) { return Flag117 (Id); } INLINE B Is_Unsigned_Type (E Id) { return Flag144 (Id); } INLINE B Is_Valued_Procedure (E Id) { return Flag127 (Id); } INLINE B Is_Visible_Child_Unit (E Id) { return Flag116 (Id); } INLINE B Is_VMS_Exception (E Id) { return Flag133 (Id); } INLINE B Is_Volatile (E Id) { return Flag16 (Id); } INLINE E Last_Entity (E Id) { return Node20 (Id); } INLINE E Lit_Indexes (E Id) { return Node15 (Id); } INLINE E Lit_Strings (E Id) { return Node16 (Id); } INLINE B Machine_Radix_10 (E Id) { return Flag84 (Id); } INLINE E Master_Id (E Id) { return Node17 (Id); } INLINE B Materialize_Entity (E Id) { return Flag168 (Id); } INLINE M Mechanism (E Id) { return UI_To_Int (Uint8 (Id)); } INLINE Uint Modulus (E Id) { return Uint17 (Base_Type (Id)); } INLINE B Needs_Debug_Info (E Id) { return Flag147 (Id); } INLINE B Needs_No_Actuals (E Id) { return Flag22 (Id); } INLINE E Next_Inlined_Subprogram (E Id) { return Node12 (Id); } INLINE B No_Pool_Assigned (E Id) { return Flag131 (Root_Type (Id)); } INLINE B No_Return (E Id) { return Flag113 (Id); } INLINE B Non_Binary_Modulus (E Id) { return Flag58 (Base_Type (Id)); } INLINE B Nonzero_Is_True (E Id) { return Flag162 (Base_Type (Id)); } INLINE U Normalized_First_Bit (E Id) { return Uint8 (Id); } INLINE U Normalized_Position (E Id) { return Uint9 (Id); } INLINE U Normalized_Position_Max (E Id) { return Uint10 (Id); } INLINE B Not_Source_Assigned (E Id) { return Flag115 (Id); } INLINE E Object_Ref (E Id) { return Node17 (Id); } INLINE E Original_Record_Component (E Id) { return Node22 (Id); } INLINE E Packed_Array_Type (E Id) { return Node23 (Id); } INLINE E Parent_Subtype (E Id) { return Node19 (Id); } INLINE L Primitive_Operations (E Id) { return Elist15 (Id); } INLINE E Prival (E Id) { return Node17 (Id); } INLINE L Privals_Chain (E Id) { return Elist23 (Id); } INLINE L Private_Dependents (E Id) { return Elist18 (Id); } INLINE N Private_View (E Id) { return Node22 (Id); } INLINE E Protected_Body_Subprogram (E Id) { return Node11 (Id); } INLINE E Protected_Formal (E Id) { return Node22 (Id); } INLINE N Protected_Operation (E Id) { return Node23 (Id); } INLINE B Reachable (E Id) { return Flag49 (Id); } INLINE B Referenced (E Id) { return Flag156 (Id); } INLINE N Referenced_Object (E Id) { return Node10 (Id); } INLINE N Register_Exception_Call (E Id) { return Node20 (Id); } INLINE E Related_Array_Object (E Id) { return Node19 (Id); } INLINE E Related_Instance (E Id) { return Node15 (Id); } INLINE N Renamed_Entity (E Id) { return Node18 (Id); } INLINE N Renamed_Object (E Id) { return Node18 (Id); } INLINE U Renaming_Map (E Id) { return Uint9 (Id); } INLINE B Return_Present (E Id) { return Flag54 (Id); } INLINE B Returns_By_Ref (E Id) { return Flag90 (Id); } INLINE B Reverse_Bit_Order (E Id) { return Flag164 (Base_Type (Id)); } INLINE U RM_Size (E Id) { return Uint13 (Id); } INLINE N Scalar_Range (E Id) { return Node20 (Id); } INLINE U Scale_Value (E Id) { return Uint15 (Id); } INLINE U Scope_Depth_Value (E Id) { return Uint22 (Id); } INLINE B Sec_Stack_Needed_For_Return (E Id) { return Flag167 (Id); } INLINE S Shadow_Entities (E Id) { return List14 (Id); } INLINE E Shared_Var_Assign_Proc (E Id) { return Node22 (Id); } INLINE E Shared_Var_Read_Proc (E Id) { return Node15 (Id); } INLINE N Size_Check_Code (E Id) { return Node9 (Id); } INLINE B Size_Depends_On_Discriminant (E Id) { return Flag177 (Id); } INLINE B Size_Known_At_Compile_Time (E Id) { return Flag92 (Id); } INLINE R Small_Value (E Id) { return Ureal21 (Id); } INLINE E Spec_Entity (E Id) { return Node19 (Id); } INLINE E Storage_Size_Variable (E Id) { return Node15 (Implementation_Base_Type (Id)); } INLINE B Strict_Alignment (E Id) { return Flag145 (Implementation_Base_Type (Id)); } INLINE U String_Literal_Length (E Id) { return Uint16 (Id); } INLINE N String_Literal_Low_Bound (E Id) { return Node15 (Id); } INLINE B Suppress_Access_Checks (E Id) { return Flag31 (Id); } INLINE B Suppress_Accessibility_Checks (E Id) { return Flag32 (Id); } INLINE B Suppress_Discriminant_Checks (E Id) { return Flag33 (Id); } INLINE B Suppress_Division_Checks (E Id) { return Flag34 (Id); } INLINE B Suppress_Elaboration_Checks (E Id) { return Flag35 (Id); } INLINE B Suppress_Elaboration_Warnings (E Id) { return Flag148 (Id); } INLINE B Suppress_Index_Checks (E Id) { return Flag36 (Id); } INLINE B Suppress_Init_Proc (E Id) { return Flag105 (Base_Type (Id)); } INLINE B Suppress_Length_Checks (E Id) { return Flag37 (Id); } INLINE B Suppress_Overflow_Checks (E Id) { return Flag38 (Id); } INLINE B Suppress_Range_Checks (E Id) { return Flag39 (Id); } INLINE B Suppress_Storage_Checks (E Id) { return Flag40 (Id); } INLINE B Suppress_Style_Checks (E Id) { return Flag165 (Id); } INLINE B Suppress_Tag_Checks (E Id) { return Flag41 (Id); } INLINE E Underlying_Full_View (E Id) { return Node19 (Id); } INLINE N Unset_Reference (E Id) { return Node16 (Id); } INLINE B Uses_Sec_Stack (E Id) { return Flag95 (Id); } INLINE B Vax_Float (E Id) { return Flag151 (Base_Type (Id)); } INLINE B Warnings_Off (E Id) { return Flag96 (Id); } INLINE B Is_Access_Type (E Id) { return IN (Ekind (Id), Access_Kind); } INLINE B Is_Array_Type (E Id) { return IN (Ekind (Id), Array_Kind); } INLINE B Is_Class_Wide_Type (E Id) { return IN (Ekind (Id), Class_Wide_Kind); } INLINE B Is_Composite_Type (E Id) { return IN (Ekind (Id), Composite_Kind); } INLINE B Is_Concurrent_Body (E Id) { return IN (Ekind (Id), Concurrent_Body_Kind); } INLINE B Is_Concurrent_Record_Type (E Id) { return Flag20 (Id); } INLINE B Is_Concurrent_Type (E Id) { return IN (Ekind (Id), Concurrent_Kind); } INLINE B Is_Decimal_Fixed_Point_Type (E Id) { return IN (Ekind (Id), Decimal_Fixed_Point_Kind); } INLINE B Is_Digits_Type (E Id) { return IN (Ekind (Id), Digits_Kind); } INLINE B Is_Discrete_Or_Fixed_Point_Type (E Id) { return IN (Ekind (Id), Discrete_Or_Fixed_Point_Kind); } INLINE B Is_Discrete_Type (E Id) { return IN (Ekind (Id), Discrete_Kind); } INLINE B Is_Elementary_Type (E Id) { return IN (Ekind (Id), Elementary_Kind); } INLINE B Is_Entry (E Id) { return IN (Ekind (Id), Entry_Kind); } INLINE B Is_Enumeration_Type (E Id) { return IN (Ekind (Id), Enumeration_Kind); } INLINE B Is_Fixed_Point_Type (E Id) { return IN (Ekind (Id), Fixed_Point_Kind); } INLINE B Is_Floating_Point_Type (E Id) { return IN (Ekind (Id), Float_Kind); } INLINE B Is_Formal (E Id) { return IN (Ekind (Id), Formal_Kind); } INLINE B Is_Generic_Unit (E Id) { return IN (Ekind (Id), Generic_Unit_Kind); } INLINE B Is_Incomplete_Or_Private_Type (E Id) { return IN (Ekind (Id), Incomplete_Or_Private_Kind); } INLINE B Is_Integer_Type (E Id) { return IN (Ekind (Id), Integer_Kind); } INLINE B Is_Modular_Integer_Type (E Id) { return IN (Ekind (Id), Modular_Integer_Kind); } INLINE B Is_Named_Number (E Id) { return IN (Ekind (Id), Named_Kind); } INLINE B Is_Numeric_Type (E Id) { return IN (Ekind (Id), Numeric_Kind); } INLINE B Is_Object (E Id) { return IN (Ekind (Id), Object_Kind); } INLINE B Is_Ordinary_Fixed_Point_Type (E Id) { return IN (Ekind (Id), Ordinary_Fixed_Point_Kind); } INLINE B Is_Overloadable (E Id) { return IN (Ekind (Id), Overloadable_Kind); } INLINE B Is_Private_Type (E Id) { return IN (Ekind (Id), Private_Kind); } INLINE B Is_Protected_Type (E Id) { return IN (Ekind (Id), Protected_Kind); } INLINE B Is_Real_Type (E Id) { return IN (Ekind (Id), Real_Kind); } INLINE B Is_Record_Type (E Id) { return IN (Ekind (Id), Record_Kind); } INLINE B Is_Scalar_Type (E Id) { return IN (Ekind (Id), Scalar_Kind); } INLINE B Is_Signed_Integer_Type (E Id) { return IN (Ekind (Id), Signed_Integer_Kind); } INLINE B Is_Subprogram (E Id) { return IN (Ekind (Id), Subprogram_Kind); } INLINE B Is_Task_Type (E Id) { return IN (Ekind (Id), Task_Kind); } INLINE B Is_Type (E Id) { return IN (Ekind (Id), Type_Kind); } INLINE B Known_Alignment (Entity_Id E) { return Uint14 (E) != Uint_0; } INLINE B Known_Component_Bit_Offset (Entity_Id E) { return Uint11 (E) != No_Uint; } INLINE B Known_Component_Size (Entity_Id E) { return Uint22 (Base_Type (E)) != Uint_0; } INLINE B Known_Esize (Entity_Id E) { return Uint12 (E) != Uint_0; } INLINE B Known_Static_Component_Size (Entity_Id E) { return Uint22 (Base_Type (E)) > Uint_0; } INLINE B Known_Static_Esize (Entity_Id E) { return Uint12 (E) > Uint_0; } INLINE B Unknown_Alignment (Entity_Id E) { return Uint14 (E) == Uint_0; } INLINE B Unknown_Component_Bit_Offset (Entity_Id E) { return Uint11 (E) == No_Uint; } INLINE B Unknown_Component_Size (Entity_Id E) { return Uint22 (Base_Type (E)) == Uint_0; } INLINE B Unknown_Esize (Entity_Id E) { return Uint12 (E) == Uint_0; } INLINE N Entry_Index_Type (E Id) { return Etype (Discrete_Subtype_Definition (Parent (Id))); } INLINE Node_Id Next_Index (Node_Id Id) { return Next (Id); } INLINE E Next_Literal (E Id) { return Next (Id); } INLINE Formal_Kind Parameter_Mode (E Id) { return Ekind (Id); } /* End of einfo.h (C version of Einfo package specification) */