diff options
Diffstat (limited to 'gcc/ada/einfo.h')
| -rw-r--r-- | gcc/ada/einfo.h | 174 |
1 files changed, 100 insertions, 74 deletions
diff --git a/gcc/ada/einfo.h b/gcc/ada/einfo.h index a25fd3a7f06..f9b0a8a41fa 100644 --- a/gcc/ada/einfo.h +++ b/gcc/ada/einfo.h @@ -6,11 +6,7 @@ /* */ /* C Header File */ /* */ -/* Generated by xeinfo revision 1.3 using */ -/* einfo.ads revision 1.654 */ -/* einfo.adb revision 1.642 */ -/* */ -/* Copyright (C) 1992-2002 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- */ @@ -100,8 +96,8 @@ #define E_Entry_Index_Parameter 62 #define E_Exception 63 #define E_Generic_Function 64 - #define E_Generic_Package 65 - #define E_Generic_Procedure 66 + #define E_Generic_Procedure 65 + #define E_Generic_Package 66 #define E_Label 67 #define E_Loop 68 #define E_Package 69 @@ -159,9 +155,12 @@ SUBTYPE (Formal_Kind, Entity_Kind, E_In_Parameter, E_In_Out_Parameter) - SUBTYPE (Generic_Unit_Kind, Entity_Kind, + 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) @@ -245,8 +244,11 @@ 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); @@ -262,6 +264,7 @@ 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); @@ -321,8 +324,8 @@ 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 L Girder_Constraint (E Id); INLINE S Handler_Records (E Id); INLINE B Has_Aliased_Components (E Id); INLINE B Has_Alignment_Clause (E Id); @@ -333,6 +336,7 @@ 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); @@ -375,8 +379,9 @@ INLINE B Has_Unchecked_Union (E Id); INLINE B Has_Unknown_Discriminants (E Id); INLINE B Has_Volatile_Components (E Id); - INLINE E Homonym (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); @@ -393,6 +398,7 @@ 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); @@ -401,7 +407,6 @@ INLINE B Is_Constructor (E Id); INLINE B Is_Controlled (E Id); INLINE B Is_Controlling_Formal (E Id); - INLINE B Is_Destructor (E Id); INLINE B Is_Discrim_SO_Function (E Id); INLINE B Is_Dispatching_Operation (E Id); INLINE B Is_Eliminated (E Id); @@ -421,6 +426,7 @@ 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); @@ -450,12 +456,18 @@ INLINE B Is_VMS_Exception (E Id); INLINE B Is_Valued_Procedure (E Id); INLINE B Is_Visible_Child_Unit (E Id); - INLINE B Is_Volatile (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); @@ -465,15 +477,17 @@ 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 L Non_Limited_Views (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 B Not_Source_Assigned (E Id); INLINE E Object_Ref (E Id); INLINE E Original_Array_Type (E Id); INLINE E Original_Record_Component (E Id); @@ -490,6 +504,7 @@ 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); @@ -513,23 +528,14 @@ 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_Access_Checks (E Id); - INLINE B Suppress_Accessibility_Checks (E Id); - INLINE B Suppress_Discriminant_Checks (E Id); - INLINE B Suppress_Division_Checks (E Id); - INLINE B Suppress_Elaboration_Checks (E Id); INLINE B Suppress_Elaboration_Warnings (E Id); - INLINE B Suppress_Index_Checks (E Id); INLINE B Suppress_Init_Proc (E Id); - INLINE B Suppress_Length_Checks (E Id); - INLINE B Suppress_Overflow_Checks (E Id); - INLINE B Suppress_Range_Checks (E Id); - INLINE B Suppress_Storage_Checks (E Id); INLINE B Suppress_Style_Checks (E Id); - INLINE B Suppress_Tag_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); @@ -554,8 +560,9 @@ 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_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); @@ -565,6 +572,7 @@ 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); @@ -608,8 +616,8 @@ #define First_Formal einfo__first_formal E First_Formal (E Id); - #define First_Girder_Discriminant einfo__first_girder_discriminant - E First_Girder_Discriminant (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); @@ -685,11 +693,11 @@ #define Next_Formal_With_Extras einfo__next_formal_with_extras E Next_Formal_With_Extras (E Id); - #define Next_Girder_Discriminant einfo__next_girder_discriminant - E Next_Girder_Discriminant (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); @@ -834,9 +842,18 @@ 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); } @@ -870,6 +887,9 @@ 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); } @@ -1035,10 +1055,10 @@ INLINE B Function_Returns_With_DSP (E Id) { return Flag169 (Id); } - INLINE L Generic_Renamings (E Id) - { return Elist23 (Id); } + INLINE E Generic_Homonym (E Id) + { return Node11 (Id); } - INLINE L Girder_Constraint (E Id) + INLINE L Generic_Renamings (E Id) { return Elist23 (Id); } INLINE S Handler_Records (E Id) @@ -1074,6 +1094,9 @@ 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); } @@ -1188,6 +1211,9 @@ 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); } @@ -1239,6 +1265,9 @@ 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); } @@ -1266,9 +1295,6 @@ INLINE B Is_CPP_Class (E Id) { return Flag74 (Id); } - INLINE B Is_Destructor (E Id) - { return Flag77 (Id); } - INLINE B Is_Discrim_SO_Function (E Id) { return Flag176 (Id); } @@ -1335,6 +1361,9 @@ 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); } @@ -1356,6 +1385,9 @@ 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); } @@ -1425,12 +1457,21 @@ INLINE B Is_VMS_Exception (E Id) { return Flag133 (Id); } - INLINE B Is_Volatile (E Id) - { return Flag16 (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); } @@ -1458,6 +1499,9 @@ 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); } @@ -1470,6 +1514,12 @@ INLINE B Non_Binary_Modulus (E Id) { return Flag58 (Base_Type (Id)); } + INLINE E Non_Limited_View (E Id) + { return Node17 (Id); } + + INLINE L Non_Limited_Views (E Id) + { return Elist8 (Id); } + INLINE B Nonzero_Is_True (E Id) { return Flag162 (Base_Type (Id)); } @@ -1477,14 +1527,11 @@ { return Uint8 (Id); } INLINE U Normalized_Position (E Id) - { return Uint9 (Id); } + { return Uint14 (Id); } INLINE U Normalized_Position_Max (E Id) { return Uint10 (Id); } - INLINE B Not_Source_Assigned (E Id) - { return Flag115 (Id); } - INLINE E Object_Ref (E Id) { return Node17 (Id); } @@ -1530,6 +1577,9 @@ 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); } @@ -1585,7 +1635,7 @@ { return Node15 (Id); } INLINE N Size_Check_Code (E Id) - { return Node9 (Id); } + { return Node19 (Id); } INLINE B Size_Depends_On_Discriminant (E Id) { return Flag177 (Id); } @@ -1602,6 +1652,9 @@ 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)); } @@ -1611,46 +1664,16 @@ INLINE N String_Literal_Low_Bound (E Id) { return Node15 (Id); } - INLINE B Suppress_Access_Checks (E Id) - { return Flag31 (Id); } - - INLINE B Suppress_Accessibility_Checks (E Id) - { return Flag32 (Id); } - - INLINE B Suppress_Discriminant_Checks (E Id) - { return Flag33 (Id); } - - INLINE B Suppress_Division_Checks (E Id) - { return Flag34 (Id); } - - INLINE B Suppress_Elaboration_Checks (E Id) - { return Flag35 (Id); } - INLINE B Suppress_Elaboration_Warnings (E Id) { return Flag148 (Id); } - INLINE B Suppress_Index_Checks (E Id) - { return Flag36 (Id); } - INLINE B Suppress_Init_Proc (E Id) { return Flag105 (Base_Type (Id)); } - INLINE B Suppress_Length_Checks (E Id) - { return Flag37 (Id); } - - INLINE B Suppress_Overflow_Checks (E Id) - { return Flag38 (Id); } - - INLINE B Suppress_Range_Checks (E Id) - { return Flag39 (Id); } - - INLINE B Suppress_Storage_Checks (E Id) - { return Flag40 (Id); } - INLINE B Suppress_Style_Checks (E Id) { return Flag165 (Id); } - INLINE B Suppress_Tag_Checks (E Id) + INLINE B Treat_As_Volatile (E Id) { return Flag41 (Id); } INLINE E Underlying_Full_View (E Id) @@ -1719,6 +1742,9 @@ 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); } |