+++ /dev/null
-------------------------------------------------------------------------------
--- --
--- GNAT COMPILER COMPONENTS --
--- --
--- T R E E P R S --
--- --
--- S p e c --
--- --
--- Generated by xtreeprs revision 1.1 using --
--- sinfo.ads revision 1.6 --
--- treeprs.adt revision 1.1 --
--- --
--- Copyright (C) 1992-1997 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_Mod" &
- -- 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_Divide
- "5Treat_Fixed_As_Integer4Do_Division_Check9Rounded_Result" &
- -- Op_Expon
- "4Is_Power_Of_2_For_Shift" &
- -- Op_Mod
- "5Treat_Fixed_As_Integer4Do_Division_Check" &
- -- Op_Multiply
- "5Treat_Fixed_As_Integer9Rounded_Result" &
- -- Op_Rem
- "5Treat_Fixed_As_Integer4Do_Division_Check" &
- -- Op_Subtract
- "" &
- -- 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_Node2Do_Access_C" &
- "heck8Do_Overflow_Check4Redundant_Use+OK_For_Stream" &
- -- And_Then
- "#Actions" &
- -- Conditional_Expression
- "#Expressions$Then_Actions%Else_Actions" &
- -- Explicit_Dereference
- "%Prefix2Do_Access_Check" &
- -- Function_Call
- "$Name%Parameter_Associations&First_Named_Actual#Controlling_Argument4" &
- "Do_Tag_Check8Parameter_List_Truncated9ABE_Is_Certain" &
- -- In
- "" &
- -- Indexed_Component
- "%Prefix#Expressions2Do_Access_Check" &
- -- Integer_Literal
- "%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" &
- -- Raise_Program_Error
- "#Condition" &
- -- Raise_Storage_Error
- "#Condition" &
- -- 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
- "%Realval&Corresponding_Integer_Value2Is_Machine_Number" &
- -- Reference
- "%Prefix" &
- -- Selected_Component
- "%Prefix$Selector_Name&Associated_Node2Do_Access_Check4Do_Discriminant" &
- "_Check" &
- -- Slice
- "%Prefix&Discrete_Range2Do_Access_Check" &
- -- String_Literal
- "%Strval2Has_Wide_Character" &
- -- Subprogram_Info
- "#Identifier" &
- -- Type_Conversion
- "&Subtype_Mark%Expression8Do_Overflow_Check4Do_Tag_Check+Do_Length_Che" &
- "ck2Float_Truncate9Rounded_Result5Conversion_OK" &
- -- Unchecked_Expression
- "%Expression" &
- -- Unchecked_Type_Conversion
- "&Subtype_Mark%Expression2Kill_Range_Check" &
- -- 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" &
- -- 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" &
- "ier" &
- -- 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" &
- -- Component_Association
- "#Choices$Loop_Actions%Expression" &
- -- 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" &
- -- 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_Parent" &
- -- 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_Present8Implicit_With.Unre" &
- "ferenced_In_Spec/No_Entities_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 => 229,
- N_Pragma => 229,
- N_Pragma_Argument_Association => 288,
- N_Error => 299,
- N_Defining_Character_Literal => 299,
- N_Defining_Identifier => 317,
- N_Defining_Operator_Symbol => 335,
- N_Expanded_Name => 353,
- N_Identifier => 428,
- N_Operator_Symbol => 504,
- N_Character_Literal => 551,
- N_Op_Add => 610,
- N_Op_Concat => 610,
- N_Op_Divide => 657,
- N_Op_Expon => 713,
- N_Op_Mod => 737,
- N_Op_Multiply => 778,
- N_Op_Rem => 816,
- N_Op_Subtract => 857,
- N_Op_And => 857,
- N_Op_Eq => 873,
- N_Op_Ge => 873,
- N_Op_Gt => 873,
- N_Op_Le => 873,
- N_Op_Lt => 873,
- N_Op_Ne => 873,
- N_Op_Or => 873,
- N_Op_Xor => 889,
- N_Op_Rotate_Left => 905,
- N_Op_Rotate_Right => 920,
- N_Op_Shift_Left => 935,
- N_Op_Shift_Right => 950,
- N_Op_Shift_Right_Arithmetic => 965,
- N_Op_Abs => 980,
- N_Op_Minus => 980,
- N_Op_Not => 980,
- N_Op_Plus => 980,
- N_Attribute_Reference => 980,
- N_And_Then => 1099,
- N_Conditional_Expression => 1107,
- N_Explicit_Dereference => 1145,
- N_Function_Call => 1168,
- N_In => 1289,
- N_Indexed_Component => 1289,
- N_Integer_Literal => 1324,
- N_Not_In => 1344,
- N_Null => 1344,
- N_Or_Else => 1344,
- N_Procedure_Call_Statement => 1352,
- N_Qualified_Expression => 1473,
- N_Raise_Constraint_Error => 1497,
- N_Raise_Program_Error => 1507,
- N_Raise_Storage_Error => 1517,
- N_Aggregate => 1527,
- N_Allocator => 1683,
- N_Extension_Aggregate => 1760,
- N_Range => 1863,
- N_Real_Literal => 1904,
- N_Reference => 1958,
- N_Selected_Component => 1965,
- N_Slice => 2040,
- N_String_Literal => 2078,
- N_Subprogram_Info => 2104,
- N_Type_Conversion => 2115,
- N_Unchecked_Expression => 2230,
- N_Unchecked_Type_Conversion => 2241,
- N_Subtype_Indication => 2282,
- N_Component_Declaration => 2322,
- N_Entry_Declaration => 2406,
- N_Formal_Object_Declaration => 2479,
- N_Formal_Type_Declaration => 2564,
- N_Full_Type_Declaration => 2665,
- N_Incomplete_Type_Declaration => 2753,
- N_Loop_Parameter_Specification => 2831,
- N_Object_Declaration => 2895,
- N_Protected_Type_Declaration => 3142,
- N_Private_Extension_Declaration => 3230,
- N_Private_Type_Declaration => 3344,
- N_Subtype_Declaration => 3470,
- N_Function_Specification => 3544,
- N_Procedure_Specification => 3636,
- N_Entry_Index_Specification => 3715,
- N_Freeze_Entity => 3763,
- N_Access_Function_Definition => 3831,
- N_Access_Procedure_Definition => 3887,
- N_Task_Type_Declaration => 3930,
- N_Package_Body_Stub => 4033,
- N_Protected_Body_Stub => 4085,
- N_Subprogram_Body_Stub => 4137,
- N_Task_Body_Stub => 4183,
- N_Function_Instantiation => 4235,
- N_Package_Instantiation => 4321,
- N_Procedure_Instantiation => 4407,
- N_Package_Body => 4493,
- N_Subprogram_Body => 4591,
- N_Protected_Body => 4818,
- N_Task_Body => 4900,
- N_Implicit_Label_Declaration => 5038,
- N_Package_Declaration => 5074,
- N_Single_Task_Declaration => 5143,
- N_Subprogram_Declaration => 5179,
- N_Use_Package_Clause => 5239,
- N_Generic_Package_Declaration => 5282,
- N_Generic_Subprogram_Declaration => 5379,
- N_Constrained_Array_Definition => 5452,
- N_Unconstrained_Array_Definition => 5516,
- N_Exception_Renaming_Declaration => 5565,
- N_Object_Renaming_Declaration => 5590,
- N_Package_Renaming_Declaration => 5662,
- N_Subprogram_Renaming_Declaration => 5698,
- N_Generic_Function_Renaming_Declaration => 5748,
- N_Generic_Package_Renaming_Declaration => 5784,
- N_Generic_Procedure_Renaming_Declaration => 5820,
- N_Abort_Statement => 5856,
- N_Accept_Statement => 5862,
- N_Assignment_Statement => 5957,
- N_Asynchronous_Select => 6043,
- N_Block_Statement => 6081,
- N_Case_Statement => 6246,
- N_Code_Statement => 6279,
- N_Conditional_Entry_Call => 6290,
- N_Delay_Relative_Statement => 6329,
- N_Delay_Until_Statement => 6340,
- N_Entry_Call_Statement => 6351,
- N_Free_Statement => 6398,
- N_Goto_Statement => 6440,
- N_Loop_Statement => 6460,
- N_Null_Statement => 6532,
- N_Raise_Statement => 6532,
- N_Requeue_Statement => 6537,
- N_Return_Statement => 6556,
- N_Selective_Accept => 6630,
- N_Timed_Entry_Call => 6666,
- N_Exit_Statement => 6707,
- N_If_Statement => 6722,
- N_Accept_Alternative => 6785,
- N_Delay_Alternative => 6861,
- N_Elsif_Part => 6913,
- N_Entry_Body_Formal_Part => 6957,
- N_Iteration_Scheme => 7018,
- N_Terminate_Alternative => 7075,
- N_Abortable_Part => 7114,
- N_Abstract_Subprogram_Declaration => 7125,
- N_Access_Definition => 7139,
- N_Access_To_Object_Definition => 7152,
- N_Case_Statement_Alternative => 7200,
- N_Compilation_Unit => 7228,
- N_Compilation_Unit_Aux => 7367,
- N_Component_Association => 7402,
- N_Component_List => 7434,
- N_Derived_Type_Definition => 7476,
- N_Decimal_Fixed_Point_Definition => 7534,
- N_Defining_Program_Unit_Name => 7594,
- N_Delta_Constraint => 7619,
- N_Designator => 7653,
- N_Digits_Constraint => 7669,
- N_Discriminant_Association => 7704,
- N_Discriminant_Specification => 7730,
- N_Enumeration_Type_Definition => 7797,
- N_Entry_Body => 7806,
- N_Entry_Call_Alternative => 7913,
- N_Exception_Declaration => 7960,
- N_Exception_Handler => 8009,
- N_Floating_Point_Definition => 8074,
- N_Formal_Decimal_Fixed_Point_Definition => 8117,
- N_Formal_Derived_Type_Definition => 8117,
- N_Formal_Discrete_Type_Definition => 8163,
- N_Formal_Floating_Point_Definition => 8163,
- N_Formal_Modular_Type_Definition => 8163,
- N_Formal_Ordinary_Fixed_Point_Definition => 8163,
- N_Formal_Package_Declaration => 8163,
- N_Formal_Private_Type_Definition => 8250,
- N_Formal_Signed_Integer_Type_Definition => 8298,
- N_Formal_Subprogram_Declaration => 8298,
- N_Generic_Association => 8337,
- N_Handled_Sequence_Of_Statements => 8385,
- N_Index_Or_Discriminant_Constraint => 8477,
- N_Itype_Reference => 8489,
- N_Label => 8495,
- N_Modular_Type_Definition => 8521,
- N_Number_Declaration => 8532,
- N_Ordinary_Fixed_Point_Definition => 8581,
- N_Others_Choice => 8623,
- N_Package_Specification => 8658,
- N_Parameter_Association => 8744,
- N_Parameter_Specification => 8802,
- N_Protected_Definition => 8931,
- N_Range_Constraint => 9003,
- N_Real_Range_Specification => 9020,
- N_Record_Definition => 9041,
- N_Signed_Integer_Type_Definition => 9127,
- N_Single_Protected_Declaration => 9148,
- N_Subunit => 9189,
- N_Task_Definition => 9225,
- N_Triggering_Alternative => 9363,
- N_Use_Type_Clause => 9410,
- N_Validate_Unchecked_Conversion => 9461,
- N_Variant => 9485,
- N_Variant_Part => 9564,
- N_With_Clause => 9578,
- N_With_Type_Clause => 9753,
- N_Unused_At_End => 9773);
-
-end Treeprs;