diff options
Diffstat (limited to 'gcc/ada/treeprs.ads')
| -rw-r--r-- | gcc/ada/treeprs.ads | 457 |
1 files changed, 227 insertions, 230 deletions
diff --git a/gcc/ada/treeprs.ads b/gcc/ada/treeprs.ads index 6ec3c1d5751..433cb081975 100644 --- a/gcc/ada/treeprs.ads +++ b/gcc/ada/treeprs.ads @@ -6,11 +6,7 @@ -- -- -- 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. -- +-- 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- -- @@ -116,7 +112,7 @@ package Treeprs is -- Record_Representation_Clause "#Identifier$Mod_Clause%Component_Clauses&Next_Rep_Item" & -- Attribute_Definition_Clause - "$Name%Expression&Next_Rep_Item+From_At_Mod" & + "$Name%Expression&Next_Rep_Item+From_At_Mod2Check_Address_Alignment" & -- Empty "" & -- Pragma @@ -145,18 +141,18 @@ package Treeprs is "" & -- 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_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_Subtract - "" & -- Op_And "+Do_Length_Check" & -- Op_Eq @@ -194,24 +190,23 @@ package Treeprs is -- Op_Plus "" & -- Attribute_Reference - "%Prefix$Attribute_Name#Expressions&Entity&Associated_Node2Do_Access_C" & - "heck8Do_Overflow_Check4Redundant_Use+OK_For_Stream5Must_Be_Byte_Al" & - "igned" & + "%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 - "%Prefix2Do_Access_Check" & + "%Prefix" & -- Function_Call "$Name%Parameter_Associations&First_Named_Actual#Controlling_Argument4" & "Do_Tag_Check8Parameter_List_Truncated9ABE_Is_Certain" & -- In "" & -- Indexed_Component - "%Prefix#Expressions2Do_Access_Check" & + "%Prefix#Expressions" & -- Integer_Literal - "%Intval4Print_In_Hex" & + "$Original_Entity%Intval4Print_In_Hex" & -- Not_In "" & -- Null @@ -242,25 +237,26 @@ package Treeprs is -- Range "#Low_Bound$High_Bound2Includes_Infinities" & -- Real_Literal - "%Realval&Corresponding_Integer_Value2Is_Machine_Number" & + "$Original_Entity%Realval&Corresponding_Integer_Value2Is_Machine_Numbe" & + "r" & -- Reference "%Prefix" & -- Selected_Component - "%Prefix$Selector_Name&Associated_Node2Do_Access_Check4Do_Discriminant" & - "_Check" & + "%Prefix$Selector_Name&Associated_Node4Do_Discriminant_Check2Is_In_Dis" & + "criminant_Check" & -- Slice - "%Prefix&Discrete_Range2Do_Access_Check" & + "%Prefix&Discrete_Range" & -- String_Literal "%Strval2Has_Wide_Character" & -- Subprogram_Info "#Identifier" & -- Type_Conversion - "&Subtype_Mark%Expression8Do_Overflow_Check4Do_Tag_Check+Do_Length_Che" & + "&Subtype_Mark%Expression4Do_Tag_Check+Do_Length_Check8Do_Overflow_Che" & "ck2Float_Truncate9Rounded_Result5Conversion_OK" & -- Unchecked_Expression "%Expression" & -- Unchecked_Type_Conversion - "&Subtype_Mark%Expression2Kill_Range_Check" & + "&Subtype_Mark%Expression2Kill_Range_Check8No_Truncation" & -- Subtype_Indication "&Subtype_Mark%Constraint/Must_Not_Freeze" & -- Component_Declaration @@ -268,7 +264,7 @@ package Treeprs is "re_Ids-Prev_Ids" & -- Entry_Declaration "#Defining_Identifier&Discrete_Subtype_Definition%Parameter_Specificat" & - "ions" & + "ions'Corresponding_Body" & -- Formal_Object_Declaration "#Defining_Identifier6In_Present8Out_Present&Subtype_Mark%Expression,M" & "ore_Ids-Prev_Ids" & @@ -416,7 +412,7 @@ package Treeprs is "$Name2Exception_Junk" & -- Loop_Statement "#Identifier$Iteration_Scheme%Statements&End_Label6Has_Created_Identif" & - "ier" & + "ier7Is_Null_Loop" & -- Null_Statement "" & -- Raise_Statement @@ -462,7 +458,7 @@ package Treeprs is "o_Elaboration_Code4Body_Required+Acts_As_Spec%First_Inlined_Subpro" & "gram" & -- Compilation_Unit_Aux - "$Declarations#Actions'Pragmas_After" & + "$Declarations#Actions'Pragmas_After&Config_Pragmas" & -- Component_Association "#Choices$Loop_Actions%Expression" & -- Component_List @@ -538,7 +534,7 @@ package Treeprs is "#Others_Discrete_Choices2All_Others" & -- Package_Specification "#Defining_Unit_Name$Visible_Declarations%Private_Declarations&End_Lab" & - "el'Generic_Parent" & + "el'Generic_Parent9Limited_View_Installed" & -- Parameter_Association "$Selector_Name%Explicit_Actual_Parameter&Next_Named_Actual" & -- Parameter_Specification @@ -577,8 +573,9 @@ package Treeprs is "$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" & + "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 @@ -593,207 +590,207 @@ package Treeprs is 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); + 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 => 7538, + N_Derived_Type_Definition => 7580, + N_Decimal_Fixed_Point_Definition => 7638, + N_Defining_Program_Unit_Name => 7698, + N_Delta_Constraint => 7723, + N_Designator => 7757, + N_Digits_Constraint => 7773, + N_Discriminant_Association => 7808, + N_Discriminant_Specification => 7834, + N_Enumeration_Type_Definition => 7901, + N_Entry_Body => 7920, + N_Entry_Call_Alternative => 8027, + N_Exception_Declaration => 8074, + N_Exception_Handler => 8123, + N_Floating_Point_Definition => 8188, + N_Formal_Decimal_Fixed_Point_Definition => 8231, + N_Formal_Derived_Type_Definition => 8231, + N_Formal_Discrete_Type_Definition => 8277, + N_Formal_Floating_Point_Definition => 8277, + N_Formal_Modular_Type_Definition => 8277, + N_Formal_Ordinary_Fixed_Point_Definition => 8277, + N_Formal_Package_Declaration => 8277, + N_Formal_Private_Type_Definition => 8364, + N_Formal_Signed_Integer_Type_Definition => 8412, + N_Formal_Subprogram_Declaration => 8412, + N_Generic_Association => 8451, + N_Handled_Sequence_Of_Statements => 8499, + N_Index_Or_Discriminant_Constraint => 8591, + N_Itype_Reference => 8603, + N_Label => 8609, + N_Modular_Type_Definition => 8635, + N_Number_Declaration => 8646, + N_Ordinary_Fixed_Point_Definition => 8695, + N_Others_Choice => 8737, + N_Package_Specification => 8772, + N_Parameter_Association => 8881, + N_Parameter_Specification => 8939, + N_Protected_Definition => 9068, + N_Range_Constraint => 9140, + N_Real_Range_Specification => 9157, + N_Record_Definition => 9178, + N_Signed_Integer_Type_Definition => 9264, + N_Single_Protected_Declaration => 9285, + N_Subunit => 9326, + N_Task_Definition => 9362, + N_Triggering_Alternative => 9500, + N_Use_Type_Clause => 9547, + N_Validate_Unchecked_Conversion => 9598, + N_Variant => 9622, + N_Variant_Part => 9701, + N_With_Clause => 9715, + N_With_Type_Clause => 9929, + N_Unused_At_End => 9949); end Treeprs; |