From b1e2825642cea9a9ca8acdf635b9b5d36d83da71 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 8 Dec 2003 09:53:53 +0000 Subject: [PATCH] * sinfo.h, einfo.h, nmake.ads, treeprs.ads: Removed, since they are automatically generated by Make-lang.in and cause nothing but maintenance troubles. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@74408 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 6 + gcc/ada/einfo.h | 1814 --------------------------------------------------- gcc/ada/nmake.ads | 1348 -------------------------------------- gcc/ada/sinfo.h | 842 ------------------------ gcc/ada/treeprs.ads | 796 ---------------------- 5 files changed, 6 insertions(+), 4800 deletions(-) delete mode 100644 gcc/ada/einfo.h delete mode 100644 gcc/ada/nmake.ads delete mode 100644 gcc/ada/sinfo.h delete mode 100644 gcc/ada/treeprs.ads diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c03196b..fac9736 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2003-12-08 Arnaud Charlet + + * sinfo.h, einfo.h, nmake.ads, treeprs.ads: Removed, since they + are automatically generated by Make-lang.in and cause nothing but + maintenance troubles. + 2003-12-05 Thomas Quinot * 3ssoliop.ads: Fix comment (this is the Solaris, not the UnixWare, diff --git a/gcc/ada/einfo.h b/gcc/ada/einfo.h deleted file mode 100644 index d34aca9..0000000 --- a/gcc/ada/einfo.h +++ /dev/null @@ -1,1814 +0,0 @@ -/*--------------------------------------------------------------------------*/ -/* */ -/* GNAT COMPILER COMPONENTS */ -/* */ -/* E I N F O */ -/* */ -/* C Header File */ -/* */ -/* Copyright (C) 1992-2003 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. */ -/* Extensive contributions were provided by Ada Core Technologies Inc. */ -/* */ -/*--------------------------------------------------------------------------*/ - - #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_Procedure 65 - #define E_Generic_Package 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_Subprogram_Kind, Entity_Kind, - E_Generic_Function, E_Generic_Procedure) - - SUBTYPE (Generic_Unit_Kind, Entity_Kind, - E_Generic_Function, E_Generic_Package) - - 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 B Body_Needed_For_SAL (E Id); - INLINE E CR_Discriminant (E Id); - INLINE B C_Pass_By_Copy (E Id); - INLINE B Can_Never_Be_Null (E Id); - INLINE B Checks_May_Be_Suppressed (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 N Current_Value (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 E Generic_Homonym (E Id); - INLINE L Generic_Renamings (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_Contiguous_Rep (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_Pragma_Unreferenced (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 B Has_Xref_Entry (E Id); - INLINE E Hiding_Loop_Variable (E Id); - INLINE E Homonym (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_Class_Wide_Equivalent_Type (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_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_Non_Null (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_Thread_Body (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); - - #define Is_Volatile einfo__is_volatile - B Is_Volatile (E Id); - - #define Is_Wrapper_Package einfo__is_wrapper_package - B Is_Wrapper_Package (E Id); - - INLINE B Kill_Elaboration_Checks (E Id); - INLINE B Kill_Range_Checks (E Id); - INLINE B Kill_Tag_Checks (E Id); - INLINE E Last_Entity (E Id); - INLINE L Limited_Views (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 B Never_Set_In_Source (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 E Non_Limited_View (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 E Object_Ref (E Id); - INLINE E Original_Array_Type (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 B Referenced_As_LHS (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 L Stored_Constraint (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_Elaboration_Warnings (E Id); - INLINE B Suppress_Init_Proc (E Id); - INLINE B Suppress_Style_Checks (E Id); - INLINE B Treat_As_Volatile (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_Unit (E Id); - INLINE B Is_Generic_Type (E Id); - INLINE B Is_Generic_Subprogram (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_Overriding_Operation (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_Stored_Discriminant einfo__first_stored_discriminant - E First_Stored_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); - - INLINE E Next_Literal (E Id); - - #define Next_Stored_Discriminant einfo__next_stored_discriminant - E Next_Stored_Discriminant (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); - - #define Known_Alignment einfo__known_alignment - B Known_Alignment (Entity_Id E); - - #define Known_Component_Bit_Offset einfo__known_component_bit_offset - B Known_Component_Bit_Offset (Entity_Id E); - - #define Known_Component_Size einfo__known_component_size - B Known_Component_Size (Entity_Id E); - - #define Known_Esize einfo__known_esize - 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); - - #define Known_Static_Component_Size einfo__known_static_component_size - B Known_Static_Component_Size (Entity_Id E); - - #define Known_Static_Esize einfo__known_static_esize - B Known_Static_Esize (Entity_Id E); - - #define Known_Static_Normalized_First_Bit einfo__known_static_normalized_first_bit - B Known_Static_Normalized_First_Bit (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); - - #define Unknown_Alignment einfo__unknown_alignment - B Unknown_Alignment (Entity_Id E); - - #define Unknown_Component_Bit_Offset einfo__unknown_component_bit_offset - B Unknown_Component_Bit_Offset (Entity_Id E); - - #define Unknown_Component_Size einfo__unknown_component_size - B Unknown_Component_Size (Entity_Id E); - - #define Unknown_Esize einfo__unknown_esize - 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 (Implementation_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 (Root_Type (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 Body_Needed_For_SAL (E Id) - { return Flag40 (Id); } - - INLINE B C_Pass_By_Copy (E Id) - { return Flag125 (Implementation_Base_Type (Id)); } - - INLINE B Can_Never_Be_Null (E Id) - { return Flag38 (Id); } - - INLINE B Checks_May_Be_Suppressed (E Id) - { return Flag31 (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 N Current_Value (E Id) - { return Node9 (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 E Generic_Homonym (E Id) - { return Node11 (Id); } - - INLINE L Generic_Renamings (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_Contiguous_Rep (E Id) - { return Flag181 (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_Pragma_Unreferenced (E Id) - { return Flag180 (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 (Implementation_Base_Type (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 (Implementation_Base_Type (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 B Has_Xref_Entry (E Id) - { return Flag182 (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_Class_Wide_Equivalent_Type (E Id) - { return Flag35 (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_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_Non_Null (E Id) - { return Flag37 (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_Overriding_Operation (E Id) - { return Flag39 (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_Thread_Body (E Id) - { return Flag77 (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 Kill_Elaboration_Checks (E Id) - { return Flag32 (Id); } - - INLINE B Kill_Range_Checks (E Id) - { return Flag33 (Id); } - - INLINE B Kill_Tag_Checks (E Id) - { return Flag34 (Id); } - - INLINE E Last_Entity (E Id) - { return Node20 (Id); } - - INLINE L Limited_Views (E Id) - { return Elist23 (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 B Never_Set_In_Source (E Id) - { return Flag115 (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 E Non_Limited_View (E Id) - { return Node17 (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 Uint14 (Id); } - - INLINE U Normalized_Position_Max (E Id) - { return Uint10 (Id); } - - INLINE E Object_Ref (E Id) - { return Node17 (Id); } - - INLINE E Original_Array_Type (E Id) - { return Node21 (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 B Referenced_As_LHS (E Id) - { return Flag36 (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 Node19 (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 L Stored_Constraint (E Id) - { return Elist23 (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_Elaboration_Warnings (E Id) - { return Flag148 (Id); } - - INLINE B Suppress_Init_Proc (E Id) - { return Flag105 (Base_Type (Id)); } - - INLINE B Suppress_Style_Checks (E Id) - { return Flag165 (Id); } - - INLINE B Treat_As_Volatile (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_Subprogram (E Id) - { return IN (Ekind (Id), Generic_Subprogram_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 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) */ diff --git a/gcc/ada/nmake.ads b/gcc/ada/nmake.ads deleted file mode 100644 index c8746ec..0000000 --- a/gcc/ada/nmake.ads +++ /dev/null @@ -1,1348 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- N M A K E -- --- -- --- S p e c -- --- -- --- Copyright (C) 1992-2003 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. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -pragma Style_Checks (All_Checks); --- Turn off subprogram order checking, since the routines here are --- generated automatically in order. - - -with Nlists; use Nlists; -with Types; use Types; -with Uintp; use Uintp; -with Urealp; use Urealp; - -package Nmake is - --- This package contains a set of routines used to construct tree nodes --- using a functional style. There is one routine for each node type defined --- in Sinfo with the general interface: - --- function Make_xxx (Sloc : Source_Ptr, --- Field_Name_1 : Field_Name_1_Type [:= default] --- Field_Name_2 : Field_Name_2_Type [:= default] --- ...) --- return Node_Id - --- Only syntactic fields are included (i.e. fields marked as "-Sem" or "-Lib" --- in the Sinfo spec are excluded). In addition, the following four syntactic --- fields are excluded: - --- Prev_Ids --- More_Ids --- Comes_From_Source --- Paren_Count - --- since they are very rarely set in expanded code. If they need to be set, --- to other than the default values (False, False, False, zero), then the --- appropriate Set_xxx procedures must be used on the returned value. - --- Default values are provided only for flag fields (where the default is --- False), and for optional fields. An optional field is one where the --- comment line describing the field contains the string "(set to xxx if". --- For such fields, a default value of xxx is provided." - --- Warning: since calls to Make_xxx routines are normal function calls, the --- arguments can be evaluated in any order. This means that at most one such --- argument can have side effects (e.g. be a call to a parse routine). - - function Make_Unused_At_Start (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Unused_At_Start); - - function Make_Unused_At_End (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Unused_At_End); - - function Make_Identifier (Sloc : Source_Ptr; - Chars : Name_Id) - return Node_Id; - pragma Inline (Make_Identifier); - - function Make_Integer_Literal (Sloc : Source_Ptr; - Intval : Uint) - return Node_Id; - pragma Inline (Make_Integer_Literal); - - function Make_Real_Literal (Sloc : Source_Ptr; - Realval : Ureal) - return Node_Id; - pragma Inline (Make_Real_Literal); - - function Make_Character_Literal (Sloc : Source_Ptr; - Chars : Name_Id; - Char_Literal_Value : Char_Code) - return Node_Id; - pragma Inline (Make_Character_Literal); - - function Make_String_Literal (Sloc : Source_Ptr; - Strval : String_Id) - return Node_Id; - pragma Inline (Make_String_Literal); - - function Make_Pragma (Sloc : Source_Ptr; - Chars : Name_Id; - Pragma_Argument_Associations : List_Id := No_List; - Debug_Statement : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Pragma); - - function Make_Pragma_Argument_Association (Sloc : Source_Ptr; - Chars : Name_Id := No_Name; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Pragma_Argument_Association); - - function Make_Defining_Identifier (Sloc : Source_Ptr; - Chars : Name_Id) - return Node_Id; - pragma Inline (Make_Defining_Identifier); - - function Make_Full_Type_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Type_Definition : Node_Id) - return Node_Id; - pragma Inline (Make_Full_Type_Declaration); - - function Make_Subtype_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Subtype_Indication : Node_Id) - return Node_Id; - pragma Inline (Make_Subtype_Declaration); - - function Make_Subtype_Indication (Sloc : Source_Ptr; - Subtype_Mark : Node_Id; - Constraint : Node_Id) - return Node_Id; - pragma Inline (Make_Subtype_Indication); - - function Make_Object_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Aliased_Present : Boolean := False; - Constant_Present : Boolean := False; - Object_Definition : Node_Id; - Expression : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Object_Declaration); - - function Make_Number_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Number_Declaration); - - function Make_Derived_Type_Definition (Sloc : Source_Ptr; - Abstract_Present : Boolean := False; - Subtype_Indication : Node_Id; - Record_Extension_Part : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Derived_Type_Definition); - - function Make_Range_Constraint (Sloc : Source_Ptr; - Range_Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Range_Constraint); - - function Make_Range (Sloc : Source_Ptr; - Low_Bound : Node_Id; - High_Bound : Node_Id; - Includes_Infinities : Boolean := False) - return Node_Id; - pragma Inline (Make_Range); - - function Make_Enumeration_Type_Definition (Sloc : Source_Ptr; - Literals : List_Id; - End_Label : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Enumeration_Type_Definition); - - function Make_Defining_Character_Literal (Sloc : Source_Ptr; - Chars : Name_Id) - return Node_Id; - pragma Inline (Make_Defining_Character_Literal); - - function Make_Signed_Integer_Type_Definition (Sloc : Source_Ptr; - Low_Bound : Node_Id; - High_Bound : Node_Id) - return Node_Id; - pragma Inline (Make_Signed_Integer_Type_Definition); - - function Make_Modular_Type_Definition (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Modular_Type_Definition); - - function Make_Floating_Point_Definition (Sloc : Source_Ptr; - Digits_Expression : Node_Id; - Real_Range_Specification : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Floating_Point_Definition); - - function Make_Real_Range_Specification (Sloc : Source_Ptr; - Low_Bound : Node_Id; - High_Bound : Node_Id) - return Node_Id; - pragma Inline (Make_Real_Range_Specification); - - function Make_Ordinary_Fixed_Point_Definition (Sloc : Source_Ptr; - Delta_Expression : Node_Id; - Real_Range_Specification : Node_Id) - return Node_Id; - pragma Inline (Make_Ordinary_Fixed_Point_Definition); - - function Make_Decimal_Fixed_Point_Definition (Sloc : Source_Ptr; - Delta_Expression : Node_Id; - Digits_Expression : Node_Id; - Real_Range_Specification : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Decimal_Fixed_Point_Definition); - - function Make_Digits_Constraint (Sloc : Source_Ptr; - Digits_Expression : Node_Id; - Range_Constraint : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Digits_Constraint); - - function Make_Unconstrained_Array_Definition (Sloc : Source_Ptr; - Subtype_Marks : List_Id; - Aliased_Present : Boolean := False; - Subtype_Indication : Node_Id) - return Node_Id; - pragma Inline (Make_Unconstrained_Array_Definition); - - function Make_Constrained_Array_Definition (Sloc : Source_Ptr; - Discrete_Subtype_Definitions : List_Id; - Aliased_Present : Boolean := False; - Subtype_Indication : Node_Id) - return Node_Id; - pragma Inline (Make_Constrained_Array_Definition); - - function Make_Discriminant_Specification (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Type : Node_Id; - Expression : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Discriminant_Specification); - - function Make_Index_Or_Discriminant_Constraint (Sloc : Source_Ptr; - Constraints : List_Id) - return Node_Id; - pragma Inline (Make_Index_Or_Discriminant_Constraint); - - function Make_Discriminant_Association (Sloc : Source_Ptr; - Selector_Names : List_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Discriminant_Association); - - function Make_Record_Definition (Sloc : Source_Ptr; - End_Label : Node_Id := Empty; - Abstract_Present : Boolean := False; - Tagged_Present : Boolean := False; - Limited_Present : Boolean := False; - Component_List : Node_Id; - Null_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Record_Definition); - - function Make_Component_List (Sloc : Source_Ptr; - Component_Items : List_Id; - Variant_Part : Node_Id := Empty; - Null_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Component_List); - - function Make_Component_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Aliased_Present : Boolean := False; - Subtype_Indication : Node_Id; - Expression : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Component_Declaration); - - function Make_Variant_Part (Sloc : Source_Ptr; - Name : Node_Id; - Variants : List_Id) - return Node_Id; - pragma Inline (Make_Variant_Part); - - function Make_Variant (Sloc : Source_Ptr; - Discrete_Choices : List_Id; - Component_List : Node_Id) - return Node_Id; - pragma Inline (Make_Variant); - - function Make_Others_Choice (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Others_Choice); - - function Make_Access_To_Object_Definition (Sloc : Source_Ptr; - All_Present : Boolean := False; - Subtype_Indication : Node_Id; - Constant_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Access_To_Object_Definition); - - function Make_Access_Function_Definition (Sloc : Source_Ptr; - Protected_Present : Boolean := False; - Parameter_Specifications : List_Id := No_List; - Subtype_Mark : Node_Id) - return Node_Id; - pragma Inline (Make_Access_Function_Definition); - - function Make_Access_Procedure_Definition (Sloc : Source_Ptr; - Protected_Present : Boolean := False; - Parameter_Specifications : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Access_Procedure_Definition); - - function Make_Access_Definition (Sloc : Source_Ptr; - Subtype_Mark : Node_Id) - return Node_Id; - pragma Inline (Make_Access_Definition); - - function Make_Incomplete_Type_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Unknown_Discriminants_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Incomplete_Type_Declaration); - - function Make_Explicit_Dereference (Sloc : Source_Ptr; - Prefix : Node_Id) - return Node_Id; - pragma Inline (Make_Explicit_Dereference); - - function Make_Indexed_Component (Sloc : Source_Ptr; - Prefix : Node_Id; - Expressions : List_Id) - return Node_Id; - pragma Inline (Make_Indexed_Component); - - function Make_Slice (Sloc : Source_Ptr; - Prefix : Node_Id; - Discrete_Range : Node_Id) - return Node_Id; - pragma Inline (Make_Slice); - - function Make_Selected_Component (Sloc : Source_Ptr; - Prefix : Node_Id; - Selector_Name : Node_Id) - return Node_Id; - pragma Inline (Make_Selected_Component); - - function Make_Attribute_Reference (Sloc : Source_Ptr; - Prefix : Node_Id; - Attribute_Name : Name_Id; - Expressions : List_Id := No_List; - Must_Be_Byte_Aligned : Boolean := False) - return Node_Id; - pragma Inline (Make_Attribute_Reference); - - function Make_Aggregate (Sloc : Source_Ptr; - Expressions : List_Id := No_List; - Component_Associations : List_Id := No_List; - Null_Record_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Aggregate); - - function Make_Component_Association (Sloc : Source_Ptr; - Choices : List_Id; - Expression : Node_Id; - Box_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Component_Association); - - function Make_Extension_Aggregate (Sloc : Source_Ptr; - Ancestor_Part : Node_Id; - Expressions : List_Id := No_List; - Component_Associations : List_Id := No_List; - Null_Record_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Extension_Aggregate); - - function Make_Null (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Null); - - function Make_And_Then (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_And_Then); - - function Make_Or_Else (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Or_Else); - - function Make_In (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_In); - - function Make_Not_In (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Not_In); - - function Make_Op_And (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_And); - - function Make_Op_Or (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Or); - - function Make_Op_Xor (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Xor); - - function Make_Op_Eq (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Eq); - - function Make_Op_Ne (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Ne); - - function Make_Op_Lt (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Lt); - - function Make_Op_Le (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Le); - - function Make_Op_Gt (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Gt); - - function Make_Op_Ge (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Ge); - - function Make_Op_Add (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Add); - - function Make_Op_Subtract (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Subtract); - - function Make_Op_Concat (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Concat); - - function Make_Op_Multiply (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Multiply); - - function Make_Op_Divide (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Divide); - - function Make_Op_Mod (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Mod); - - function Make_Op_Rem (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Rem); - - function Make_Op_Expon (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Expon); - - function Make_Op_Plus (Sloc : Source_Ptr; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Plus); - - function Make_Op_Minus (Sloc : Source_Ptr; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Minus); - - function Make_Op_Abs (Sloc : Source_Ptr; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Abs); - - function Make_Op_Not (Sloc : Source_Ptr; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Not); - - function Make_Type_Conversion (Sloc : Source_Ptr; - Subtype_Mark : Node_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Type_Conversion); - - function Make_Qualified_Expression (Sloc : Source_Ptr; - Subtype_Mark : Node_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Qualified_Expression); - - function Make_Allocator (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Allocator); - - function Make_Null_Statement (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Null_Statement); - - function Make_Label (Sloc : Source_Ptr; - Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Label); - - function Make_Assignment_Statement (Sloc : Source_Ptr; - Name : Node_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Assignment_Statement); - - function Make_If_Statement (Sloc : Source_Ptr; - Condition : Node_Id; - Then_Statements : List_Id; - Elsif_Parts : List_Id := No_List; - Else_Statements : List_Id := No_List; - End_Span : Uint := No_Uint) - return Node_Id; - pragma Inline (Make_If_Statement); - - function Make_Elsif_Part (Sloc : Source_Ptr; - Condition : Node_Id; - Then_Statements : List_Id) - return Node_Id; - pragma Inline (Make_Elsif_Part); - - function Make_Case_Statement (Sloc : Source_Ptr; - Expression : Node_Id; - Alternatives : List_Id; - End_Span : Uint := No_Uint) - return Node_Id; - pragma Inline (Make_Case_Statement); - - function Make_Case_Statement_Alternative (Sloc : Source_Ptr; - Discrete_Choices : List_Id; - Statements : List_Id) - return Node_Id; - pragma Inline (Make_Case_Statement_Alternative); - - function Make_Loop_Statement (Sloc : Source_Ptr; - Identifier : Node_Id := Empty; - Iteration_Scheme : Node_Id := Empty; - Statements : List_Id; - End_Label : Node_Id; - Has_Created_Identifier : Boolean := False; - Is_Null_Loop : Boolean := False) - return Node_Id; - pragma Inline (Make_Loop_Statement); - - function Make_Iteration_Scheme (Sloc : Source_Ptr; - Condition : Node_Id := Empty; - Loop_Parameter_Specification : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Iteration_Scheme); - - function Make_Loop_Parameter_Specification (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Reverse_Present : Boolean := False; - Discrete_Subtype_Definition : Node_Id) - return Node_Id; - pragma Inline (Make_Loop_Parameter_Specification); - - function Make_Block_Statement (Sloc : Source_Ptr; - Identifier : Node_Id := Empty; - Declarations : List_Id := No_List; - Handled_Statement_Sequence : Node_Id; - Has_Created_Identifier : Boolean := False; - Is_Task_Allocation_Block : Boolean := False; - Is_Asynchronous_Call_Block : Boolean := False) - return Node_Id; - pragma Inline (Make_Block_Statement); - - function Make_Exit_Statement (Sloc : Source_Ptr; - Name : Node_Id := Empty; - Condition : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Exit_Statement); - - function Make_Goto_Statement (Sloc : Source_Ptr; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Goto_Statement); - - function Make_Subprogram_Declaration (Sloc : Source_Ptr; - Specification : Node_Id) - return Node_Id; - pragma Inline (Make_Subprogram_Declaration); - - function Make_Abstract_Subprogram_Declaration (Sloc : Source_Ptr; - Specification : Node_Id) - return Node_Id; - pragma Inline (Make_Abstract_Subprogram_Declaration); - - function Make_Function_Specification (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Parameter_Specifications : List_Id := No_List; - Subtype_Mark : Node_Id) - return Node_Id; - pragma Inline (Make_Function_Specification); - - function Make_Procedure_Specification (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Parameter_Specifications : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Procedure_Specification); - - function Make_Designator (Sloc : Source_Ptr; - Name : Node_Id; - Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Designator); - - function Make_Defining_Program_Unit_Name (Sloc : Source_Ptr; - Name : Node_Id; - Defining_Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Defining_Program_Unit_Name); - - function Make_Operator_Symbol (Sloc : Source_Ptr; - Chars : Name_Id; - Strval : String_Id) - return Node_Id; - pragma Inline (Make_Operator_Symbol); - - function Make_Defining_Operator_Symbol (Sloc : Source_Ptr; - Chars : Name_Id) - return Node_Id; - pragma Inline (Make_Defining_Operator_Symbol); - - function Make_Parameter_Specification (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - In_Present : Boolean := False; - Out_Present : Boolean := False; - Parameter_Type : Node_Id; - Expression : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Parameter_Specification); - - function Make_Subprogram_Body (Sloc : Source_Ptr; - Specification : Node_Id; - Declarations : List_Id; - Handled_Statement_Sequence : Node_Id; - Bad_Is_Detected : Boolean := False) - return Node_Id; - pragma Inline (Make_Subprogram_Body); - - function Make_Procedure_Call_Statement (Sloc : Source_Ptr; - Name : Node_Id; - Parameter_Associations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Procedure_Call_Statement); - - function Make_Function_Call (Sloc : Source_Ptr; - Name : Node_Id; - Parameter_Associations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Function_Call); - - function Make_Parameter_Association (Sloc : Source_Ptr; - Selector_Name : Node_Id; - Explicit_Actual_Parameter : Node_Id) - return Node_Id; - pragma Inline (Make_Parameter_Association); - - function Make_Return_Statement (Sloc : Source_Ptr; - Expression : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Return_Statement); - - function Make_Package_Declaration (Sloc : Source_Ptr; - Specification : Node_Id) - return Node_Id; - pragma Inline (Make_Package_Declaration); - - function Make_Package_Specification (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Visible_Declarations : List_Id; - Private_Declarations : List_Id := No_List; - End_Label : Node_Id) - return Node_Id; - pragma Inline (Make_Package_Specification); - - function Make_Package_Body (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Declarations : List_Id; - Handled_Statement_Sequence : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Package_Body); - - function Make_Private_Type_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Unknown_Discriminants_Present : Boolean := False; - Abstract_Present : Boolean := False; - Tagged_Present : Boolean := False; - Limited_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Private_Type_Declaration); - - function Make_Private_Extension_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Unknown_Discriminants_Present : Boolean := False; - Abstract_Present : Boolean := False; - Subtype_Indication : Node_Id) - return Node_Id; - pragma Inline (Make_Private_Extension_Declaration); - - function Make_Use_Package_Clause (Sloc : Source_Ptr; - Names : List_Id) - return Node_Id; - pragma Inline (Make_Use_Package_Clause); - - function Make_Use_Type_Clause (Sloc : Source_Ptr; - Subtype_Marks : List_Id) - return Node_Id; - pragma Inline (Make_Use_Type_Clause); - - function Make_Object_Renaming_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Subtype_Mark : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Object_Renaming_Declaration); - - function Make_Exception_Renaming_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Exception_Renaming_Declaration); - - function Make_Package_Renaming_Declaration (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Package_Renaming_Declaration); - - function Make_Subprogram_Renaming_Declaration (Sloc : Source_Ptr; - Specification : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Subprogram_Renaming_Declaration); - - function Make_Generic_Package_Renaming_Declaration (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Generic_Package_Renaming_Declaration); - - function Make_Generic_Procedure_Renaming_Declaration (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Generic_Procedure_Renaming_Declaration); - - function Make_Generic_Function_Renaming_Declaration (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id) - return Node_Id; - pragma Inline (Make_Generic_Function_Renaming_Declaration); - - function Make_Task_Type_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Task_Definition : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Task_Type_Declaration); - - function Make_Single_Task_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Task_Definition : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Single_Task_Declaration); - - function Make_Task_Definition (Sloc : Source_Ptr; - Visible_Declarations : List_Id; - Private_Declarations : List_Id := No_List; - End_Label : Node_Id) - return Node_Id; - pragma Inline (Make_Task_Definition); - - function Make_Task_Body (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Declarations : List_Id; - Handled_Statement_Sequence : Node_Id) - return Node_Id; - pragma Inline (Make_Task_Body); - - function Make_Protected_Type_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Protected_Definition : Node_Id) - return Node_Id; - pragma Inline (Make_Protected_Type_Declaration); - - function Make_Single_Protected_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Protected_Definition : Node_Id) - return Node_Id; - pragma Inline (Make_Single_Protected_Declaration); - - function Make_Protected_Definition (Sloc : Source_Ptr; - Visible_Declarations : List_Id; - Private_Declarations : List_Id := No_List; - End_Label : Node_Id) - return Node_Id; - pragma Inline (Make_Protected_Definition); - - function Make_Protected_Body (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Declarations : List_Id; - End_Label : Node_Id) - return Node_Id; - pragma Inline (Make_Protected_Body); - - function Make_Entry_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discrete_Subtype_Definition : Node_Id := Empty; - Parameter_Specifications : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Entry_Declaration); - - function Make_Accept_Statement (Sloc : Source_Ptr; - Entry_Direct_Name : Node_Id; - Entry_Index : Node_Id := Empty; - Parameter_Specifications : List_Id := No_List; - Handled_Statement_Sequence : Node_Id; - Declarations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Accept_Statement); - - function Make_Entry_Body (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Entry_Body_Formal_Part : Node_Id; - Declarations : List_Id; - Handled_Statement_Sequence : Node_Id) - return Node_Id; - pragma Inline (Make_Entry_Body); - - function Make_Entry_Body_Formal_Part (Sloc : Source_Ptr; - Entry_Index_Specification : Node_Id := Empty; - Parameter_Specifications : List_Id := No_List; - Condition : Node_Id) - return Node_Id; - pragma Inline (Make_Entry_Body_Formal_Part); - - function Make_Entry_Index_Specification (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Discrete_Subtype_Definition : Node_Id) - return Node_Id; - pragma Inline (Make_Entry_Index_Specification); - - function Make_Entry_Call_Statement (Sloc : Source_Ptr; - Name : Node_Id; - Parameter_Associations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Entry_Call_Statement); - - function Make_Requeue_Statement (Sloc : Source_Ptr; - Name : Node_Id; - Abort_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Requeue_Statement); - - function Make_Delay_Until_Statement (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Delay_Until_Statement); - - function Make_Delay_Relative_Statement (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Delay_Relative_Statement); - - function Make_Selective_Accept (Sloc : Source_Ptr; - Select_Alternatives : List_Id; - Else_Statements : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Selective_Accept); - - function Make_Accept_Alternative (Sloc : Source_Ptr; - Accept_Statement : Node_Id; - Condition : Node_Id := Empty; - Statements : List_Id := Empty_List; - Pragmas_Before : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Accept_Alternative); - - function Make_Delay_Alternative (Sloc : Source_Ptr; - Delay_Statement : Node_Id; - Condition : Node_Id := Empty; - Statements : List_Id := Empty_List; - Pragmas_Before : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Delay_Alternative); - - function Make_Terminate_Alternative (Sloc : Source_Ptr; - Condition : Node_Id := Empty; - Pragmas_Before : List_Id := No_List; - Pragmas_After : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Terminate_Alternative); - - function Make_Timed_Entry_Call (Sloc : Source_Ptr; - Entry_Call_Alternative : Node_Id; - Delay_Alternative : Node_Id) - return Node_Id; - pragma Inline (Make_Timed_Entry_Call); - - function Make_Entry_Call_Alternative (Sloc : Source_Ptr; - Entry_Call_Statement : Node_Id; - Statements : List_Id := Empty_List; - Pragmas_Before : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Entry_Call_Alternative); - - function Make_Conditional_Entry_Call (Sloc : Source_Ptr; - Entry_Call_Alternative : Node_Id; - Else_Statements : List_Id) - return Node_Id; - pragma Inline (Make_Conditional_Entry_Call); - - function Make_Asynchronous_Select (Sloc : Source_Ptr; - Triggering_Alternative : Node_Id; - Abortable_Part : Node_Id) - return Node_Id; - pragma Inline (Make_Asynchronous_Select); - - function Make_Triggering_Alternative (Sloc : Source_Ptr; - Triggering_Statement : Node_Id; - Statements : List_Id := Empty_List; - Pragmas_Before : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Triggering_Alternative); - - function Make_Abortable_Part (Sloc : Source_Ptr; - Statements : List_Id) - return Node_Id; - pragma Inline (Make_Abortable_Part); - - function Make_Abort_Statement (Sloc : Source_Ptr; - Names : List_Id) - return Node_Id; - pragma Inline (Make_Abort_Statement); - - function Make_Compilation_Unit (Sloc : Source_Ptr; - Context_Items : List_Id; - Private_Present : Boolean := False; - Unit : Node_Id; - Aux_Decls_Node : Node_Id) - return Node_Id; - pragma Inline (Make_Compilation_Unit); - - function Make_Compilation_Unit_Aux (Sloc : Source_Ptr; - Declarations : List_Id := No_List; - Actions : List_Id := No_List; - Pragmas_After : List_Id := No_List; - Config_Pragmas : List_Id := Empty_List) - return Node_Id; - pragma Inline (Make_Compilation_Unit_Aux); - - function Make_With_Clause (Sloc : Source_Ptr; - Name : Node_Id; - First_Name : Boolean := True; - Last_Name : Boolean := True; - Limited_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_With_Clause); - - function Make_With_Type_Clause (Sloc : Source_Ptr; - Name : Node_Id; - Tagged_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_With_Type_Clause); - - function Make_Subprogram_Body_Stub (Sloc : Source_Ptr; - Specification : Node_Id) - return Node_Id; - pragma Inline (Make_Subprogram_Body_Stub); - - function Make_Package_Body_Stub (Sloc : Source_Ptr; - Defining_Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Package_Body_Stub); - - function Make_Task_Body_Stub (Sloc : Source_Ptr; - Defining_Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Task_Body_Stub); - - function Make_Protected_Body_Stub (Sloc : Source_Ptr; - Defining_Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Protected_Body_Stub); - - function Make_Subunit (Sloc : Source_Ptr; - Name : Node_Id; - Proper_Body : Node_Id) - return Node_Id; - pragma Inline (Make_Subunit); - - function Make_Exception_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Exception_Declaration); - - function Make_Handled_Sequence_Of_Statements (Sloc : Source_Ptr; - Statements : List_Id; - End_Label : Node_Id := Empty; - Exception_Handlers : List_Id := No_List; - At_End_Proc : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Handled_Sequence_Of_Statements); - - function Make_Exception_Handler (Sloc : Source_Ptr; - Choice_Parameter : Node_Id := Empty; - Exception_Choices : List_Id; - Statements : List_Id) - return Node_Id; - pragma Inline (Make_Exception_Handler); - - function Make_Raise_Statement (Sloc : Source_Ptr; - Name : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Raise_Statement); - - function Make_Generic_Subprogram_Declaration (Sloc : Source_Ptr; - Specification : Node_Id; - Generic_Formal_Declarations : List_Id) - return Node_Id; - pragma Inline (Make_Generic_Subprogram_Declaration); - - function Make_Generic_Package_Declaration (Sloc : Source_Ptr; - Specification : Node_Id; - Generic_Formal_Declarations : List_Id) - return Node_Id; - pragma Inline (Make_Generic_Package_Declaration); - - function Make_Package_Instantiation (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id; - Generic_Associations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Package_Instantiation); - - function Make_Procedure_Instantiation (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id; - Generic_Associations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Procedure_Instantiation); - - function Make_Function_Instantiation (Sloc : Source_Ptr; - Defining_Unit_Name : Node_Id; - Name : Node_Id; - Generic_Associations : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Function_Instantiation); - - function Make_Generic_Association (Sloc : Source_Ptr; - Selector_Name : Node_Id := Empty; - Explicit_Generic_Actual_Parameter : Node_Id) - return Node_Id; - pragma Inline (Make_Generic_Association); - - function Make_Formal_Object_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - In_Present : Boolean := False; - Out_Present : Boolean := False; - Subtype_Mark : Node_Id; - Expression : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Formal_Object_Declaration); - - function Make_Formal_Type_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Formal_Type_Definition : Node_Id; - Discriminant_Specifications : List_Id := No_List; - Unknown_Discriminants_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Formal_Type_Declaration); - - function Make_Formal_Private_Type_Definition (Sloc : Source_Ptr; - Abstract_Present : Boolean := False; - Tagged_Present : Boolean := False; - Limited_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Formal_Private_Type_Definition); - - function Make_Formal_Derived_Type_Definition (Sloc : Source_Ptr; - Subtype_Mark : Node_Id; - Private_Present : Boolean := False; - Abstract_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Formal_Derived_Type_Definition); - - function Make_Formal_Discrete_Type_Definition (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Formal_Discrete_Type_Definition); - - function Make_Formal_Signed_Integer_Type_Definition (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Formal_Signed_Integer_Type_Definition); - - function Make_Formal_Modular_Type_Definition (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Formal_Modular_Type_Definition); - - function Make_Formal_Floating_Point_Definition (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Formal_Floating_Point_Definition); - - function Make_Formal_Ordinary_Fixed_Point_Definition (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Formal_Ordinary_Fixed_Point_Definition); - - function Make_Formal_Decimal_Fixed_Point_Definition (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Formal_Decimal_Fixed_Point_Definition); - - function Make_Formal_Subprogram_Declaration (Sloc : Source_Ptr; - Specification : Node_Id; - Default_Name : Node_Id := Empty; - Box_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Formal_Subprogram_Declaration); - - function Make_Formal_Package_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id; - Name : Node_Id; - Generic_Associations : List_Id := No_List; - Box_Present : Boolean := False) - return Node_Id; - pragma Inline (Make_Formal_Package_Declaration); - - function Make_Attribute_Definition_Clause (Sloc : Source_Ptr; - Name : Node_Id; - Chars : Name_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Attribute_Definition_Clause); - - function Make_Enumeration_Representation_Clause (Sloc : Source_Ptr; - Identifier : Node_Id; - Array_Aggregate : Node_Id) - return Node_Id; - pragma Inline (Make_Enumeration_Representation_Clause); - - function Make_Record_Representation_Clause (Sloc : Source_Ptr; - Identifier : Node_Id; - Mod_Clause : Node_Id := Empty; - Component_Clauses : List_Id) - return Node_Id; - pragma Inline (Make_Record_Representation_Clause); - - function Make_Component_Clause (Sloc : Source_Ptr; - Component_Name : Node_Id; - Position : Node_Id; - First_Bit : Node_Id; - Last_Bit : Node_Id) - return Node_Id; - pragma Inline (Make_Component_Clause); - - function Make_Code_Statement (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Code_Statement); - - function Make_Op_Rotate_Left (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Rotate_Left); - - function Make_Op_Rotate_Right (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Rotate_Right); - - function Make_Op_Shift_Left (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Shift_Left); - - function Make_Op_Shift_Right_Arithmetic (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Shift_Right_Arithmetic); - - function Make_Op_Shift_Right (Sloc : Source_Ptr; - Left_Opnd : Node_Id; - Right_Opnd : Node_Id) - return Node_Id; - pragma Inline (Make_Op_Shift_Right); - - function Make_Delta_Constraint (Sloc : Source_Ptr; - Delta_Expression : Node_Id; - Range_Constraint : Node_Id := Empty) - return Node_Id; - pragma Inline (Make_Delta_Constraint); - - function Make_At_Clause (Sloc : Source_Ptr; - Identifier : Node_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_At_Clause); - - function Make_Mod_Clause (Sloc : Source_Ptr; - Expression : Node_Id; - Pragmas_Before : List_Id) - return Node_Id; - pragma Inline (Make_Mod_Clause); - - function Make_Conditional_Expression (Sloc : Source_Ptr; - Expressions : List_Id) - return Node_Id; - pragma Inline (Make_Conditional_Expression); - - function Make_Expanded_Name (Sloc : Source_Ptr; - Chars : Name_Id; - Prefix : Node_Id; - Selector_Name : Node_Id) - return Node_Id; - pragma Inline (Make_Expanded_Name); - - function Make_Free_Statement (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Free_Statement); - - function Make_Freeze_Entity (Sloc : Source_Ptr; - Actions : List_Id := No_List) - return Node_Id; - pragma Inline (Make_Freeze_Entity); - - function Make_Implicit_Label_Declaration (Sloc : Source_Ptr; - Defining_Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Implicit_Label_Declaration); - - function Make_Itype_Reference (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Itype_Reference); - - function Make_Raise_Constraint_Error (Sloc : Source_Ptr; - Condition : Node_Id := Empty; - Reason : Uint) - return Node_Id; - pragma Inline (Make_Raise_Constraint_Error); - - function Make_Raise_Program_Error (Sloc : Source_Ptr; - Condition : Node_Id := Empty; - Reason : Uint) - return Node_Id; - pragma Inline (Make_Raise_Program_Error); - - function Make_Raise_Storage_Error (Sloc : Source_Ptr; - Condition : Node_Id := Empty; - Reason : Uint) - return Node_Id; - pragma Inline (Make_Raise_Storage_Error); - - function Make_Reference (Sloc : Source_Ptr; - Prefix : Node_Id) - return Node_Id; - pragma Inline (Make_Reference); - - function Make_Subprogram_Info (Sloc : Source_Ptr; - Identifier : Node_Id) - return Node_Id; - pragma Inline (Make_Subprogram_Info); - - function Make_Unchecked_Expression (Sloc : Source_Ptr; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Unchecked_Expression); - - function Make_Unchecked_Type_Conversion (Sloc : Source_Ptr; - Subtype_Mark : Node_Id; - Expression : Node_Id) - return Node_Id; - pragma Inline (Make_Unchecked_Type_Conversion); - - function Make_Validate_Unchecked_Conversion (Sloc : Source_Ptr) - return Node_Id; - pragma Inline (Make_Validate_Unchecked_Conversion); - -end Nmake; diff --git a/gcc/ada/sinfo.h b/gcc/ada/sinfo.h deleted file mode 100644 index b780575..0000000 --- a/gcc/ada/sinfo.h +++ /dev/null @@ -1,842 +0,0 @@ -/*--------------------------------------------------------------------------*/ -/* */ -/* GNAT COMPILER COMPONENTS */ -/* */ -/* S I N F O */ -/* */ -/* C Header File */ -/* */ -/* Copyright (C) 1992-2003, 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. */ -/* Extensive contributions were provided by Ada Core Technologies Inc. */ -/* */ -/*--------------------------------------------------------------------------*/ - - #define N_Unused_At_Start 0 - #define N_At_Clause 1 - #define N_Component_Clause 2 - #define N_Enumeration_Representation_Clause 3 - #define N_Mod_Clause 4 - #define N_Record_Representation_Clause 5 - #define N_Attribute_Definition_Clause 6 - #define N_Empty 7 - #define N_Pragma 8 - #define N_Pragma_Argument_Association 9 - #define N_Error 10 - #define N_Defining_Character_Literal 11 - #define N_Defining_Identifier 12 - #define N_Defining_Operator_Symbol 13 - #define N_Expanded_Name 14 - #define N_Identifier 15 - #define N_Operator_Symbol 16 - #define N_Character_Literal 17 - #define N_Op_Add 18 - #define N_Op_Concat 19 - #define N_Op_Expon 20 - #define N_Op_Subtract 21 - #define N_Op_Divide 22 - #define N_Op_Mod 23 - #define N_Op_Multiply 24 - #define N_Op_Rem 25 - #define N_Op_And 26 - #define N_Op_Eq 27 - #define N_Op_Ge 28 - #define N_Op_Gt 29 - #define N_Op_Le 30 - #define N_Op_Lt 31 - #define N_Op_Ne 32 - #define N_Op_Or 33 - #define N_Op_Xor 34 - #define N_Op_Rotate_Left 35 - #define N_Op_Rotate_Right 36 - #define N_Op_Shift_Left 37 - #define N_Op_Shift_Right 38 - #define N_Op_Shift_Right_Arithmetic 39 - #define N_Op_Abs 40 - #define N_Op_Minus 41 - #define N_Op_Not 42 - #define N_Op_Plus 43 - #define N_Attribute_Reference 44 - #define N_And_Then 45 - #define N_Conditional_Expression 46 - #define N_Explicit_Dereference 47 - #define N_Function_Call 48 - #define N_In 49 - #define N_Indexed_Component 50 - #define N_Integer_Literal 51 - #define N_Not_In 52 - #define N_Null 53 - #define N_Or_Else 54 - #define N_Procedure_Call_Statement 55 - #define N_Qualified_Expression 56 - #define N_Raise_Constraint_Error 57 - #define N_Raise_Program_Error 58 - #define N_Raise_Storage_Error 59 - #define N_Aggregate 60 - #define N_Allocator 61 - #define N_Extension_Aggregate 62 - #define N_Range 63 - #define N_Real_Literal 64 - #define N_Reference 65 - #define N_Selected_Component 66 - #define N_Slice 67 - #define N_String_Literal 68 - #define N_Subprogram_Info 69 - #define N_Type_Conversion 70 - #define N_Unchecked_Expression 71 - #define N_Unchecked_Type_Conversion 72 - #define N_Subtype_Indication 73 - #define N_Component_Declaration 74 - #define N_Entry_Declaration 75 - #define N_Formal_Object_Declaration 76 - #define N_Formal_Type_Declaration 77 - #define N_Full_Type_Declaration 78 - #define N_Incomplete_Type_Declaration 79 - #define N_Loop_Parameter_Specification 80 - #define N_Object_Declaration 81 - #define N_Protected_Type_Declaration 82 - #define N_Private_Extension_Declaration 83 - #define N_Private_Type_Declaration 84 - #define N_Subtype_Declaration 85 - #define N_Function_Specification 86 - #define N_Procedure_Specification 87 - #define N_Entry_Index_Specification 88 - #define N_Freeze_Entity 89 - #define N_Access_Function_Definition 90 - #define N_Access_Procedure_Definition 91 - #define N_Task_Type_Declaration 92 - #define N_Package_Body_Stub 93 - #define N_Protected_Body_Stub 94 - #define N_Subprogram_Body_Stub 95 - #define N_Task_Body_Stub 96 - #define N_Function_Instantiation 97 - #define N_Package_Instantiation 98 - #define N_Procedure_Instantiation 99 - #define N_Package_Body 100 - #define N_Subprogram_Body 101 - #define N_Protected_Body 102 - #define N_Task_Body 103 - #define N_Implicit_Label_Declaration 104 - #define N_Package_Declaration 105 - #define N_Single_Task_Declaration 106 - #define N_Subprogram_Declaration 107 - #define N_Use_Package_Clause 108 - #define N_Generic_Package_Declaration 109 - #define N_Generic_Subprogram_Declaration 110 - #define N_Constrained_Array_Definition 111 - #define N_Unconstrained_Array_Definition 112 - #define N_Exception_Renaming_Declaration 113 - #define N_Object_Renaming_Declaration 114 - #define N_Package_Renaming_Declaration 115 - #define N_Subprogram_Renaming_Declaration 116 - #define N_Generic_Function_Renaming_Declaration 117 - #define N_Generic_Package_Renaming_Declaration 118 - #define N_Generic_Procedure_Renaming_Declaration 119 - #define N_Abort_Statement 120 - #define N_Accept_Statement 121 - #define N_Assignment_Statement 122 - #define N_Asynchronous_Select 123 - #define N_Block_Statement 124 - #define N_Case_Statement 125 - #define N_Code_Statement 126 - #define N_Conditional_Entry_Call 127 - #define N_Delay_Relative_Statement 128 - #define N_Delay_Until_Statement 129 - #define N_Entry_Call_Statement 130 - #define N_Free_Statement 131 - #define N_Goto_Statement 132 - #define N_Loop_Statement 133 - #define N_Null_Statement 134 - #define N_Raise_Statement 135 - #define N_Requeue_Statement 136 - #define N_Return_Statement 137 - #define N_Selective_Accept 138 - #define N_Timed_Entry_Call 139 - #define N_Exit_Statement 140 - #define N_If_Statement 141 - #define N_Accept_Alternative 142 - #define N_Delay_Alternative 143 - #define N_Elsif_Part 144 - #define N_Entry_Body_Formal_Part 145 - #define N_Iteration_Scheme 146 - #define N_Terminate_Alternative 147 - #define N_Abortable_Part 148 - #define N_Abstract_Subprogram_Declaration 149 - #define N_Access_Definition 150 - #define N_Access_To_Object_Definition 151 - #define N_Case_Statement_Alternative 152 - #define N_Compilation_Unit 153 - #define N_Compilation_Unit_Aux 154 - #define N_Component_Association 155 - #define N_Component_List 156 - #define N_Derived_Type_Definition 157 - #define N_Decimal_Fixed_Point_Definition 158 - #define N_Defining_Program_Unit_Name 159 - #define N_Delta_Constraint 160 - #define N_Designator 161 - #define N_Digits_Constraint 162 - #define N_Discriminant_Association 163 - #define N_Discriminant_Specification 164 - #define N_Enumeration_Type_Definition 165 - #define N_Entry_Body 166 - #define N_Entry_Call_Alternative 167 - #define N_Exception_Declaration 168 - #define N_Exception_Handler 169 - #define N_Floating_Point_Definition 170 - #define N_Formal_Decimal_Fixed_Point_Definition 171 - #define N_Formal_Derived_Type_Definition 172 - #define N_Formal_Discrete_Type_Definition 173 - #define N_Formal_Floating_Point_Definition 174 - #define N_Formal_Modular_Type_Definition 175 - #define N_Formal_Ordinary_Fixed_Point_Definition 176 - #define N_Formal_Package_Declaration 177 - #define N_Formal_Private_Type_Definition 178 - #define N_Formal_Signed_Integer_Type_Definition 179 - #define N_Formal_Subprogram_Declaration 180 - #define N_Generic_Association 181 - #define N_Handled_Sequence_Of_Statements 182 - #define N_Index_Or_Discriminant_Constraint 183 - #define N_Itype_Reference 184 - #define N_Label 185 - #define N_Modular_Type_Definition 186 - #define N_Number_Declaration 187 - #define N_Ordinary_Fixed_Point_Definition 188 - #define N_Others_Choice 189 - #define N_Package_Specification 190 - #define N_Parameter_Association 191 - #define N_Parameter_Specification 192 - #define N_Protected_Definition 193 - #define N_Range_Constraint 194 - #define N_Real_Range_Specification 195 - #define N_Record_Definition 196 - #define N_Signed_Integer_Type_Definition 197 - #define N_Single_Protected_Declaration 198 - #define N_Subunit 199 - #define N_Task_Definition 200 - #define N_Triggering_Alternative 201 - #define N_Use_Type_Clause 202 - #define N_Validate_Unchecked_Conversion 203 - #define N_Variant 204 - #define N_Variant_Part 205 - #define N_With_Clause 206 - #define N_With_Type_Clause 207 - #define N_Unused_At_End 208 - - #define Number_Node_Kinds 209 - SUBTYPE (N_Access_To_Subprogram_Definition, Node_Kind, - N_Access_Function_Definition, - N_Access_Procedure_Definition) - SUBTYPE (N_Array_Type_Definition, Node_Kind, - N_Constrained_Array_Definition, - N_Unconstrained_Array_Definition) - SUBTYPE (N_Binary_Op, Node_Kind, - N_Op_Add, - N_Op_Shift_Right_Arithmetic) - SUBTYPE (N_Body_Stub, Node_Kind, - N_Package_Body_Stub, - N_Task_Body_Stub) - SUBTYPE (N_Declaration, Node_Kind, - N_Component_Declaration, - N_Procedure_Specification) - SUBTYPE (N_Direct_Name, Node_Kind, - N_Identifier, - N_Character_Literal) - SUBTYPE (N_Entity, Node_Kind, - N_Defining_Character_Literal, - N_Defining_Operator_Symbol) - SUBTYPE (N_Generic_Declaration, Node_Kind, - N_Generic_Package_Declaration, - N_Generic_Subprogram_Declaration) - SUBTYPE (N_Generic_Instantiation, Node_Kind, - N_Function_Instantiation, - N_Procedure_Instantiation) - SUBTYPE (N_Generic_Renaming_Declaration, Node_Kind, - N_Generic_Function_Renaming_Declaration, - N_Generic_Procedure_Renaming_Declaration) - SUBTYPE (N_Has_Chars, Node_Kind, - N_Attribute_Definition_Clause, - N_Op_Plus) - SUBTYPE (N_Has_Entity, Node_Kind, - N_Expanded_Name, - N_Attribute_Reference) - SUBTYPE (N_Has_Etype, Node_Kind, - N_Error, - N_Subtype_Indication) - SUBTYPE (N_Has_Treat_Fixed_As_Integer, Node_Kind, - N_Op_Divide, - N_Op_Rem) - SUBTYPE (N_Later_Decl_Item, Node_Kind, - N_Task_Type_Declaration, - N_Generic_Subprogram_Declaration) - SUBTYPE (N_Op, Node_Kind, - N_Op_Add, - N_Op_Plus) - SUBTYPE (N_Op_Boolean, Node_Kind, - N_Op_And, - N_Op_Xor) - SUBTYPE (N_Op_Compare, Node_Kind, - N_Op_Eq, - N_Op_Ne) - SUBTYPE (N_Op_Shift, Node_Kind, - N_Op_Rotate_Left, - N_Op_Shift_Right_Arithmetic) - SUBTYPE (N_Proper_Body, Node_Kind, - N_Package_Body, - N_Task_Body) - SUBTYPE (N_Raise_xxx_Error, Node_Kind, - N_Raise_Constraint_Error, - N_Raise_Storage_Error) - SUBTYPE (N_Renaming_Declaration, Node_Kind, - N_Exception_Renaming_Declaration, - N_Generic_Procedure_Renaming_Declaration) - SUBTYPE (N_Representation_Clause, Node_Kind, - N_At_Clause, - N_Attribute_Definition_Clause) - SUBTYPE (N_Statement_Other_Than_Procedure_Call, Node_Kind, - N_Abort_Statement, - N_If_Statement) - SUBTYPE (N_Has_Condition, Node_Kind, - N_Exit_Statement, - N_Terminate_Alternative) - SUBTYPE (N_Subexpr, Node_Kind, - N_Expanded_Name, - N_Unchecked_Type_Conversion) - SUBTYPE (N_Subprogram_Specification, Node_Kind, - N_Function_Specification, - N_Procedure_Specification) - SUBTYPE (N_Unary_Op, Node_Kind, - N_Op_Abs, - N_Op_Plus) - SUBTYPE (N_Unit_Body, Node_Kind, - N_Package_Body, - N_Subprogram_Body) - INLINE Boolean ABE_Is_Certain (Node_Id N) - { return Flag18 (N); } - INLINE Boolean Abort_Present (Node_Id N) - { return Flag15 (N); } - INLINE Node_Id Abortable_Part (Node_Id N) - { return Node2 (N); } - INLINE Boolean Abstract_Present (Node_Id N) - { return Flag4 (N); } - INLINE List_Id Accept_Handler_Records (Node_Id N) - { return List5 (N); } - INLINE Node_Id Accept_Statement (Node_Id N) - { return Node2 (N); } - INLINE Elist_Id Access_Types_To_Process (Node_Id N) - { return Elist2 (N); } - INLINE List_Id Actions (Node_Id N) - { return List1 (N); } - INLINE Node_Id Activation_Chain_Entity (Node_Id N) - { return Node3 (N); } - INLINE Boolean Acts_As_Spec (Node_Id N) - { return Flag4 (N); } - INLINE Node_Id Aggregate_Bounds (Node_Id N) - { return Node3 (N); } - INLINE Boolean Aliased_Present (Node_Id N) - { return Flag4 (N); } - INLINE Boolean All_Others (Node_Id N) - { return Flag11 (N); } - INLINE Boolean All_Present (Node_Id N) - { return Flag15 (N); } - INLINE List_Id Alternatives (Node_Id N) - { return List4 (N); } - INLINE Node_Id Ancestor_Part (Node_Id N) - { return Node3 (N); } - INLINE Node_Id Array_Aggregate (Node_Id N) - { return Node3 (N); } - INLINE Boolean Assignment_OK (Node_Id N) - { return Flag15 (N); } - INLINE Node_Id Associated_Node (Node_Id N) - { return Node4 (N); } - INLINE Node_Id At_End_Proc (Node_Id N) - { return Node1 (N); } - INLINE Name_Id Attribute_Name (Node_Id N) - { return Name2 (N); } - INLINE Node_Id Aux_Decls_Node (Node_Id N) - { return Node5 (N); } - INLINE Boolean Backwards_OK (Node_Id N) - { return Flag6 (N); } - INLINE Boolean Bad_Is_Detected (Node_Id N) - { return Flag15 (N); } - INLINE Boolean By_Ref (Node_Id N) - { return Flag5 (N); } - INLINE Boolean Body_Required (Node_Id N) - { return Flag13 (N); } - INLINE Node_Id Body_To_Inline (Node_Id N) - { return Node3 (N); } - INLINE Boolean Box_Present (Node_Id N) - { return Flag15 (N); } - INLINE Char_Code Char_Literal_Value (Node_Id N) - { return Char_Code2 (N); } - INLINE Name_Id Chars (Node_Id N) - { return Name1 (N); } - INLINE Boolean Check_Address_Alignment (Node_Id N) - { return Flag11 (N); } - INLINE Node_Id Choice_Parameter (Node_Id N) - { return Node2 (N); } - INLINE List_Id Choices (Node_Id N) - { return List1 (N); } - INLINE Boolean Compile_Time_Known_Aggregate (Node_Id N) - { return Flag18 (N); } - INLINE List_Id Component_Associations (Node_Id N) - { return List2 (N); } - INLINE List_Id Component_Clauses (Node_Id N) - { return List3 (N); } - INLINE List_Id Component_Items (Node_Id N) - { return List3 (N); } - INLINE Node_Id Component_List (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Component_Name (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Condition (Node_Id N) - { return Node1 (N); } - INLINE List_Id Condition_Actions (Node_Id N) - { return List3 (N); } - INLINE List_Id Config_Pragmas (Node_Id N) - { return List4 (N); } - INLINE Boolean Constant_Present (Node_Id N) - { return Flag17 (N); } - INLINE Node_Id Constraint (Node_Id N) - { return Node3 (N); } - INLINE List_Id Constraints (Node_Id N) - { return List1 (N); } - INLINE Boolean Context_Installed (Node_Id N) - { return Flag13 (N); } - INLINE List_Id Context_Items (Node_Id N) - { return List1 (N); } - INLINE Node_Id Controlling_Argument (Node_Id N) - { return Node1 (N); } - INLINE Boolean Conversion_OK (Node_Id N) - { return Flag14 (N); } - INLINE Node_Id Corresponding_Body (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Corresponding_Generic_Association (Node_Id N) - { return Node5 (N); } - INLINE Uint Corresponding_Integer_Value (Node_Id N) - { return Uint4 (N); } - INLINE Node_Id Corresponding_Spec (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Corresponding_Stub (Node_Id N) - { return Node3 (N); } - INLINE Entity_Id Dcheck_Function (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Debug_Statement (Node_Id N) - { return Node3 (N); } - INLINE List_Id Declarations (Node_Id N) - { return List2 (N); } - INLINE Node_Id Default_Expression (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Default_Name (Node_Id N) - { return Node2 (N); } - INLINE Entity_Id Defining_Identifier (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Defining_Unit_Name (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Delay_Alternative (Node_Id N) - { return Node4 (N); } - INLINE Boolean Delay_Finalize_Attach (Node_Id N) - { return Flag14 (N); } - INLINE Node_Id Delay_Statement (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Delta_Expression (Node_Id N) - { return Node3 (N); } - INLINE Node_Id Digits_Expression (Node_Id N) - { return Node2 (N); } - INLINE Boolean Discr_Check_Funcs_Built (Node_Id N) - { return Flag11 (N); } - INLINE List_Id Discrete_Choices (Node_Id N) - { return List4 (N); } - INLINE Node_Id Discrete_Range (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Discrete_Subtype_Definition (Node_Id N) - { return Node4 (N); } - INLINE List_Id Discrete_Subtype_Definitions (Node_Id N) - { return List2 (N); } - INLINE List_Id Discriminant_Specifications (Node_Id N) - { return List4 (N); } - INLINE Node_Id Discriminant_Type (Node_Id N) - { return Node5 (N); } - INLINE Boolean Do_Accessibility_Check (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Do_Discriminant_Check (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Do_Division_Check (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Do_Length_Check (Node_Id N) - { return Flag4 (N); } - INLINE Boolean Do_Overflow_Check (Node_Id N) - { return Flag17 (N); } - INLINE Boolean Do_Range_Check (Node_Id N) - { return Flag9 (N); } - INLINE Boolean Do_Storage_Check (Node_Id N) - { return Flag17 (N); } - INLINE Boolean Do_Tag_Check (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Elaborate_All_Present (Node_Id N) - { return Flag15 (N); } - INLINE Boolean Elaborate_Present (Node_Id N) - { return Flag4 (N); } - INLINE Node_Id Elaboration_Boolean (Node_Id N) - { return Node2 (N); } - INLINE List_Id Else_Actions (Node_Id N) - { return List3 (N); } - INLINE List_Id Else_Statements (Node_Id N) - { return List4 (N); } - INLINE List_Id Elsif_Parts (Node_Id N) - { return List3 (N); } - INLINE Node_Id Enclosing_Variant (Node_Id N) - { return Node2 (N); } - INLINE Node_Id End_Label (Node_Id N) - { return Node4 (N); } - INLINE Uint End_Span (Node_Id N) - { return Uint5 (N); } - INLINE Node_Id Entity (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Entity_Or_Associated_Node (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Entry_Body_Formal_Part (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Entry_Call_Alternative (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Entry_Call_Statement (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Entry_Direct_Name (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Entry_Index (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Entry_Index_Specification (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Etype (Node_Id N) - { return Node5 (N); } - INLINE List_Id Exception_Choices (Node_Id N) - { return List4 (N); } - INLINE List_Id Exception_Handlers (Node_Id N) - { return List5 (N); } - INLINE Boolean Exception_Junk (Node_Id N) - { return Flag11 (N); } - INLINE Node_Id Explicit_Actual_Parameter (Node_Id N) - { return Node3 (N); } - INLINE Boolean Expansion_Delayed (Node_Id N) - { return Flag11 (N); } - INLINE Node_Id Explicit_Generic_Actual_Parameter (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Expression (Node_Id N) - { return Node3 (N); } - INLINE List_Id Expressions (Node_Id N) - { return List1 (N); } - INLINE Node_Id First_Bit (Node_Id N) - { return Node3 (N); } - INLINE Entity_Id First_Inlined_Subprogram (Node_Id N) - { return Node3 (N); } - INLINE Boolean First_Name (Node_Id N) - { return Flag5 (N); } - INLINE Node_Id First_Named_Actual (Node_Id N) - { return Node4 (N); } - INLINE Node_Id First_Real_Statement (Node_Id N) - { return Node2 (N); } - INLINE Entity_Id First_Subtype_Link (Node_Id N) - { return Node5 (N); } - INLINE Boolean Float_Truncate (Node_Id N) - { return Flag11 (N); } - INLINE Node_Id Formal_Type_Definition (Node_Id N) - { return Node3 (N); } - INLINE Boolean Forwards_OK (Node_Id N) - { return Flag5 (N); } - INLINE Boolean From_At_Mod (Node_Id N) - { return Flag4 (N); } - INLINE List_Id Generic_Associations (Node_Id N) - { return List3 (N); } - INLINE List_Id Generic_Formal_Declarations (Node_Id N) - { return List2 (N); } - INLINE Node_Id Generic_Parent (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Generic_Parent_Type (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Handled_Statement_Sequence (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Handler_List_Entry (Node_Id N) - { return Node2 (N); } - INLINE Boolean Has_Created_Identifier (Node_Id N) - { return Flag15 (N); } - INLINE Boolean Has_Dynamic_Length_Check (Node_Id N) - { return Flag10 (N); } - INLINE Boolean Has_Dynamic_Range_Check (Node_Id N) - { return Flag12 (N); } - INLINE Boolean Has_No_Elaboration_Code (Node_Id N) - { return Flag17 (N); } - INLINE Boolean Has_Priority_Pragma (Node_Id N) - { return Flag6 (N); } - INLINE Boolean Has_Private_View (Node_Id N) - { return Flag11 (N); } - INLINE Boolean Has_Storage_Size_Pragma (Node_Id N) - { return Flag5 (N); } - INLINE Boolean Has_Task_Info_Pragma (Node_Id N) - { return Flag7 (N); } - INLINE Boolean Has_Task_Name_Pragma (Node_Id N) - { return Flag8 (N); } - INLINE Boolean Has_Wide_Character (Node_Id N) - { return Flag11 (N); } - INLINE Elist_Id Hidden_By_Use_Clause (Node_Id N) - { return Elist4 (N); } - INLINE Node_Id High_Bound (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Identifier (Node_Id N) - { return Node1 (N); } - INLINE Boolean Implicit_With (Node_Id N) - { return Flag16 (N); } - INLINE Boolean In_Present (Node_Id N) - { return Flag15 (N); } - INLINE Boolean Includes_Infinities (Node_Id N) - { return Flag11 (N); } - INLINE Node_Id Instance_Spec (Node_Id N) - { return Node5 (N); } - INLINE Uint Intval (Node_Id N) - { return Uint3 (N); } - INLINE Boolean Is_Asynchronous_Call_Block (Node_Id N) - { return Flag7 (N); } - INLINE Boolean Is_Component_Left_Opnd (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Is_Component_Right_Opnd (Node_Id N) - { return Flag14 (N); } - INLINE Boolean Is_Controlling_Actual (Node_Id N) - { return Flag16 (N); } - INLINE Boolean Is_In_Discriminant_Check (Node_Id N) - { return Flag11 (N); } - INLINE Boolean Is_Machine_Number (Node_Id N) - { return Flag11 (N); } - INLINE Boolean Is_Null_Loop (Node_Id N) - { return Flag16 (N); } - INLINE Boolean Is_Overloaded (Node_Id N) - { return Flag5 (N); } - INLINE Boolean Is_Power_Of_2_For_Shift (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Is_Protected_Subprogram_Body (Node_Id N) - { return Flag7 (N); } - INLINE Boolean Is_Static_Expression (Node_Id N) - { return Flag6 (N); } - INLINE Boolean Is_Subprogram_Descriptor (Node_Id N) - { return Flag16 (N); } - INLINE Boolean Is_Task_Allocation_Block (Node_Id N) - { return Flag6 (N); } - INLINE Boolean Is_Task_Master (Node_Id N) - { return Flag5 (N); } - INLINE Node_Id Iteration_Scheme (Node_Id N) - { return Node2 (N); } - INLINE Entity_Id Itype (Node_Id N) - { return Node1 (N); } - INLINE Boolean Kill_Range_Check (Node_Id N) - { return Flag11 (N); } - INLINE Node_Id Label_Construct (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Left_Opnd (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Last_Bit (Node_Id N) - { return Node4 (N); } - INLINE Boolean Last_Name (Node_Id N) - { return Flag6 (N); } - INLINE Node_Id Library_Unit (Node_Id N) - { return Node4 (N); } - INLINE Boolean Limited_View_Installed (Node_Id N) - { return Flag18 (N); } - INLINE Boolean Limited_Present (Node_Id N) - { return Flag17 (N); } - INLINE List_Id Literals (Node_Id N) - { return List1 (N); } - INLINE List_Id Loop_Actions (Node_Id N) - { return List2 (N); } - INLINE Node_Id Loop_Parameter_Specification (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Low_Bound (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Mod_Clause (Node_Id N) - { return Node2 (N); } - INLINE Boolean More_Ids (Node_Id N) - { return Flag5 (N); } - INLINE Boolean Must_Be_Byte_Aligned (Node_Id N) - { return Flag14 (N); } - INLINE Boolean Must_Not_Freeze (Node_Id N) - { return Flag8 (N); } - INLINE Node_Id Name (Node_Id N) - { return Node2 (N); } - INLINE List_Id Names (Node_Id N) - { return List2 (N); } - INLINE Node_Id Next_Entity (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Next_Named_Actual (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Next_Rep_Item (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Next_Use_Clause (Node_Id N) - { return Node3 (N); } - INLINE Boolean No_Ctrl_Actions (Node_Id N) - { return Flag7 (N); } - INLINE Boolean No_Entities_Ref_In_Spec (Node_Id N) - { return Flag8 (N); } - INLINE Boolean No_Initialization (Node_Id N) - { return Flag13 (N); } - INLINE Boolean No_Truncation (Node_Id N) - { return Flag17 (N); } - INLINE Boolean Null_Present (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Null_Record_Present (Node_Id N) - { return Flag17 (N); } - INLINE Node_Id Object_Definition (Node_Id N) - { return Node4 (N); } - INLINE Boolean OK_For_Stream (Node_Id N) - { return Flag4 (N); } - INLINE Node_Id Original_Discriminant (Node_Id N) - { return Node2 (N); } - INLINE Entity_Id Original_Entity (Node_Id N) - { return Node2 (N); } - INLINE List_Id Others_Discrete_Choices (Node_Id N) - { return List1 (N); } - INLINE Boolean Out_Present (Node_Id N) - { return Flag17 (N); } - INLINE List_Id Parameter_Associations (Node_Id N) - { return List3 (N); } - INLINE Boolean Parameter_List_Truncated (Node_Id N) - { return Flag17 (N); } - INLINE List_Id Parameter_Specifications (Node_Id N) - { return List3 (N); } - INLINE Node_Id Parameter_Type (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Parent_Spec (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Position (Node_Id N) - { return Node2 (N); } - INLINE List_Id Pragma_Argument_Associations (Node_Id N) - { return List2 (N); } - INLINE List_Id Pragmas_After (Node_Id N) - { return List5 (N); } - INLINE List_Id Pragmas_Before (Node_Id N) - { return List4 (N); } - INLINE Node_Id Prefix (Node_Id N) - { return Node3 (N); } - INLINE Uint Present_Expr (Node_Id N) - { return Uint3 (N); } - INLINE Boolean Prev_Ids (Node_Id N) - { return Flag6 (N); } - INLINE Boolean Print_In_Hex (Node_Id N) - { return Flag13 (N); } - INLINE List_Id Private_Declarations (Node_Id N) - { return List3 (N); } - INLINE Boolean Private_Present (Node_Id N) - { return Flag15 (N); } - INLINE Node_Id Procedure_To_Call (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Proper_Body (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Protected_Definition (Node_Id N) - { return Node3 (N); } - INLINE Boolean Protected_Present (Node_Id N) - { return Flag15 (N); } - INLINE Boolean Raises_Constraint_Error (Node_Id N) - { return Flag7 (N); } - INLINE Node_Id Range_Constraint (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Range_Expression (Node_Id N) - { return Node4 (N); } - INLINE Node_Id Real_Range_Specification (Node_Id N) - { return Node4 (N); } - INLINE Ureal Realval (Node_Id N) - { return Ureal3 (N); } - INLINE Uint Reason (Node_Id N) - { return Uint3 (N); } - INLINE Node_Id Record_Extension_Part (Node_Id N) - { return Node3 (N); } - INLINE Boolean Redundant_Use (Node_Id N) - { return Flag13 (N); } - INLINE Node_Id Return_Type (Node_Id N) - { return Node2 (N); } - INLINE Boolean Reverse_Present (Node_Id N) - { return Flag15 (N); } - INLINE Node_Id Right_Opnd (Node_Id N) - { return Node3 (N); } - INLINE Boolean Rounded_Result (Node_Id N) - { return Flag18 (N); } - INLINE Node_Id Scope (Node_Id N) - { return Node3 (N); } - INLINE List_Id Select_Alternatives (Node_Id N) - { return List1 (N); } - INLINE Node_Id Selector_Name (Node_Id N) - { return Node2 (N); } - INLINE List_Id Selector_Names (Node_Id N) - { return List1 (N); } - INLINE Boolean Shift_Count_OK (Node_Id N) - { return Flag4 (N); } - INLINE Entity_Id Source_Type (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Specification (Node_Id N) - { return Node1 (N); } - INLINE List_Id Statements (Node_Id N) - { return List3 (N); } - INLINE Boolean Static_Processing_OK (Node_Id N) - { return Flag4 (N); } - INLINE Node_Id Storage_Pool (Node_Id N) - { return Node1 (N); } - INLINE String_Id Strval (Node_Id N) - { return Str3 (N); } - INLINE Node_Id Subtype_Indication (Node_Id N) - { return Node5 (N); } - INLINE Node_Id Subtype_Mark (Node_Id N) - { return Node4 (N); } - INLINE List_Id Subtype_Marks (Node_Id N) - { return List2 (N); } - INLINE Boolean Tagged_Present (Node_Id N) - { return Flag15 (N); } - INLINE Entity_Id Target_Type (Node_Id N) - { return Node2 (N); } - INLINE Entity_Id Task_Body_Procedure (Node_Id N) - { return Node2 (N); } - INLINE Node_Id Task_Definition (Node_Id N) - { return Node3 (N); } - INLINE List_Id Then_Actions (Node_Id N) - { return List2 (N); } - INLINE List_Id Then_Statements (Node_Id N) - { return List2 (N); } - INLINE Boolean Treat_Fixed_As_Integer (Node_Id N) - { return Flag14 (N); } - INLINE Node_Id Triggering_Alternative (Node_Id N) - { return Node1 (N); } - INLINE Node_Id Triggering_Statement (Node_Id N) - { return Node1 (N); } - INLINE Elist_Id TSS_Elist (Node_Id N) - { return Elist3 (N); } - INLINE Node_Id Type_Definition (Node_Id N) - { return Node3 (N); } - INLINE Node_Id Unit (Node_Id N) - { return Node2 (N); } - INLINE Boolean Unknown_Discriminants_Present (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Unreferenced_In_Spec (Node_Id N) - { return Flag7 (N); } - INLINE Node_Id Variant_Part (Node_Id N) - { return Node4 (N); } - INLINE List_Id Variants (Node_Id N) - { return List1 (N); } - INLINE List_Id Visible_Declarations (Node_Id N) - { return List2 (N); } - INLINE Boolean Was_Originally_Stub (Node_Id N) - { return Flag13 (N); } - INLINE Boolean Zero_Cost_Handling (Node_Id N) - { return Flag5 (N); } - diff --git a/gcc/ada/treeprs.ads b/gcc/ada/treeprs.ads deleted file mode 100644 index 118f58e..0000000 --- a/gcc/ada/treeprs.ads +++ /dev/null @@ -1,796 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- T R E E P R S -- --- -- --- S p e c -- --- -- --- Copyright (C) 1992-2003 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. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - - --- This package contains the declaration of the string used by the Tree_Print --- package. It must be updated whenever the arrangements of the field names --- in package Sinfo is changed. The utility program XTREEPRS is used to --- do this update correctly using the template treeprs.adt as input. - -with Sinfo; use Sinfo; - -package Treeprs is - - -------------------------------- - -- String Data for Node Print -- - -------------------------------- - - -- String data for print out. The Pchars array is a long string with the - -- the entry for each node type consisting of a single blank, followed by - -- a series of entries, one for each Op or Flag field used for the node. - -- Each entry has a single character which identifies the field, followed - -- by the synonym name. The starting location for a given node type is - -- found from the corresponding entry in the Pchars_Pos_Array. - - -- The following characters identify the field. These are characters - -- which could never occur in a field name, so they also mark the - -- end of the previous name. - - subtype Fchar is Character range '#' .. '9'; - - F_Field1 : constant Fchar := '#'; -- Character'Val (16#23#) - F_Field2 : constant Fchar := '$'; -- Character'Val (16#24#) - F_Field3 : constant Fchar := '%'; -- Character'Val (16#25#) - F_Field4 : constant Fchar := '&'; -- Character'Val (16#26#) - F_Field5 : constant Fchar := '''; -- Character'Val (16#27#) - F_Flag1 : constant Fchar := '('; -- Character'Val (16#28#) - F_Flag2 : constant Fchar := ')'; -- Character'Val (16#29#) - F_Flag3 : constant Fchar := '*'; -- Character'Val (16#2A#) - F_Flag4 : constant Fchar := '+'; -- Character'Val (16#2B#) - F_Flag5 : constant Fchar := ','; -- Character'Val (16#2C#) - F_Flag6 : constant Fchar := '-'; -- Character'Val (16#2D#) - F_Flag7 : constant Fchar := '.'; -- Character'Val (16#2E#) - F_Flag8 : constant Fchar := '/'; -- Character'Val (16#2F#) - F_Flag9 : constant Fchar := '0'; -- Character'Val (16#30#) - F_Flag10 : constant Fchar := '1'; -- Character'Val (16#31#) - F_Flag11 : constant Fchar := '2'; -- Character'Val (16#32#) - F_Flag12 : constant Fchar := '3'; -- Character'Val (16#33#) - F_Flag13 : constant Fchar := '4'; -- Character'Val (16#34#) - F_Flag14 : constant Fchar := '5'; -- Character'Val (16#35#) - F_Flag15 : constant Fchar := '6'; -- Character'Val (16#36#) - F_Flag16 : constant Fchar := '7'; -- Character'Val (16#37#) - F_Flag17 : constant Fchar := '8'; -- Character'Val (16#38#) - F_Flag18 : constant Fchar := '9'; -- Character'Val (16#39#) - - -- Note this table does not include entity field and flags whose access - -- functions are in Einfo (these are handled by the Print_Entity_Info - -- procedure in Treepr, which uses the routines in Einfo to get the - -- proper symbolic information). In addition, the following fields are - -- handled by Treepr, and do not appear in the Pchars array: - - -- Analyzed - -- Cannot_Be_Constant - -- Chars - -- Comes_From_Source - -- Error_Posted - -- Etype - -- Is_Controlling_Actual - -- Is_Overloaded - -- Is_Static_Expression - -- Left_Opnd - -- Must_Check_Expr - -- Must_Not_Freeze - -- No_Overflow_Expr - -- Paren_Count - -- Raises_Constraint_Error - -- Right_Opnd - - Pchars : constant String := - -- Unused_At_Start - "" & - -- At_Clause - "#Identifier%Expression" & - -- Component_Clause - "#Component_Name$Position%First_Bit&Last_Bit" & - -- Enumeration_Representation_Clause - "#Identifier%Array_Aggregate&Next_Rep_Item" & - -- Mod_Clause - "%Expression&Pragmas_Before" & - -- Record_Representation_Clause - "#Identifier$Mod_Clause%Component_Clauses&Next_Rep_Item" & - -- Attribute_Definition_Clause - "$Name%Expression&Next_Rep_Item+From_At_Mod2Check_Address_Alignment" & - -- Empty - "" & - -- Pragma - "$Pragma_Argument_Associations%Debug_Statement&Next_Rep_Item" & - -- Pragma_Argument_Association - "%Expression" & - -- Error - "" & - -- Defining_Character_Literal - "$Next_Entity%Scope" & - -- Defining_Identifier - "$Next_Entity%Scope" & - -- Defining_Operator_Symbol - "$Next_Entity%Scope" & - -- Expanded_Name - "%Prefix$Selector_Name&Entity&Associated_Node4Redundant_Use2Has_Privat" & - "e_View" & - -- Identifier - "&Entity&Associated_Node$Original_Discriminant4Redundant_Use2Has_Priva" & - "te_View" & - -- Operator_Symbol - "%Strval&Entity&Associated_Node2Has_Private_View" & - -- Character_Literal - "$Char_Literal_Value&Entity&Associated_Node2Has_Private_View" & - -- Op_Add - "" & - -- Op_Concat - "4Is_Component_Left_Opnd5Is_Component_Right_Opnd" & - -- Op_Expon - "4Is_Power_Of_2_For_Shift" & - -- Op_Subtract - "" & - -- Op_Divide - "5Treat_Fixed_As_Integer4Do_Division_Check9Rounded_Result" & - -- Op_Mod - "5Treat_Fixed_As_Integer4Do_Division_Check" & - -- Op_Multiply - "5Treat_Fixed_As_Integer9Rounded_Result" & - -- Op_Rem - "5Treat_Fixed_As_Integer4Do_Division_Check" & - -- Op_And - "+Do_Length_Check" & - -- Op_Eq - "" & - -- Op_Ge - "" & - -- Op_Gt - "" & - -- Op_Le - "" & - -- Op_Lt - "" & - -- Op_Ne - "" & - -- Op_Or - "+Do_Length_Check" & - -- Op_Xor - "+Do_Length_Check" & - -- Op_Rotate_Left - "+Shift_Count_OK" & - -- Op_Rotate_Right - "+Shift_Count_OK" & - -- Op_Shift_Left - "+Shift_Count_OK" & - -- Op_Shift_Right - "+Shift_Count_OK" & - -- Op_Shift_Right_Arithmetic - "+Shift_Count_OK" & - -- Op_Abs - "" & - -- Op_Minus - "" & - -- Op_Not - "" & - -- Op_Plus - "" & - -- Attribute_Reference - "%Prefix$Attribute_Name#Expressions&Entity&Associated_Node8Do_Overflow" & - "_Check4Redundant_Use+OK_For_Stream5Must_Be_Byte_Aligned" & - -- And_Then - "#Actions" & - -- Conditional_Expression - "#Expressions$Then_Actions%Else_Actions" & - -- Explicit_Dereference - "%Prefix" & - -- Function_Call - "$Name%Parameter_Associations&First_Named_Actual#Controlling_Argument4" & - "Do_Tag_Check8Parameter_List_Truncated9ABE_Is_Certain" & - -- In - "" & - -- Indexed_Component - "%Prefix#Expressions" & - -- Integer_Literal - "$Original_Entity%Intval4Print_In_Hex" & - -- Not_In - "" & - -- Null - "" & - -- Or_Else - "#Actions" & - -- Procedure_Call_Statement - "$Name%Parameter_Associations&First_Named_Actual#Controlling_Argument4" & - "Do_Tag_Check8Parameter_List_Truncated9ABE_Is_Certain" & - -- Qualified_Expression - "&Subtype_Mark%Expression" & - -- Raise_Constraint_Error - "#Condition%Reason" & - -- Raise_Program_Error - "#Condition%Reason" & - -- Raise_Storage_Error - "#Condition%Reason" & - -- Aggregate - "#Expressions$Component_Associations8Null_Record_Present%Aggregate_Bou" & - "nds&Associated_Node+Static_Processing_OK9Compile_Time_Known_Aggreg" & - "ate2Expansion_Delayed" & - -- Allocator - "%Expression#Storage_Pool&Procedure_To_Call4No_Initialization8Do_Stora" & - "ge_Check" & - -- Extension_Aggregate - "%Ancestor_Part&Associated_Node#Expressions$Component_Associations8Nul" & - "l_Record_Present2Expansion_Delayed" & - -- Range - "#Low_Bound$High_Bound2Includes_Infinities" & - -- Real_Literal - "$Original_Entity%Realval&Corresponding_Integer_Value2Is_Machine_Numbe" & - "r" & - -- Reference - "%Prefix" & - -- Selected_Component - "%Prefix$Selector_Name&Associated_Node4Do_Discriminant_Check2Is_In_Dis" & - "criminant_Check" & - -- Slice - "%Prefix&Discrete_Range" & - -- String_Literal - "%Strval2Has_Wide_Character" & - -- Subprogram_Info - "#Identifier" & - -- Type_Conversion - "&Subtype_Mark%Expression4Do_Tag_Check+Do_Length_Check8Do_Overflow_Che" & - "ck2Float_Truncate9Rounded_Result5Conversion_OK" & - -- Unchecked_Expression - "%Expression" & - -- Unchecked_Type_Conversion - "&Subtype_Mark%Expression2Kill_Range_Check8No_Truncation" & - -- Subtype_Indication - "&Subtype_Mark%Constraint/Must_Not_Freeze" & - -- Component_Declaration - "#Defining_Identifier+Aliased_Present'Subtype_Indication%Expression,Mo" & - "re_Ids-Prev_Ids" & - -- Entry_Declaration - "#Defining_Identifier&Discrete_Subtype_Definition%Parameter_Specificat" & - "ions'Corresponding_Body" & - -- Formal_Object_Declaration - "#Defining_Identifier6In_Present8Out_Present&Subtype_Mark%Expression,M" & - "ore_Ids-Prev_Ids" & - -- Formal_Type_Declaration - "#Defining_Identifier%Formal_Type_Definition&Discriminant_Specificatio" & - "ns4Unknown_Discriminants_Present" & - -- Full_Type_Declaration - "#Defining_Identifier&Discriminant_Specifications%Type_Definition2Disc" & - "r_Check_Funcs_Built" & - -- Incomplete_Type_Declaration - "#Defining_Identifier&Discriminant_Specifications4Unknown_Discriminant" & - "s_Present" & - -- Loop_Parameter_Specification - "#Defining_Identifier6Reverse_Present&Discrete_Subtype_Definition" & - -- Object_Declaration - "#Defining_Identifier+Aliased_Present8Constant_Present&Object_Definiti" & - "on%Expression$Handler_List_Entry'Corresponding_Generic_Association" & - ",More_Ids-Prev_Ids4No_Initialization6Assignment_OK2Exception_Junk5" & - "Delay_Finalize_Attach7Is_Subprogram_Descriptor" & - -- Protected_Type_Declaration - "#Defining_Identifier&Discriminant_Specifications%Protected_Definition" & - "'Corresponding_Body" & - -- Private_Extension_Declaration - "#Defining_Identifier&Discriminant_Specifications4Unknown_Discriminant" & - "s_Present+Abstract_Present'Subtype_Indication" & - -- Private_Type_Declaration - "#Defining_Identifier&Discriminant_Specifications4Unknown_Discriminant" & - "s_Present+Abstract_Present6Tagged_Present8Limited_Present" & - -- Subtype_Declaration - "#Defining_Identifier'Subtype_Indication&Generic_Parent_Type2Exception" & - "_Junk" & - -- Function_Specification - "#Defining_Unit_Name$Elaboration_Boolean%Parameter_Specifications&Subt" & - "ype_Mark'Generic_Parent" & - -- Procedure_Specification - "#Defining_Unit_Name$Elaboration_Boolean%Parameter_Specifications'Gene" & - "ric_Parent" & - -- Entry_Index_Specification - "#Defining_Identifier&Discrete_Subtype_Definition" & - -- Freeze_Entity - "&Entity$Access_Types_To_Process%TSS_Elist#Actions'First_Subtype_Link" & - -- Access_Function_Definition - "6Protected_Present%Parameter_Specifications&Subtype_Mark" & - -- Access_Procedure_Definition - "6Protected_Present%Parameter_Specifications" & - -- Task_Type_Declaration - "#Defining_Identifier$Task_Body_Procedure&Discriminant_Specifications%" & - "Task_Definition'Corresponding_Body" & - -- Package_Body_Stub - "#Defining_Identifier&Library_Unit'Corresponding_Body" & - -- Protected_Body_Stub - "#Defining_Identifier&Library_Unit'Corresponding_Body" & - -- Subprogram_Body_Stub - "#Specification&Library_Unit'Corresponding_Body" & - -- Task_Body_Stub - "#Defining_Identifier&Library_Unit'Corresponding_Body" & - -- Function_Instantiation - "#Defining_Unit_Name$Name%Generic_Associations&Parent_Spec'Instance_Sp" & - "ec9ABE_Is_Certain" & - -- Package_Instantiation - "#Defining_Unit_Name$Name%Generic_Associations&Parent_Spec'Instance_Sp" & - "ec9ABE_Is_Certain" & - -- Procedure_Instantiation - "#Defining_Unit_Name$Name&Parent_Spec%Generic_Associations'Instance_Sp" & - "ec9ABE_Is_Certain" & - -- Package_Body - "#Defining_Unit_Name$Declarations&Handled_Statement_Sequence'Correspon" & - "ding_Spec4Was_Originally_Stub" & - -- Subprogram_Body - "#Specification$Declarations&Handled_Statement_Sequence%Activation_Cha" & - "in_Entity'Corresponding_Spec+Acts_As_Spec6Bad_Is_Detected8Do_Stora" & - "ge_Check-Has_Priority_Pragma.Is_Protected_Subprogram_Body,Is_Task_" & - "Master4Was_Originally_Stub" & - -- Protected_Body - "#Defining_Identifier$Declarations&End_Label'Corresponding_Spec4Was_Or" & - "iginally_Stub" & - -- Task_Body - "#Defining_Identifier$Declarations&Handled_Statement_Sequence,Is_Task_" & - "Master%Activation_Chain_Entity'Corresponding_Spec4Was_Originally_S" & - "tub" & - -- Implicit_Label_Declaration - "#Defining_Identifier$Label_Construct" & - -- Package_Declaration - "#Specification'Corresponding_Body&Parent_Spec%Activation_Chain_Entity" & - -- Single_Task_Declaration - "#Defining_Identifier%Task_Definition" & - -- Subprogram_Declaration - "#Specification%Body_To_Inline'Corresponding_Body&Parent_Spec" & - -- Use_Package_Clause - "$Names%Next_Use_Clause&Hidden_By_Use_Clause" & - -- Generic_Package_Declaration - "#Specification'Corresponding_Body$Generic_Formal_Declarations&Parent_" & - "Spec%Activation_Chain_Entity" & - -- Generic_Subprogram_Declaration - "#Specification'Corresponding_Body$Generic_Formal_Declarations&Parent_" & - "Spec" & - -- Constrained_Array_Definition - "$Discrete_Subtype_Definitions+Aliased_Present'Subtype_Indication" & - -- Unconstrained_Array_Definition - "$Subtype_Marks+Aliased_Present'Subtype_Indication" & - -- Exception_Renaming_Declaration - "#Defining_Identifier$Name" & - -- Object_Renaming_Declaration - "#Defining_Identifier&Subtype_Mark$Name'Corresponding_Generic_Associat" & - "ion" & - -- Package_Renaming_Declaration - "#Defining_Unit_Name$Name&Parent_Spec" & - -- Subprogram_Renaming_Declaration - "#Specification$Name&Parent_Spec'Corresponding_Spec" & - -- Generic_Function_Renaming_Declaration - "#Defining_Unit_Name$Name&Parent_Spec" & - -- Generic_Package_Renaming_Declaration - "#Defining_Unit_Name$Name&Parent_Spec" & - -- Generic_Procedure_Renaming_Declaration - "#Defining_Unit_Name$Name&Parent_Spec" & - -- Abort_Statement - "$Names" & - -- Accept_Statement - "#Entry_Direct_Name'Entry_Index%Parameter_Specifications&Handled_State" & - "ment_Sequence$Declarations" & - -- Assignment_Statement - "$Name%Expression4Do_Tag_Check+Do_Length_Check,Forwards_OK-Backwards_O" & - "K.No_Ctrl_Actions" & - -- Asynchronous_Select - "#Triggering_Alternative$Abortable_Part" & - -- Block_Statement - "#Identifier$Declarations&Handled_Statement_Sequence,Is_Task_Master%Ac" & - "tivation_Chain_Entity6Has_Created_Identifier-Is_Task_Allocation_Bl" & - "ock.Is_Asynchronous_Call_Block" & - -- Case_Statement - "%Expression&Alternatives'End_Span" & - -- Code_Statement - "%Expression" & - -- Conditional_Entry_Call - "#Entry_Call_Alternative&Else_Statements" & - -- Delay_Relative_Statement - "%Expression" & - -- Delay_Until_Statement - "%Expression" & - -- Entry_Call_Statement - "$Name%Parameter_Associations&First_Named_Actual" & - -- Free_Statement - "%Expression#Storage_Pool&Procedure_To_Call" & - -- Goto_Statement - "$Name2Exception_Junk" & - -- Loop_Statement - "#Identifier$Iteration_Scheme%Statements&End_Label6Has_Created_Identif" & - "ier7Is_Null_Loop" & - -- Null_Statement - "" & - -- Raise_Statement - "$Name" & - -- Requeue_Statement - "$Name6Abort_Present" & - -- Return_Statement - "%Expression#Storage_Pool&Procedure_To_Call4Do_Tag_Check$Return_Type,B" & - "y_Ref" & - -- Selective_Accept - "#Select_Alternatives&Else_Statements" & - -- Timed_Entry_Call - "#Entry_Call_Alternative&Delay_Alternative" & - -- Exit_Statement - "$Name#Condition" & - -- If_Statement - "#Condition$Then_Statements%Elsif_Parts&Else_Statements'End_Span" & - -- Accept_Alternative - "$Accept_Statement#Condition%Statements&Pragmas_Before'Accept_Handler_" & - "Records" & - -- Delay_Alternative - "$Delay_Statement#Condition%Statements&Pragmas_Before" & - -- Elsif_Part - "#Condition$Then_Statements%Condition_Actions" & - -- Entry_Body_Formal_Part - "&Entry_Index_Specification%Parameter_Specifications#Condition" & - -- Iteration_Scheme - "#Condition%Condition_Actions&Loop_Parameter_Specification" & - -- Terminate_Alternative - "#Condition&Pragmas_Before'Pragmas_After" & - -- Abortable_Part - "%Statements" & - -- Abstract_Subprogram_Declaration - "#Specification" & - -- Access_Definition - "&Subtype_Mark" & - -- Access_To_Object_Definition - "6All_Present'Subtype_Indication8Constant_Present" & - -- Case_Statement_Alternative - "&Discrete_Choices%Statements" & - -- Compilation_Unit - "&Library_Unit#Context_Items6Private_Present$Unit'Aux_Decls_Node8Has_N" & - "o_Elaboration_Code4Body_Required+Acts_As_Spec%First_Inlined_Subpro" & - "gram" & - -- Compilation_Unit_Aux - "$Declarations#Actions'Pragmas_After&Config_Pragmas" & - -- Component_Association - "#Choices$Loop_Actions%Expression6Box_Present" & - -- Component_List - "%Component_Items&Variant_Part4Null_Present" & - -- Derived_Type_Definition - "+Abstract_Present'Subtype_Indication%Record_Extension_Part" & - -- Decimal_Fixed_Point_Definition - "%Delta_Expression$Digits_Expression&Real_Range_Specification" & - -- Defining_Program_Unit_Name - "$Name#Defining_Identifier" & - -- Delta_Constraint - "%Delta_Expression&Range_Constraint" & - -- Designator - "$Name#Identifier" & - -- Digits_Constraint - "$Digits_Expression&Range_Constraint" & - -- Discriminant_Association - "#Selector_Names%Expression" & - -- Discriminant_Specification - "#Defining_Identifier'Discriminant_Type%Expression,More_Ids-Prev_Ids" & - -- Enumeration_Type_Definition - "#Literals&End_Label" & - -- Entry_Body - "#Defining_Identifier'Entry_Body_Formal_Part$Declarations&Handled_Stat" & - "ement_Sequence%Activation_Chain_Entity" & - -- Entry_Call_Alternative - "#Entry_Call_Statement%Statements&Pragmas_Before" & - -- Exception_Declaration - "#Defining_Identifier%Expression,More_Ids-Prev_Ids" & - -- Exception_Handler - "$Choice_Parameter&Exception_Choices%Statements,Zero_Cost_Handling" & - -- Floating_Point_Definition - "$Digits_Expression&Real_Range_Specification" & - -- Formal_Decimal_Fixed_Point_Definition - "" & - -- Formal_Derived_Type_Definition - "&Subtype_Mark6Private_Present+Abstract_Present" & - -- Formal_Discrete_Type_Definition - "" & - -- Formal_Floating_Point_Definition - "" & - -- Formal_Modular_Type_Definition - "" & - -- Formal_Ordinary_Fixed_Point_Definition - "" & - -- Formal_Package_Declaration - "#Defining_Identifier$Name%Generic_Associations6Box_Present'Instance_S" & - "pec9ABE_Is_Certain" & - -- Formal_Private_Type_Definition - "+Abstract_Present6Tagged_Present8Limited_Present" & - -- Formal_Signed_Integer_Type_Definition - "" & - -- Formal_Subprogram_Declaration - "#Specification$Default_Name6Box_Present" & - -- Generic_Association - "$Selector_Name#Explicit_Generic_Actual_Parameter" & - -- Handled_Sequence_Of_Statements - "%Statements&End_Label'Exception_Handlers#At_End_Proc$First_Real_State" & - "ment,Zero_Cost_Handling" & - -- Index_Or_Discriminant_Constraint - "#Constraints" & - -- Itype_Reference - "#Itype" & - -- Label - "#Identifier2Exception_Junk" & - -- Modular_Type_Definition - "%Expression" & - -- Number_Declaration - "#Defining_Identifier%Expression,More_Ids-Prev_Ids" & - -- Ordinary_Fixed_Point_Definition - "%Delta_Expression&Real_Range_Specification" & - -- Others_Choice - "#Others_Discrete_Choices2All_Others" & - -- Package_Specification - "#Defining_Unit_Name$Visible_Declarations%Private_Declarations&End_Lab" & - "el'Generic_Parent9Limited_View_Installed" & - -- Parameter_Association - "$Selector_Name%Explicit_Actual_Parameter&Next_Named_Actual" & - -- Parameter_Specification - "#Defining_Identifier6In_Present8Out_Present$Parameter_Type%Expression" & - "4Do_Accessibility_Check,More_Ids-Prev_Ids'Default_Expression" & - -- Protected_Definition - "$Visible_Declarations%Private_Declarations&End_Label-Has_Priority_Pra" & - "gma" & - -- Range_Constraint - "&Range_Expression" & - -- Real_Range_Specification - "#Low_Bound$High_Bound" & - -- Record_Definition - "&End_Label+Abstract_Present6Tagged_Present8Limited_Present#Component_" & - "List4Null_Present" & - -- Signed_Integer_Type_Definition - "#Low_Bound$High_Bound" & - -- Single_Protected_Declaration - "#Defining_Identifier%Protected_Definition" & - -- Subunit - "$Name#Proper_Body%Corresponding_Stub" & - -- Task_Definition - "$Visible_Declarations%Private_Declarations&End_Label-Has_Priority_Pra" & - "gma,Has_Storage_Size_Pragma.Has_Task_Info_Pragma/Has_Task_Name_Pra" & - "gma" & - -- Triggering_Alternative - "#Triggering_Statement%Statements&Pragmas_Before" & - -- Use_Type_Clause - "$Subtype_Marks%Next_Use_Clause&Hidden_By_Use_Clause" & - -- Validate_Unchecked_Conversion - "#Source_Type$Target_Type" & - -- Variant - "&Discrete_Choices#Component_List$Enclosing_Variant%Present_Expr'Dchec" & - "k_Function" & - -- Variant_Part - "$Name#Variants" & - -- With_Clause - "$Name&Library_Unit'Corresponding_Spec,First_Name-Last_Name4Context_In" & - "stalled+Elaborate_Present6Elaborate_All_Present7Implicit_With8Limi" & - "ted_Present9Limited_View_Installed.Unreferenced_In_Spec/No_Entitie" & - "s_Ref_In_Spec" & - -- With_Type_Clause - "$Name6Tagged_Present" & - -- Unused_At_End - ""; - - type Pchar_Pos_Array is array (Node_Kind) of Positive; - Pchar_Pos : constant Pchar_Pos_Array := Pchar_Pos_Array'( - N_Unused_At_Start => 1, - N_At_Clause => 1, - N_Component_Clause => 23, - N_Enumeration_Representation_Clause => 66, - N_Mod_Clause => 107, - N_Record_Representation_Clause => 133, - N_Attribute_Definition_Clause => 187, - N_Empty => 253, - N_Pragma => 253, - N_Pragma_Argument_Association => 312, - N_Error => 323, - N_Defining_Character_Literal => 323, - N_Defining_Identifier => 341, - N_Defining_Operator_Symbol => 359, - N_Expanded_Name => 377, - N_Identifier => 452, - N_Operator_Symbol => 528, - N_Character_Literal => 575, - N_Op_Add => 634, - N_Op_Concat => 634, - N_Op_Expon => 681, - N_Op_Subtract => 705, - N_Op_Divide => 705, - N_Op_Mod => 761, - N_Op_Multiply => 802, - N_Op_Rem => 840, - N_Op_And => 881, - N_Op_Eq => 897, - N_Op_Ge => 897, - N_Op_Gt => 897, - N_Op_Le => 897, - N_Op_Lt => 897, - N_Op_Ne => 897, - N_Op_Or => 897, - N_Op_Xor => 913, - N_Op_Rotate_Left => 929, - N_Op_Rotate_Right => 944, - N_Op_Shift_Left => 959, - N_Op_Shift_Right => 974, - N_Op_Shift_Right_Arithmetic => 989, - N_Op_Abs => 1004, - N_Op_Minus => 1004, - N_Op_Not => 1004, - N_Op_Plus => 1004, - N_Attribute_Reference => 1004, - N_And_Then => 1128, - N_Conditional_Expression => 1136, - N_Explicit_Dereference => 1174, - N_Function_Call => 1181, - N_In => 1302, - N_Indexed_Component => 1302, - N_Integer_Literal => 1321, - N_Not_In => 1357, - N_Null => 1357, - N_Or_Else => 1357, - N_Procedure_Call_Statement => 1365, - N_Qualified_Expression => 1486, - N_Raise_Constraint_Error => 1510, - N_Raise_Program_Error => 1527, - N_Raise_Storage_Error => 1544, - N_Aggregate => 1561, - N_Allocator => 1717, - N_Extension_Aggregate => 1794, - N_Range => 1897, - N_Real_Literal => 1938, - N_Reference => 2008, - N_Selected_Component => 2015, - N_Slice => 2099, - N_String_Literal => 2121, - N_Subprogram_Info => 2147, - N_Type_Conversion => 2158, - N_Unchecked_Expression => 2273, - N_Unchecked_Type_Conversion => 2284, - N_Subtype_Indication => 2339, - N_Component_Declaration => 2379, - N_Entry_Declaration => 2463, - N_Formal_Object_Declaration => 2555, - N_Formal_Type_Declaration => 2640, - N_Full_Type_Declaration => 2741, - N_Incomplete_Type_Declaration => 2829, - N_Loop_Parameter_Specification => 2907, - N_Object_Declaration => 2971, - N_Protected_Type_Declaration => 3218, - N_Private_Extension_Declaration => 3306, - N_Private_Type_Declaration => 3420, - N_Subtype_Declaration => 3546, - N_Function_Specification => 3620, - N_Procedure_Specification => 3712, - N_Entry_Index_Specification => 3791, - N_Freeze_Entity => 3839, - N_Access_Function_Definition => 3907, - N_Access_Procedure_Definition => 3963, - N_Task_Type_Declaration => 4006, - N_Package_Body_Stub => 4109, - N_Protected_Body_Stub => 4161, - N_Subprogram_Body_Stub => 4213, - N_Task_Body_Stub => 4259, - N_Function_Instantiation => 4311, - N_Package_Instantiation => 4397, - N_Procedure_Instantiation => 4483, - N_Package_Body => 4569, - N_Subprogram_Body => 4667, - N_Protected_Body => 4894, - N_Task_Body => 4976, - N_Implicit_Label_Declaration => 5114, - N_Package_Declaration => 5150, - N_Single_Task_Declaration => 5219, - N_Subprogram_Declaration => 5255, - N_Use_Package_Clause => 5315, - N_Generic_Package_Declaration => 5358, - N_Generic_Subprogram_Declaration => 5455, - N_Constrained_Array_Definition => 5528, - N_Unconstrained_Array_Definition => 5592, - N_Exception_Renaming_Declaration => 5641, - N_Object_Renaming_Declaration => 5666, - N_Package_Renaming_Declaration => 5738, - N_Subprogram_Renaming_Declaration => 5774, - N_Generic_Function_Renaming_Declaration => 5824, - N_Generic_Package_Renaming_Declaration => 5860, - N_Generic_Procedure_Renaming_Declaration => 5896, - N_Abort_Statement => 5932, - N_Accept_Statement => 5938, - N_Assignment_Statement => 6033, - N_Asynchronous_Select => 6119, - N_Block_Statement => 6157, - N_Case_Statement => 6322, - N_Code_Statement => 6355, - N_Conditional_Entry_Call => 6366, - N_Delay_Relative_Statement => 6405, - N_Delay_Until_Statement => 6416, - N_Entry_Call_Statement => 6427, - N_Free_Statement => 6474, - N_Goto_Statement => 6516, - N_Loop_Statement => 6536, - N_Null_Statement => 6621, - N_Raise_Statement => 6621, - N_Requeue_Statement => 6626, - N_Return_Statement => 6645, - N_Selective_Accept => 6719, - N_Timed_Entry_Call => 6755, - N_Exit_Statement => 6796, - N_If_Statement => 6811, - N_Accept_Alternative => 6874, - N_Delay_Alternative => 6950, - N_Elsif_Part => 7002, - N_Entry_Body_Formal_Part => 7046, - N_Iteration_Scheme => 7107, - N_Terminate_Alternative => 7164, - N_Abortable_Part => 7203, - N_Abstract_Subprogram_Declaration => 7214, - N_Access_Definition => 7228, - N_Access_To_Object_Definition => 7241, - N_Case_Statement_Alternative => 7289, - N_Compilation_Unit => 7317, - N_Compilation_Unit_Aux => 7456, - N_Component_Association => 7506, - N_Component_List => 7550, - N_Derived_Type_Definition => 7592, - N_Decimal_Fixed_Point_Definition => 7650, - N_Defining_Program_Unit_Name => 7710, - N_Delta_Constraint => 7735, - N_Designator => 7769, - N_Digits_Constraint => 7785, - N_Discriminant_Association => 7820, - N_Discriminant_Specification => 7846, - N_Enumeration_Type_Definition => 7913, - N_Entry_Body => 7932, - N_Entry_Call_Alternative => 8039, - N_Exception_Declaration => 8086, - N_Exception_Handler => 8135, - N_Floating_Point_Definition => 8200, - N_Formal_Decimal_Fixed_Point_Definition => 8243, - N_Formal_Derived_Type_Definition => 8243, - N_Formal_Discrete_Type_Definition => 8289, - N_Formal_Floating_Point_Definition => 8289, - N_Formal_Modular_Type_Definition => 8289, - N_Formal_Ordinary_Fixed_Point_Definition => 8289, - N_Formal_Package_Declaration => 8289, - N_Formal_Private_Type_Definition => 8376, - N_Formal_Signed_Integer_Type_Definition => 8424, - N_Formal_Subprogram_Declaration => 8424, - N_Generic_Association => 8463, - N_Handled_Sequence_Of_Statements => 8511, - N_Index_Or_Discriminant_Constraint => 8603, - N_Itype_Reference => 8615, - N_Label => 8621, - N_Modular_Type_Definition => 8647, - N_Number_Declaration => 8658, - N_Ordinary_Fixed_Point_Definition => 8707, - N_Others_Choice => 8749, - N_Package_Specification => 8784, - N_Parameter_Association => 8893, - N_Parameter_Specification => 8951, - N_Protected_Definition => 9080, - N_Range_Constraint => 9152, - N_Real_Range_Specification => 9169, - N_Record_Definition => 9190, - N_Signed_Integer_Type_Definition => 9276, - N_Single_Protected_Declaration => 9297, - N_Subunit => 9338, - N_Task_Definition => 9374, - N_Triggering_Alternative => 9512, - N_Use_Type_Clause => 9559, - N_Validate_Unchecked_Conversion => 9610, - N_Variant => 9634, - N_Variant_Part => 9713, - N_With_Clause => 9727, - N_With_Type_Clause => 9941, - N_Unused_At_End => 9961); - -end Treeprs; -- 2.7.4