------------------------------------------------------------------------------ -- -- -- GNAT COMPILER COMPONENTS -- -- -- -- T R E E P R S -- -- -- -- S p e c -- -- -- -- Generated by xtreeprs revision using -- -- sinfo.ads revision 1.439 -- -- treeprs.adt revision 1.17 -- -- -- -- 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_Stream5Must_Be_Byte_Al" & "igned" & -- 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%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 "%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&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_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 => 1120, N_Conditional_Expression => 1128, N_Explicit_Dereference => 1166, N_Function_Call => 1189, N_In => 1310, N_Indexed_Component => 1310, N_Integer_Literal => 1345, N_Not_In => 1365, N_Null => 1365, N_Or_Else => 1365, N_Procedure_Call_Statement => 1373, N_Qualified_Expression => 1494, N_Raise_Constraint_Error => 1518, N_Raise_Program_Error => 1535, N_Raise_Storage_Error => 1552, N_Aggregate => 1569, N_Allocator => 1725, N_Extension_Aggregate => 1802, N_Range => 1905, N_Real_Literal => 1946, N_Reference => 2000, N_Selected_Component => 2007, N_Slice => 2082, N_String_Literal => 2120, N_Subprogram_Info => 2146, N_Type_Conversion => 2157, N_Unchecked_Expression => 2272, N_Unchecked_Type_Conversion => 2283, N_Subtype_Indication => 2324, N_Component_Declaration => 2364, N_Entry_Declaration => 2448, N_Formal_Object_Declaration => 2521, N_Formal_Type_Declaration => 2606, N_Full_Type_Declaration => 2707, N_Incomplete_Type_Declaration => 2795, N_Loop_Parameter_Specification => 2873, N_Object_Declaration => 2937, N_Protected_Type_Declaration => 3184, N_Private_Extension_Declaration => 3272, N_Private_Type_Declaration => 3386, N_Subtype_Declaration => 3512, N_Function_Specification => 3586, N_Procedure_Specification => 3678, N_Entry_Index_Specification => 3757, N_Freeze_Entity => 3805, N_Access_Function_Definition => 3873, N_Access_Procedure_Definition => 3929, N_Task_Type_Declaration => 3972, N_Package_Body_Stub => 4075, N_Protected_Body_Stub => 4127, N_Subprogram_Body_Stub => 4179, N_Task_Body_Stub => 4225, N_Function_Instantiation => 4277, N_Package_Instantiation => 4363, N_Procedure_Instantiation => 4449, N_Package_Body => 4535, N_Subprogram_Body => 4633, N_Protected_Body => 4860, N_Task_Body => 4942, N_Implicit_Label_Declaration => 5080, N_Package_Declaration => 5116, N_Single_Task_Declaration => 5185, N_Subprogram_Declaration => 5221, N_Use_Package_Clause => 5281, N_Generic_Package_Declaration => 5324, N_Generic_Subprogram_Declaration => 5421, N_Constrained_Array_Definition => 5494, N_Unconstrained_Array_Definition => 5558, N_Exception_Renaming_Declaration => 5607, N_Object_Renaming_Declaration => 5632, N_Package_Renaming_Declaration => 5704, N_Subprogram_Renaming_Declaration => 5740, N_Generic_Function_Renaming_Declaration => 5790, N_Generic_Package_Renaming_Declaration => 5826, N_Generic_Procedure_Renaming_Declaration => 5862, N_Abort_Statement => 5898, N_Accept_Statement => 5904, N_Assignment_Statement => 5999, N_Asynchronous_Select => 6085, N_Block_Statement => 6123, N_Case_Statement => 6288, N_Code_Statement => 6321, N_Conditional_Entry_Call => 6332, N_Delay_Relative_Statement => 6371, N_Delay_Until_Statement => 6382, N_Entry_Call_Statement => 6393, N_Free_Statement => 6440, N_Goto_Statement => 6482, N_Loop_Statement => 6502, N_Null_Statement => 6574, N_Raise_Statement => 6574, N_Requeue_Statement => 6579, N_Return_Statement => 6598, N_Selective_Accept => 6672, N_Timed_Entry_Call => 6708, N_Exit_Statement => 6749, N_If_Statement => 6764, N_Accept_Alternative => 6827, N_Delay_Alternative => 6903, N_Elsif_Part => 6955, N_Entry_Body_Formal_Part => 6999, N_Iteration_Scheme => 7060, N_Terminate_Alternative => 7117, N_Abortable_Part => 7156, N_Abstract_Subprogram_Declaration => 7167, N_Access_Definition => 7181, N_Access_To_Object_Definition => 7194, N_Case_Statement_Alternative => 7242, N_Compilation_Unit => 7270, N_Compilation_Unit_Aux => 7409, N_Component_Association => 7444, N_Component_List => 7476, N_Derived_Type_Definition => 7518, N_Decimal_Fixed_Point_Definition => 7576, N_Defining_Program_Unit_Name => 7636, N_Delta_Constraint => 7661, N_Designator => 7695, N_Digits_Constraint => 7711, N_Discriminant_Association => 7746, N_Discriminant_Specification => 7772, N_Enumeration_Type_Definition => 7839, N_Entry_Body => 7858, N_Entry_Call_Alternative => 7965, N_Exception_Declaration => 8012, N_Exception_Handler => 8061, N_Floating_Point_Definition => 8126, N_Formal_Decimal_Fixed_Point_Definition => 8169, N_Formal_Derived_Type_Definition => 8169, N_Formal_Discrete_Type_Definition => 8215, N_Formal_Floating_Point_Definition => 8215, N_Formal_Modular_Type_Definition => 8215, N_Formal_Ordinary_Fixed_Point_Definition => 8215, N_Formal_Package_Declaration => 8215, N_Formal_Private_Type_Definition => 8302, N_Formal_Signed_Integer_Type_Definition => 8350, N_Formal_Subprogram_Declaration => 8350, N_Generic_Association => 8389, N_Handled_Sequence_Of_Statements => 8437, N_Index_Or_Discriminant_Constraint => 8529, N_Itype_Reference => 8541, N_Label => 8547, N_Modular_Type_Definition => 8573, N_Number_Declaration => 8584, N_Ordinary_Fixed_Point_Definition => 8633, N_Others_Choice => 8675, N_Package_Specification => 8710, N_Parameter_Association => 8796, N_Parameter_Specification => 8854, N_Protected_Definition => 8983, N_Range_Constraint => 9055, N_Real_Range_Specification => 9072, N_Record_Definition => 9093, N_Signed_Integer_Type_Definition => 9179, N_Single_Protected_Declaration => 9200, N_Subunit => 9241, N_Task_Definition => 9277, N_Triggering_Alternative => 9415, N_Use_Type_Clause => 9462, N_Validate_Unchecked_Conversion => 9513, N_Variant => 9537, N_Variant_Part => 9616, N_With_Clause => 9630, N_With_Type_Clause => 9805, N_Unused_At_End => 9825); end Treeprs;