diff options
Diffstat (limited to 'gcc/ada/einfo.h')
| -rw-r--r-- | gcc/ada/einfo.h | 94 |
1 files changed, 46 insertions, 48 deletions
diff --git a/gcc/ada/einfo.h b/gcc/ada/einfo.h index d7589a53eeb..6507e2f70bf 100644 --- a/gcc/ada/einfo.h +++ b/gcc/ada/einfo.h @@ -6,11 +6,11 @@ /* */ /* C Header File */ /* */ -/* Generated by xeinfo revision 1.2 using */ -/* einfo.ads revision 1.7 */ -/* einfo.adb revision 1.4 */ +/* Generated by xeinfo revision 1.3 using */ +/* einfo.ads revision 1.654 */ +/* einfo.adb revision 1.642 */ /* */ -/* Copyright (C) 1992-2001 Free Software Foundation, Inc. */ +/* Copyright (C) 1992-2002 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- */ @@ -361,6 +361,7 @@ 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_Pragma_Unreferenced (E Id); INLINE B Has_Primitive_Operations (E Id); INLINE B Has_Qualified_Name (E Id); INLINE B Has_Record_Rep_Clause (E Id); @@ -474,6 +475,7 @@ 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); INLINE E Packed_Array_Type (E Id); INLINE E Parent_Subtype (E Id); @@ -723,10 +725,17 @@ #define Underlying_Type einfo__underlying_type E Underlying_Type (E Id); - INLINE B Known_Alignment (Entity_Id E); - INLINE B Known_Component_Bit_Offset (Entity_Id E); - INLINE B Known_Component_Size (Entity_Id E); - INLINE B Known_Esize (Entity_Id E); + #define Known_Alignment einfo__known_alignment + B Known_Alignment (Entity_Id E); + + #define Known_Component_Bit_Offset einfo__known_component_bit_offset + B Known_Component_Bit_Offset (Entity_Id E); + + #define Known_Component_Size einfo__known_component_size + B Known_Component_Size (Entity_Id E); + + #define Known_Esize einfo__known_esize + B Known_Esize (Entity_Id E); #define Known_Normalized_First_Bit einfo__known_normalized_first_bit B Known_Normalized_First_Bit (Entity_Id E); @@ -743,8 +752,14 @@ #define Known_Static_Component_Bit_Offset einfo__known_static_component_bit_offset B Known_Static_Component_Bit_Offset (Entity_Id E); - INLINE B Known_Static_Component_Size (Entity_Id E); - INLINE B Known_Static_Esize (Entity_Id E); + #define Known_Static_Component_Size einfo__known_static_component_size + B Known_Static_Component_Size (Entity_Id E); + + #define Known_Static_Esize einfo__known_static_esize + B Known_Static_Esize (Entity_Id E); + + #define Known_Static_Normalized_First_Bit einfo__known_static_normalized_first_bit + B Known_Static_Normalized_First_Bit (Entity_Id E); #define Known_Static_Normalized_Position einfo__known_static_normalized_position B Known_Static_Normalized_Position (Entity_Id E); @@ -755,10 +770,17 @@ #define Known_Static_RM_Size einfo__known_static_rm_size B Known_Static_RM_Size (Entity_Id E); - INLINE B Unknown_Alignment (Entity_Id E); - INLINE B Unknown_Component_Bit_Offset (Entity_Id E); - INLINE B Unknown_Component_Size (Entity_Id E); - INLINE B Unknown_Esize (Entity_Id E); + #define Unknown_Alignment einfo__unknown_alignment + B Unknown_Alignment (Entity_Id E); + + #define Unknown_Component_Bit_Offset einfo__unknown_component_bit_offset + B Unknown_Component_Bit_Offset (Entity_Id E); + + #define Unknown_Component_Size einfo__unknown_component_size + B Unknown_Component_Size (Entity_Id E); + + #define Unknown_Esize einfo__unknown_esize + B Unknown_Esize (Entity_Id E); #define Unknown_Normalized_First_Bit einfo__unknown_normalized_first_bit B Unknown_Normalized_First_Bit (Entity_Id E); @@ -777,7 +799,7 @@ { return Elist21 (Id); } INLINE E Access_Disp_Table (E Id) - { return Node16 (Base_Type (Underlying_Type (Base_Type (Id)))); } + { return Node16 (Implementation_Base_Type (Id)); } INLINE E Actual_Subtype (E Id) { return Node17 (Id); } @@ -801,7 +823,7 @@ { return Node8 (Id); } INLINE E Associated_Storage_Pool (E Id) - { return Node22 (Id); } + { return Node22 (Root_Type (Id)); } INLINE N Barrier_Function (E Id) { return Node12 (Id); } @@ -1121,6 +1143,9 @@ INLINE B Has_Pragma_Pure_Function (E Id) { return Flag179 (Id); } + INLINE B Has_Pragma_Unreferenced (E Id) + { return Flag180 (Id); } + INLINE B Has_Primitive_Operations (E Id) { return Flag120 (Base_Type (Id)); } @@ -1131,7 +1156,7 @@ { return Flag161 (Id); } INLINE B Has_Record_Rep_Clause (E Id) - { return Flag65 (Id); } + { return Flag65 (Implementation_Base_Type (Id)); } INLINE B Has_Recursive_Call (E Id) { return Flag143 (Id); } @@ -1143,7 +1168,7 @@ { return Flag67 (Id); } INLINE B Has_Specified_Layout (E Id) - { return Flag100 (Id); } + { return Flag100 (Implementation_Base_Type (Id)); } INLINE B Has_Storage_Size_Clause (E Id) { return Flag23 (Implementation_Base_Type (Id)); } @@ -1463,6 +1488,9 @@ INLINE E Object_Ref (E Id) { return Node17 (Id); } + INLINE E Original_Array_Type (E Id) + { return Node21 (Id); } + INLINE E Original_Record_Component (E Id) { return Node22 (Id); } @@ -1745,36 +1773,6 @@ INLINE B Is_Type (E Id) { return IN (Ekind (Id), Type_Kind); } - INLINE B Known_Alignment (Entity_Id E) - { return Uint14 (E) != Uint_0; } - - INLINE B Known_Component_Bit_Offset (Entity_Id E) - { return Uint11 (E) != No_Uint; } - - INLINE B Known_Component_Size (Entity_Id E) - { return Uint22 (Base_Type (E)) != Uint_0; } - - INLINE B Known_Esize (Entity_Id E) - { return Uint12 (E) != Uint_0; } - - INLINE B Known_Static_Component_Size (Entity_Id E) - { return Uint22 (Base_Type (E)) > Uint_0; } - - INLINE B Known_Static_Esize (Entity_Id E) - { return Uint12 (E) > Uint_0; } - - INLINE B Unknown_Alignment (Entity_Id E) - { return Uint14 (E) == Uint_0; } - - INLINE B Unknown_Component_Bit_Offset (Entity_Id E) - { return Uint11 (E) == No_Uint; } - - INLINE B Unknown_Component_Size (Entity_Id E) - { return Uint22 (Base_Type (E)) == Uint_0; } - - INLINE B Unknown_Esize (Entity_Id E) - { return Uint12 (E) == Uint_0; } - INLINE N Entry_Index_Type (E Id) { return Etype (Discrete_Subtype_Definition (Parent (Id))); } |