From e288604a6a9e320c3d1434733ce5bd6609e87042 Mon Sep 17 00:00:00 2001 From: Geert Bosch Date: Tue, 4 Dec 2001 22:28:25 +0100 Subject: [PATCH] * einfo.h, nmake.adb, nmake.ads, sinfo.h, treeprs.ads: Regenerate. From-SVN: r47626 --- gcc/ada/ChangeLog | 4 + gcc/ada/einfo.h | 8 +- gcc/ada/nmake.adb | 2 +- gcc/ada/nmake.ads | 2 +- gcc/ada/sinfo.h | 6 +- gcc/ada/treeprs.ads | 417 ++++++++++++++++++++++---------------------- 6 files changed, 226 insertions(+), 213 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6f52893a3ec..8dfd58ae4d0 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2001-12-04 Geert bosch + + * einfo.h, nmake.adb, nmake.ads, sinfo.h treeprs.ads: Regenerate. + 2001-12-04 Geert Bosch * Makefile.in (update-sources): New target. diff --git a/gcc/ada/einfo.h b/gcc/ada/einfo.h index 5140d95bba1..db629190d38 100644 --- a/gcc/ada/einfo.h +++ b/gcc/ada/einfo.h @@ -7,8 +7,8 @@ /* C Header File */ /* */ /* Generated by xeinfo revision 1.2 using */ -/* einfo.ads revision 1.2 */ -/* einfo.adb revision 1.3 */ +/* einfo.ads revision 1.3 */ +/* einfo.adb revision 1.4 */ /* */ /* Copyright (C) 1992-2001 Free Software Foundation, Inc. */ /* */ @@ -360,6 +360,7 @@ INLINE B Has_Pragma_Elaborate_Body (E Id); INLINE B Has_Pragma_Inline (E Id); INLINE B Has_Pragma_Pack (E Id); + INLINE B Has_Pragma_Pure_Function (E Id); INLINE B Has_Primitive_Operations (E Id); INLINE B Has_Qualified_Name (E Id); INLINE B Has_Record_Rep_Clause (E Id); @@ -1117,6 +1118,9 @@ INLINE B Has_Pragma_Pack (E Id) { return Flag121 (Implementation_Base_Type (Id)); } + INLINE B Has_Pragma_Pure_Function (E Id) + { return Flag179 (Id); } + INLINE B Has_Primitive_Operations (E Id) { return Flag120 (Base_Type (Id)); } diff --git a/gcc/ada/nmake.adb b/gcc/ada/nmake.adb index 3e604109fcb..f21cba3ab0b 100644 --- a/gcc/ada/nmake.adb +++ b/gcc/ada/nmake.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Generated by xnmake revision 1.2 using -- --- sinfo.ads revision 1.2 -- +-- sinfo.ads revision 1.5 -- -- nmake.adt revision 1.1 -- -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- diff --git a/gcc/ada/nmake.ads b/gcc/ada/nmake.ads index c462551703c..0c4a6d7c573 100644 --- a/gcc/ada/nmake.ads +++ b/gcc/ada/nmake.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Generated by xnmake revision 1.2 using -- --- sinfo.ads revision 1.2 -- +-- sinfo.ads revision 1.5 -- -- nmake.adt revision 1.1 -- -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- diff --git a/gcc/ada/sinfo.h b/gcc/ada/sinfo.h index 68cd7f3ac85..8367427ef2a 100644 --- a/gcc/ada/sinfo.h +++ b/gcc/ada/sinfo.h @@ -6,8 +6,8 @@ /* */ /* C Header File */ /* */ -/* Generated by xsinfo revision 1.1 using */ -/* sinfo.ads revision 1.2 */ +/* Generated by xsinfo revision using */ +/* sinfo.ads revision 1.5 */ /* */ /* Copyright (C) 1992-2001, Free Software Foundation, Inc. */ /* */ @@ -365,6 +365,8 @@ { 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) diff --git a/gcc/ada/treeprs.ads b/gcc/ada/treeprs.ads index 3e9ac81ecda..5b38e4e1768 100644 --- a/gcc/ada/treeprs.ads +++ b/gcc/ada/treeprs.ads @@ -6,8 +6,8 @@ -- -- -- S p e c -- -- -- --- Generated by xtreeprs revision 1.1 using -- --- sinfo.ads revision 1.2 -- +-- Generated by xtreeprs revision using -- +-- sinfo.ads revision 1.5 -- -- treeprs.adt revision 1.1 -- -- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- @@ -132,13 +132,15 @@ package Treeprs is -- Defining_Operator_Symbol "$Next_Entity%Scope" & -- Expanded_Name - "%Prefix$Selector_Name&Entity4Redundant_Use2Has_Private_View" & + "%Prefix$Selector_Name&Entity&Associated_Node4Redundant_Use2Has_Privat" & + "e_View" & -- Identifier - "&Entity$Original_Discriminant4Redundant_Use2Has_Private_View" & + "&Entity&Associated_Node$Original_Discriminant4Redundant_Use2Has_Priva" & + "te_View" & -- Operator_Symbol - "%Strval&Entity2Has_Private_View" & + "%Strval&Entity&Associated_Node2Has_Private_View" & -- Character_Literal - "$Char_Literal_Value&Entity2Has_Private_View" & + "$Char_Literal_Value&Entity&Associated_Node2Has_Private_View" & -- Op_Add "" & -- Op_Concat @@ -192,8 +194,8 @@ package Treeprs is -- Op_Plus "" & -- Attribute_Reference - "%Prefix$Attribute_Name#Expressions&Entity2Do_Access_Check8Do_Overflow" & - "_Check4Redundant_Use+OK_For_Stream" & + "%Prefix$Attribute_Name#Expressions&Entity&Associated_Node2Do_Access_C" & + "heck8Do_Overflow_Check4Redundant_Use+OK_For_Stream" & -- And_Then "#Actions" & -- Conditional_Expression @@ -228,14 +230,14 @@ package Treeprs is "#Condition" & -- Aggregate "#Expressions$Component_Associations8Null_Record_Present%Aggregate_Bou" & - "nds+Static_Processing_OK9Compile_Time_Known_Aggregate2Expansion_De" & - "layed" & + "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#Expressions$Component_Associations8Null_Record_Present" & - "2Expansion_Delayed" & + "%Ancestor_Part&Associated_Node#Expressions$Component_Associations8Nul" & + "l_Record_Present2Expansion_Delayed" & -- Range "#Low_Bound$High_Bound2Includes_Infinities" & -- Real_Literal @@ -243,7 +245,8 @@ package Treeprs is -- Reference "%Prefix" & -- Selected_Component - "%Prefix$Selector_Name2Do_Access_Check4Do_Discriminant_Check" & + "%Prefix$Selector_Name&Associated_Node2Do_Access_Check4Do_Discriminant" & + "_Check" & -- Slice "%Prefix&Discrete_Range2Do_Access_Check" & -- String_Literal @@ -597,199 +600,199 @@ package Treeprs is N_Defining_Identifier => 317, N_Defining_Operator_Symbol => 335, N_Expanded_Name => 353, - N_Identifier => 412, - N_Operator_Symbol => 472, - N_Character_Literal => 503, - N_Op_Add => 546, - N_Op_Concat => 546, - N_Op_Divide => 593, - N_Op_Expon => 649, - N_Op_Mod => 673, - N_Op_Multiply => 714, - N_Op_Rem => 752, - N_Op_Subtract => 793, - N_Op_And => 793, - N_Op_Eq => 809, - N_Op_Ge => 809, - N_Op_Gt => 809, - N_Op_Le => 809, - N_Op_Lt => 809, - N_Op_Ne => 809, - N_Op_Or => 809, - N_Op_Xor => 825, - N_Op_Rotate_Left => 841, - N_Op_Rotate_Right => 856, - N_Op_Shift_Left => 871, - N_Op_Shift_Right => 886, - N_Op_Shift_Right_Arithmetic => 901, - N_Op_Abs => 916, - N_Op_Minus => 916, - N_Op_Not => 916, - N_Op_Plus => 916, - N_Attribute_Reference => 916, - N_And_Then => 1019, - N_Conditional_Expression => 1027, - N_Explicit_Dereference => 1065, - N_Function_Call => 1088, - N_In => 1209, - N_Indexed_Component => 1209, - N_Integer_Literal => 1244, - N_Not_In => 1264, - N_Null => 1264, - N_Or_Else => 1264, - N_Procedure_Call_Statement => 1272, - N_Qualified_Expression => 1393, - N_Raise_Constraint_Error => 1417, - N_Raise_Program_Error => 1427, - N_Raise_Storage_Error => 1437, - N_Aggregate => 1447, - N_Allocator => 1587, - N_Extension_Aggregate => 1664, - N_Range => 1751, - N_Real_Literal => 1792, - N_Reference => 1846, - N_Selected_Component => 1853, - N_Slice => 1912, - N_String_Literal => 1950, - N_Subprogram_Info => 1976, - N_Type_Conversion => 1987, - N_Unchecked_Expression => 2102, - N_Unchecked_Type_Conversion => 2113, - N_Subtype_Indication => 2154, - N_Component_Declaration => 2194, - N_Entry_Declaration => 2278, - N_Formal_Object_Declaration => 2351, - N_Formal_Type_Declaration => 2436, - N_Full_Type_Declaration => 2537, - N_Incomplete_Type_Declaration => 2625, - N_Loop_Parameter_Specification => 2703, - N_Object_Declaration => 2767, - N_Protected_Type_Declaration => 3014, - N_Private_Extension_Declaration => 3102, - N_Private_Type_Declaration => 3216, - N_Subtype_Declaration => 3342, - N_Function_Specification => 3416, - N_Procedure_Specification => 3508, - N_Entry_Index_Specification => 3587, - N_Freeze_Entity => 3635, - N_Access_Function_Definition => 3703, - N_Access_Procedure_Definition => 3759, - N_Task_Type_Declaration => 3802, - N_Package_Body_Stub => 3905, - N_Protected_Body_Stub => 3957, - N_Subprogram_Body_Stub => 4009, - N_Task_Body_Stub => 4055, - N_Function_Instantiation => 4107, - N_Package_Instantiation => 4193, - N_Procedure_Instantiation => 4279, - N_Package_Body => 4365, - N_Subprogram_Body => 4463, - N_Protected_Body => 4690, - N_Task_Body => 4772, - N_Implicit_Label_Declaration => 4910, - N_Package_Declaration => 4946, - N_Single_Task_Declaration => 5015, - N_Subprogram_Declaration => 5051, - N_Use_Package_Clause => 5111, - N_Generic_Package_Declaration => 5154, - N_Generic_Subprogram_Declaration => 5251, - N_Constrained_Array_Definition => 5324, - N_Unconstrained_Array_Definition => 5388, - N_Exception_Renaming_Declaration => 5437, - N_Object_Renaming_Declaration => 5462, - N_Package_Renaming_Declaration => 5534, - N_Subprogram_Renaming_Declaration => 5570, - N_Generic_Function_Renaming_Declaration => 5620, - N_Generic_Package_Renaming_Declaration => 5656, - N_Generic_Procedure_Renaming_Declaration => 5692, - N_Abort_Statement => 5728, - N_Accept_Statement => 5734, - N_Assignment_Statement => 5829, - N_Asynchronous_Select => 5915, - N_Block_Statement => 5953, - N_Case_Statement => 6118, - N_Code_Statement => 6151, - N_Conditional_Entry_Call => 6162, - N_Delay_Relative_Statement => 6201, - N_Delay_Until_Statement => 6212, - N_Entry_Call_Statement => 6223, - N_Free_Statement => 6270, - N_Goto_Statement => 6312, - N_Loop_Statement => 6332, - N_Null_Statement => 6404, - N_Raise_Statement => 6404, - N_Requeue_Statement => 6409, - N_Return_Statement => 6428, - N_Selective_Accept => 6502, - N_Timed_Entry_Call => 6538, - N_Exit_Statement => 6579, - N_If_Statement => 6594, - N_Accept_Alternative => 6657, - N_Delay_Alternative => 6733, - N_Elsif_Part => 6785, - N_Entry_Body_Formal_Part => 6829, - N_Iteration_Scheme => 6890, - N_Terminate_Alternative => 6947, - N_Abortable_Part => 6986, - N_Abstract_Subprogram_Declaration => 6997, - N_Access_Definition => 7011, - N_Access_To_Object_Definition => 7024, - N_Case_Statement_Alternative => 7072, - N_Compilation_Unit => 7100, - N_Compilation_Unit_Aux => 7239, - N_Component_Association => 7274, - N_Component_List => 7306, - N_Derived_Type_Definition => 7348, - N_Decimal_Fixed_Point_Definition => 7406, - N_Defining_Program_Unit_Name => 7466, - N_Delta_Constraint => 7491, - N_Designator => 7525, - N_Digits_Constraint => 7541, - N_Discriminant_Association => 7576, - N_Discriminant_Specification => 7602, - N_Enumeration_Type_Definition => 7669, - N_Entry_Body => 7678, - N_Entry_Call_Alternative => 7785, - N_Exception_Declaration => 7832, - N_Exception_Handler => 7881, - N_Floating_Point_Definition => 7946, - N_Formal_Decimal_Fixed_Point_Definition => 7989, - N_Formal_Derived_Type_Definition => 7989, - N_Formal_Discrete_Type_Definition => 8035, - N_Formal_Floating_Point_Definition => 8035, - N_Formal_Modular_Type_Definition => 8035, - N_Formal_Ordinary_Fixed_Point_Definition => 8035, - N_Formal_Package_Declaration => 8035, - N_Formal_Private_Type_Definition => 8122, - N_Formal_Signed_Integer_Type_Definition => 8170, - N_Formal_Subprogram_Declaration => 8170, - N_Generic_Association => 8209, - N_Handled_Sequence_Of_Statements => 8257, - N_Index_Or_Discriminant_Constraint => 8349, - N_Itype_Reference => 8361, - N_Label => 8367, - N_Modular_Type_Definition => 8393, - N_Number_Declaration => 8404, - N_Ordinary_Fixed_Point_Definition => 8453, - N_Others_Choice => 8495, - N_Package_Specification => 8530, - N_Parameter_Association => 8616, - N_Parameter_Specification => 8674, - N_Protected_Definition => 8803, - N_Range_Constraint => 8875, - N_Real_Range_Specification => 8892, - N_Record_Definition => 8913, - N_Signed_Integer_Type_Definition => 8999, - N_Single_Protected_Declaration => 9020, - N_Subunit => 9061, - N_Task_Definition => 9097, - N_Triggering_Alternative => 9235, - N_Use_Type_Clause => 9282, - N_Validate_Unchecked_Conversion => 9333, - N_Variant => 9357, - N_Variant_Part => 9436, - N_With_Clause => 9450, - N_With_Type_Clause => 9625, - N_Unused_At_End => 9645); + 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; -- 2.30.2