gcc/ada/einfo.h

   1 /*--------------------------------------------------------------------------*/
   2 /*                                                                          */
   3 /*                         GNAT COMPILER COMPONENTS                         */
   4 /*                                                                          */
   5 /*                                E I N F O                                 */
   6 /*                                                                          */
   7 /*                              C Header File                               */
   8 /*                                                                          */
   9 /*                 Generated by xeinfo revision 1.2 using                  */
  10 /*                         einfo.ads revision 1.2                         */
  11 /*                         einfo.adb revision 1.3                         */
  12 /*                                                                          */
  13 /*          Copyright (C) 1992-2001 Free Software Foundation, Inc.          */
  14 /*                                                                          */
  15 /* GNAT is free software;  you can  redistribute it  and/or modify it under */
  16 /* terms of the  GNU General Public License as published  by the Free Soft- */
  17 /* ware  Foundation;  either version 2,  or (at your option) any later ver- */
  18 /* sion.  GNAT is distributed in the hope that it will be useful, but WITH- */
  19 /* OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY */
  20 /* or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License */
  21 /* for  more details.  You should have  received  a copy of the GNU General */
  22 /* Public License  distributed with GNAT;  see file COPYING.  If not, write */
  23 /* to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, */
  24 /* MA 02111-1307, USA.                                                      */
  25 /*                                                                          */
  26 /* As a special exception,  if other files  instantiate  generics from this */
  27 /* unit, or you link  this unit with other files  to produce an executable, */
  28 /* this  unit  does not  by itself cause  the resulting  executable  to  be */
  29 /* covered  by the  GNU  General  Public  License.  This exception does not */
  30 /* however invalidate  any other reasons why  the executable file  might be */
  31 /* covered by the  GNU Public License.                                      */
  32 /*                                                                          */
  33 /* GNAT was originally developed  by the GNAT team at  New York University. */
  34 /* It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). */
  35 /*                                                                          */
  36 /*--------------------------------------------------------------------------*/
  37
  38    #define E_Void                           0
  39    #define E_Variable                       1
  40    #define E_Component                      2
  41    #define E_Constant                       3
  42    #define E_Discriminant                   4
  43    #define E_Loop_Parameter                 5
  44    #define E_In_Parameter                   6
  45    #define E_Out_Parameter                  7
  46    #define E_In_Out_Parameter               8
  47    #define E_Generic_In_Out_Parameter       9
  48    #define E_Generic_In_Parameter           10
  49    #define E_Named_Integer                  11
  50    #define E_Named_Real                     12
  51    #define E_Enumeration_Type               13
  52    #define E_Enumeration_Subtype            14
  53    #define E_Signed_Integer_Type            15
  54    #define E_Signed_Integer_Subtype         16
  55    #define E_Modular_Integer_Type           17
  56    #define E_Modular_Integer_Subtype        18
  57    #define E_Ordinary_Fixed_Point_Type      19
  58    #define E_Ordinary_Fixed_Point_Subtype   20
  59    #define E_Decimal_Fixed_Point_Type       21
  60    #define E_Decimal_Fixed_Point_Subtype    22
  61    #define E_Floating_Point_Type            23
  62    #define E_Floating_Point_Subtype         24
  63    #define E_Access_Type                    25
  64    #define E_Access_Subtype                 26
  65    #define E_Access_Attribute_Type          27
  66    #define E_Allocator_Type                 28
  67    #define E_General_Access_Type            29
  68    #define E_Access_Subprogram_Type         30
  69    #define E_Access_Protected_Subprogram_Type 31
  70    #define E_Anonymous_Access_Type          32
  71    #define E_Array_Type                     33
  72    #define E_Array_Subtype                  34
  73    #define E_String_Type                    35
  74    #define E_String_Subtype                 36
  75    #define E_String_Literal_Subtype         37
  76    #define E_Class_Wide_Type                38
  77    #define E_Class_Wide_Subtype             39
  78    #define E_Record_Type                    40
  79    #define E_Record_Subtype                 41
  80    #define E_Record_Type_With_Private       42
  81    #define E_Record_Subtype_With_Private    43
  82    #define E_Private_Type                   44
  83    #define E_Private_Subtype                45
  84    #define E_Limited_Private_Type           46
  85    #define E_Limited_Private_Subtype        47
  86    #define E_Incomplete_Type                48
  87    #define E_Task_Type                      49
  88    #define E_Task_Subtype                   50
  89    #define E_Protected_Type                 51
  90    #define E_Protected_Subtype              52
  91    #define E_Exception_Type                 53
  92    #define E_Subprogram_Type                54
  93    #define E_Enumeration_Literal            55
  94    #define E_Function                       56
  95    #define E_Operator                       57
  96    #define E_Procedure                      58
  97    #define E_Entry                          59
  98    #define E_Entry_Family                   60
  99    #define E_Block                          61
 100    #define E_Entry_Index_Parameter          62
 101    #define E_Exception                      63
 102    #define E_Generic_Function               64
 103    #define E_Generic_Package                65
 104    #define E_Generic_Procedure              66
 105    #define E_Label                          67
 106    #define E_Loop                           68
 107    #define E_Package                        69
 108    #define E_Package_Body                   70
 109    #define E_Protected_Object               71
 110    #define E_Protected_Body                 72
 111    #define E_Task_Body                      73
 112    #define E_Subprogram_Body                74
 113
 114    SUBTYPE (Access_Kind, Entity_Kind,
 115       E_Access_Type, E_Anonymous_Access_Type)
 116
 117    SUBTYPE (Array_Kind, Entity_Kind,
 118       E_Array_Type, E_String_Literal_Subtype)
 119
 120    SUBTYPE (Class_Wide_Kind, Entity_Kind,
 121       E_Class_Wide_Type, E_Class_Wide_Subtype)
 122
 123    SUBTYPE (Composite_Kind, Entity_Kind,
 124       E_Array_Type, E_Protected_Subtype)
 125
 126    SUBTYPE (Concurrent_Kind, Entity_Kind,
 127       E_Task_Type, E_Protected_Subtype)
 128
 129    SUBTYPE (Concurrent_Body_Kind, Entity_Kind,
 130       E_Protected_Body, E_Task_Body)
 131
 132    SUBTYPE (Decimal_Fixed_Point_Kind, Entity_Kind,
 133       E_Decimal_Fixed_Point_Type, E_Decimal_Fixed_Point_Subtype)
 134
 135    SUBTYPE (Digits_Kind, Entity_Kind,
 136       E_Decimal_Fixed_Point_Type, E_Floating_Point_Subtype)
 137
 138    SUBTYPE (Discrete_Kind, Entity_Kind,
 139       E_Enumeration_Type, E_Modular_Integer_Subtype)
 140
 141    SUBTYPE (Discrete_Or_Fixed_Point_Kind, Entity_Kind,
 142       E_Enumeration_Type, E_Decimal_Fixed_Point_Subtype)
 143
 144    SUBTYPE (Elementary_Kind, Entity_Kind,
 145       E_Enumeration_Type, E_Anonymous_Access_Type)
 146
 147    SUBTYPE (Enumeration_Kind, Entity_Kind,
 148       E_Enumeration_Type, E_Enumeration_Subtype)
 149
 150    SUBTYPE (Entry_Kind, Entity_Kind,
 151       E_Entry, E_Entry_Family)
 152
 153    SUBTYPE (Fixed_Point_Kind, Entity_Kind,
 154       E_Ordinary_Fixed_Point_Type, E_Decimal_Fixed_Point_Subtype)
 155
 156    SUBTYPE (Float_Kind, Entity_Kind,
 157       E_Floating_Point_Type, E_Floating_Point_Subtype)
 158
 159    SUBTYPE (Formal_Kind, Entity_Kind,
 160       E_In_Parameter, E_In_Out_Parameter)
 161
 162    SUBTYPE (Generic_Unit_Kind, Entity_Kind,
 163       E_Generic_Function, E_Generic_Procedure)
 164
 165    SUBTYPE (Incomplete_Or_Private_Kind, Entity_Kind,
 166       E_Record_Type_With_Private, E_Incomplete_Type)
 167
 168    SUBTYPE (Integer_Kind, Entity_Kind,
 169       E_Signed_Integer_Type, E_Modular_Integer_Subtype)
 170
 171    SUBTYPE (Modular_Integer_Kind, Entity_Kind,
 172       E_Modular_Integer_Type, E_Modular_Integer_Subtype)
 173
 174    SUBTYPE (Named_Kind, Entity_Kind,
 175       E_Named_Integer, E_Named_Real)
 176
 177    SUBTYPE (Numeric_Kind, Entity_Kind,
 178       E_Signed_Integer_Type, E_Floating_Point_Subtype)
 179
 180    SUBTYPE (Object_Kind, Entity_Kind,
 181       E_Variable, E_Generic_In_Parameter)
 182
 183    SUBTYPE (Ordinary_Fixed_Point_Kind, Entity_Kind,
 184       E_Ordinary_Fixed_Point_Type, E_Ordinary_Fixed_Point_Subtype)
 185
 186    SUBTYPE (Overloadable_Kind, Entity_Kind,
 187       E_Enumeration_Literal, E_Entry)
 188
 189    SUBTYPE (Private_Kind, Entity_Kind,
 190       E_Record_Type_With_Private, E_Limited_Private_Subtype)
 191
 192    SUBTYPE (Protected_Kind, Entity_Kind,
 193       E_Protected_Type, E_Protected_Subtype)
 194
 195    SUBTYPE (Real_Kind, Entity_Kind,
 196       E_Ordinary_Fixed_Point_Type, E_Floating_Point_Subtype)
 197
 198    SUBTYPE (Record_Kind, Entity_Kind,
 199       E_Class_Wide_Type, E_Record_Subtype_With_Private)
 200
 201    SUBTYPE (Scalar_Kind, Entity_Kind,
 202       E_Enumeration_Type, E_Floating_Point_Subtype)
 203
 204    SUBTYPE (String_Kind, Entity_Kind,
 205       E_String_Type, E_String_Literal_Subtype)
 206
 207    SUBTYPE (Subprogram_Kind, Entity_Kind,
 208       E_Function, E_Procedure)
 209
 210    SUBTYPE (Signed_Integer_Kind, Entity_Kind,
 211       E_Signed_Integer_Type, E_Signed_Integer_Subtype)
 212
 213    SUBTYPE (Task_Kind, Entity_Kind,
 214       E_Task_Type, E_Task_Subtype)
 215
 216    SUBTYPE (Type_Kind, Entity_Kind,
 217       E_Enumeration_Type, E_Subprogram_Type)
 218
 219    typedef char Component_Alignment_Kind;
 220       #define Calign_Default           0
 221       #define Calign_Component_Size    1
 222       #define Calign_Component_Size_4  2
 223       #define Calign_Storage_Unit      3
 224
 225    typedef Boolean B;
 226    typedef Component_Alignment_Kind C;
 227    typedef Entity_Id E;
 228    typedef Mechanism_Type M;
 229    typedef Node_Id N;
 230    typedef Uint U;
 231    typedef Ureal R;
 232    typedef Elist_Id L;
 233    typedef List_Id S;
 234
 235    INLINE L Accept_Address                     (E Id);
 236    INLINE E Access_Disp_Table                  (E Id);
 237    INLINE E Actual_Subtype                     (E Id);
 238    INLINE B Address_Taken                      (E Id);
 239    INLINE E Alias                              (E Id);
 240    INLINE U Alignment                          (E Id);
 241    INLINE E Associated_Final_Chain             (E Id);
 242    INLINE E Associated_Formal_Package          (E Id);
 243    INLINE N Associated_Node_For_Itype          (E Id);
 244    INLINE E Associated_Storage_Pool            (E Id);
 245    INLINE N Barrier_Function                   (E Id);
 246    INLINE N Block_Node                         (E Id);
 247    INLINE E Body_Entity                        (E Id);
 248    INLINE E CR_Discriminant                    (E Id);
 249    INLINE B C_Pass_By_Copy                     (E Id);
 250    INLINE E Class_Wide_Type                    (E Id);
 251    INLINE E Cloned_Subtype                     (E Id);
 252
 253    #define Component_Alignment einfo__component_alignment
 254    C Component_Alignment                (E Id);
 255
 256    INLINE N Component_Clause                   (E Id);
 257    INLINE U Component_Bit_Offset               (E Id);
 258    INLINE U Component_Size                     (E Id);
 259    INLINE E Component_Type                     (E Id);
 260    INLINE E Corresponding_Concurrent_Type      (E Id);
 261    INLINE E Corresponding_Discriminant         (E Id);
 262    INLINE E Corresponding_Equality             (E Id);
 263    INLINE E Corresponding_Record_Type          (E Id);
 264    INLINE E Corresponding_Remote_Type          (E Id);
 265    INLINE B Debug_Info_Off                     (E Id);
 266    INLINE E Debug_Renaming_Link                (E Id);
 267    INLINE E DTC_Entity                         (E Id);
 268    INLINE U DT_Entry_Count                     (E Id);
 269    INLINE U DT_Position                        (E Id);
 270    INLINE E Default_Expr_Function              (E Id);
 271    INLINE B Default_Expressions_Processed      (E Id);
 272    INLINE N Default_Value                      (E Id);
 273    INLINE B Delay_Cleanups                     (E Id);
 274    INLINE B Delay_Subprogram_Descriptors       (E Id);
 275    INLINE R Delta_Value                        (E Id);
 276    INLINE L Dependent_Instances                (E Id);
 277    INLINE B Depends_On_Private                 (E Id);
 278    INLINE U Digits_Value                       (E Id);
 279    INLINE E Directly_Designated_Type           (E Id);
 280    INLINE B Discard_Names                      (E Id);
 281    INLINE E Discriminal                        (E Id);
 282    INLINE E Discriminal_Link                   (E Id);
 283    INLINE E Discriminant_Checking_Func         (E Id);
 284    INLINE L Discriminant_Constraint            (E Id);
 285    INLINE N Discriminant_Default_Value         (E Id);
 286    INLINE U Discriminant_Number                (E Id);
 287    INLINE B Elaborate_All_Desirable            (E Id);
 288    INLINE E Elaboration_Entity                 (E Id);
 289    INLINE B Elaboration_Entity_Required        (E Id);
 290    INLINE E Enclosing_Scope                    (E Id);
 291    INLINE B Entry_Accepted                     (E Id);
 292    INLINE E Entry_Bodies_Array                 (E Id);
 293    INLINE E Entry_Cancel_Parameter             (E Id);
 294    INLINE E Entry_Component                    (E Id);
 295    INLINE E Entry_Formal                       (E Id);
 296    INLINE E Entry_Index_Constant               (E Id);
 297    INLINE E Entry_Index_Type                   (E Id);
 298    INLINE E Entry_Parameters_Type              (E Id);
 299    INLINE E Enum_Pos_To_Rep                    (E Id);
 300    INLINE U Enumeration_Pos                    (E Id);
 301    INLINE U Enumeration_Rep                    (E Id);
 302    INLINE N Enumeration_Rep_Expr               (E Id);
 303    INLINE E Equivalent_Type                    (E Id);
 304    INLINE U Esize                              (E Id);
 305    INLINE U Exception_Code                     (E Id);
 306    INLINE E Extra_Accessibility                (E Id);
 307    INLINE E Extra_Constrained                  (E Id);
 308    INLINE E Extra_Formal                       (E Id);
 309    INLINE E Finalization_Chain_Entity          (E Id);
 310
 311    #define Finalize_Storage_Only einfo__finalize_storage_only
 312    B Finalize_Storage_Only              (E Id);
 313
 314    INLINE E First_Entity                       (E Id);
 315    INLINE N First_Index                        (E Id);
 316    INLINE E First_Literal                      (E Id);
 317    INLINE E First_Optional_Parameter           (E Id);
 318    INLINE E First_Private_Entity               (E Id);
 319    INLINE N First_Rep_Item                     (E Id);
 320    INLINE N Freeze_Node                        (E Id);
 321    INLINE B From_With_Type                     (E Id);
 322    INLINE E Full_View                          (E Id);
 323    INLINE B Function_Returns_With_DSP          (E Id);
 324    INLINE L Generic_Renamings                  (E Id);
 325    INLINE L Girder_Constraint                  (E Id);
 326    INLINE S Handler_Records                    (E Id);
 327    INLINE B Has_Aliased_Components             (E Id);
 328    INLINE B Has_Alignment_Clause               (E Id);
 329    INLINE B Has_All_Calls_Remote               (E Id);
 330    INLINE B Has_Atomic_Components              (E Id);
 331    INLINE B Has_Biased_Representation          (E Id);
 332    INLINE B Has_Completion                     (E Id);
 333    INLINE B Has_Completion_In_Body             (E Id);
 334    INLINE B Has_Complex_Representation         (E Id);
 335    INLINE B Has_Component_Size_Clause          (E Id);
 336    INLINE B Has_Controlled_Component           (E Id);
 337    INLINE B Has_Controlling_Result             (E Id);
 338    INLINE B Has_Convention_Pragma              (E Id);
 339    INLINE B Has_Delayed_Freeze                 (E Id);
 340    INLINE B Has_Discriminants                  (E Id);
 341    INLINE B Has_Enumeration_Rep_Clause         (E Id);
 342    INLINE B Has_Exit                           (E Id);
 343    INLINE B Has_External_Tag_Rep_Clause        (E Id);
 344    INLINE B Has_Fully_Qualified_Name           (E Id);
 345    INLINE B Has_Gigi_Rep_Item                  (E Id);
 346    INLINE B Has_Homonym                        (E Id);
 347
 348    #define Has_Interrupt_Handler einfo__has_interrupt_handler
 349    B Has_Interrupt_Handler              (E Id);
 350
 351    INLINE B Has_Machine_Radix_Clause           (E Id);
 352    INLINE B Has_Master_Entity                  (E Id);
 353    INLINE B Has_Missing_Return                 (E Id);
 354    INLINE B Has_Nested_Block_With_Handler      (E Id);
 355    INLINE B Has_Forward_Instantiation          (E Id);
 356    INLINE B Has_Non_Standard_Rep               (E Id);
 357    INLINE B Has_Object_Size_Clause             (E Id);
 358    INLINE B Has_Per_Object_Constraint          (E Id);
 359    INLINE B Has_Pragma_Controlled              (E Id);
 360    INLINE B Has_Pragma_Elaborate_Body          (E Id);
 361    INLINE B Has_Pragma_Inline                  (E Id);
 362    INLINE B Has_Pragma_Pack                    (E Id);
 363    INLINE B Has_Primitive_Operations           (E Id);
 364    INLINE B Has_Qualified_Name                 (E Id);
 365    INLINE B Has_Record_Rep_Clause              (E Id);
 366    INLINE B Has_Recursive_Call                 (E Id);
 367    INLINE B Has_Size_Clause                    (E Id);
 368    INLINE B Has_Small_Clause                   (E Id);
 369    INLINE B Has_Specified_Layout               (E Id);
 370    INLINE B Has_Storage_Size_Clause            (E Id);
 371    INLINE B Has_Subprogram_Descriptor          (E Id);
 372    INLINE B Has_Task                           (E Id);
 373    INLINE B Has_Unchecked_Union                (E Id);
 374    INLINE B Has_Unknown_Discriminants          (E Id);
 375    INLINE B Has_Volatile_Components            (E Id);
 376    INLINE E Homonym                            (E Id);
 377    INLINE E Hiding_Loop_Variable               (E Id);
 378    INLINE B In_Package_Body                    (E Id);
 379    INLINE B In_Private_Part                    (E Id);
 380    INLINE B In_Use                             (E Id);
 381    INLINE L Inner_Instances                    (E Id);
 382    INLINE N Interface_Name                     (E Id);
 383    INLINE B Is_AST_Entry                       (E Id);
 384    INLINE B Is_Abstract                        (E Id);
 385    INLINE B Is_Access_Constant                 (E Id);
 386    INLINE B Is_Aliased                         (E Id);
 387    INLINE B Is_Asynchronous                    (E Id);
 388    INLINE B Is_Atomic                          (E Id);
 389    INLINE B Is_Bit_Packed_Array                (E Id);
 390    INLINE B Is_CPP_Class                       (E Id);
 391    INLINE B Is_Called                          (E Id);
 392    INLINE B Is_Character_Type                  (E Id);
 393    INLINE B Is_Child_Unit                      (E Id);
 394    INLINE B Is_Compilation_Unit                (E Id);
 395    INLINE B Is_Completely_Hidden               (E Id);
 396    INLINE B Is_Constr_Subt_For_UN_Aliased      (E Id);
 397    INLINE B Is_Constr_Subt_For_U_Nominal       (E Id);
 398    INLINE B Is_Constrained                     (E Id);
 399    INLINE B Is_Constructor                     (E Id);
 400    INLINE B Is_Controlled                      (E Id);
 401    INLINE B Is_Controlling_Formal              (E Id);
 402    INLINE B Is_Destructor                      (E Id);
 403    INLINE B Is_Discrim_SO_Function             (E Id);
 404    INLINE B Is_Dispatching_Operation           (E Id);
 405    INLINE B Is_Eliminated                      (E Id);
 406    INLINE B Is_Entry_Formal                    (E Id);
 407    INLINE B Is_Exported                        (E Id);
 408    INLINE B Is_First_Subtype                   (E Id);
 409    INLINE B Is_For_Access_Subtype              (E Id);
 410    INLINE B Is_Frozen                          (E Id);
 411    INLINE B Is_Generic_Instance                (E Id);
 412    INLINE B Is_Hidden                          (E Id);
 413    INLINE B Is_Hidden_Open_Scope               (E Id);
 414    INLINE B Is_Immediately_Visible             (E Id);
 415    INLINE B Is_Imported                        (E Id);
 416    INLINE B Is_Inlined                         (E Id);
 417    INLINE B Is_Instantiated                    (E Id);
 418    INLINE B Is_Internal                        (E Id);
 419    INLINE B Is_Interrupt_Handler               (E Id);
 420    INLINE B Is_Intrinsic_Subprogram            (E Id);
 421    INLINE B Is_Itype                           (E Id);
 422    INLINE B Is_Known_Valid                     (E Id);
 423    INLINE B Is_Limited_Composite               (E Id);
 424    INLINE B Is_Machine_Code_Subprogram         (E Id);
 425    INLINE B Is_Non_Static_Subtype              (E Id);
 426    INLINE B Is_Null_Init_Proc                  (E Id);
 427    INLINE B Is_Optional_Parameter              (E Id);
 428    INLINE B Is_Package_Body_Entity             (E Id);
 429    INLINE B Is_Packed                          (E Id);
 430    INLINE B Is_Packed_Array_Type               (E Id);
 431    INLINE B Is_Potentially_Use_Visible         (E Id);
 432    INLINE B Is_Preelaborated                   (E Id);
 433    INLINE B Is_Private_Composite               (E Id);
 434    INLINE B Is_Private_Descendant              (E Id);
 435    INLINE B Is_Psected                         (E Id);
 436    INLINE B Is_Public                          (E Id);
 437    INLINE B Is_Pure                            (E Id);
 438    INLINE B Is_Remote_Call_Interface           (E Id);
 439    INLINE B Is_Remote_Types                    (E Id);
 440    INLINE B Is_Renaming_Of_Object              (E Id);
 441    INLINE B Is_Shared_Passive                  (E Id);
 442    INLINE B Is_Statically_Allocated            (E Id);
 443    INLINE B Is_Tag                             (E Id);
 444    INLINE B Is_Tagged_Type                     (E Id);
 445    INLINE B Is_True_Constant                   (E Id);
 446    INLINE B Is_Unchecked_Union                 (E Id);
 447    INLINE B Is_Unsigned_Type                   (E Id);
 448    INLINE B Is_VMS_Exception                   (E Id);
 449    INLINE B Is_Valued_Procedure                (E Id);
 450    INLINE B Is_Visible_Child_Unit              (E Id);
 451    INLINE B Is_Volatile                        (E Id);
 452
 453    #define Is_Wrapper_Package einfo__is_wrapper_package
 454    B Is_Wrapper_Package                 (E Id);
 455
 456    INLINE E Last_Entity                        (E Id);
 457    INLINE E Lit_Indexes                        (E Id);
 458    INLINE E Lit_Strings                        (E Id);
 459    INLINE B Machine_Radix_10                   (E Id);
 460    INLINE E Master_Id                          (E Id);
 461    INLINE B Materialize_Entity                 (E Id);
 462    INLINE M Mechanism                          (E Id);
 463    INLINE U Modulus                            (E Id);
 464    INLINE B Needs_Debug_Info                   (E Id);
 465    INLINE B Needs_No_Actuals                   (E Id);
 466    INLINE E Next_Inlined_Subprogram            (E Id);
 467    INLINE B No_Pool_Assigned                   (E Id);
 468    INLINE B No_Return                          (E Id);
 469    INLINE B Non_Binary_Modulus                 (E Id);
 470    INLINE B Nonzero_Is_True                    (E Id);
 471    INLINE U Normalized_First_Bit               (E Id);
 472    INLINE U Normalized_Position                (E Id);
 473    INLINE U Normalized_Position_Max            (E Id);
 474    INLINE B Not_Source_Assigned                (E Id);
 475    INLINE E Object_Ref                         (E Id);
 476    INLINE E Original_Record_Component          (E Id);
 477    INLINE E Packed_Array_Type                  (E Id);
 478    INLINE E Parent_Subtype                     (E Id);
 479    INLINE L Primitive_Operations               (E Id);
 480    INLINE E Prival                             (E Id);
 481    INLINE L Privals_Chain                      (E Id);
 482    INLINE L Private_Dependents                 (E Id);
 483    INLINE N Private_View                       (E Id);
 484    INLINE E Protected_Body_Subprogram          (E Id);
 485    INLINE E Protected_Formal                   (E Id);
 486    INLINE E Protected_Operation                (E Id);
 487    INLINE U RM_Size                            (E Id);
 488    INLINE B Reachable                          (E Id);
 489    INLINE B Referenced                         (E Id);
 490    INLINE N Referenced_Object                  (E Id);
 491    INLINE N Register_Exception_Call            (E Id);
 492    INLINE E Related_Array_Object               (E Id);
 493    INLINE E Related_Instance                   (E Id);
 494    INLINE N Renamed_Entity                     (E Id);
 495    INLINE N Renamed_Object                     (E Id);
 496    INLINE U Renaming_Map                       (E Id);
 497    INLINE B Return_Present                     (E Id);
 498    INLINE B Returns_By_Ref                     (E Id);
 499    INLINE B Reverse_Bit_Order                  (E Id);
 500    INLINE N Scalar_Range                       (E Id);
 501    INLINE U Scale_Value                        (E Id);
 502    INLINE U Scope_Depth_Value                  (E Id);
 503    INLINE B Sec_Stack_Needed_For_Return        (E Id);
 504    INLINE S Shadow_Entities                    (E Id);
 505    INLINE E Shared_Var_Assign_Proc             (E Id);
 506    INLINE E Shared_Var_Read_Proc               (E Id);
 507    INLINE N Size_Check_Code                    (E Id);
 508    INLINE B Size_Known_At_Compile_Time         (E Id);
 509    INLINE B Size_Depends_On_Discriminant       (E Id);
 510    INLINE R Small_Value                        (E Id);
 511    INLINE E Spec_Entity                        (E Id);
 512    INLINE E Storage_Size_Variable              (E Id);
 513    INLINE B Strict_Alignment                   (E Id);
 514    INLINE U String_Literal_Length              (E Id);
 515    INLINE N String_Literal_Low_Bound           (E Id);
 516    INLINE B Suppress_Access_Checks             (E Id);
 517    INLINE B Suppress_Accessibility_Checks      (E Id);
 518    INLINE B Suppress_Discriminant_Checks       (E Id);
 519    INLINE B Suppress_Division_Checks           (E Id);
 520    INLINE B Suppress_Elaboration_Checks        (E Id);
 521    INLINE B Suppress_Elaboration_Warnings      (E Id);
 522    INLINE B Suppress_Index_Checks              (E Id);
 523    INLINE B Suppress_Init_Proc                 (E Id);
 524    INLINE B Suppress_Length_Checks             (E Id);
 525    INLINE B Suppress_Overflow_Checks           (E Id);
 526    INLINE B Suppress_Range_Checks              (E Id);
 527    INLINE B Suppress_Storage_Checks            (E Id);
 528    INLINE B Suppress_Style_Checks              (E Id);
 529    INLINE B Suppress_Tag_Checks                (E Id);
 530    INLINE E Underlying_Full_View               (E Id);
 531    INLINE N Unset_Reference                    (E Id);
 532    INLINE B Uses_Sec_Stack                     (E Id);
 533    INLINE B Vax_Float                          (E Id);
 534    INLINE B Warnings_Off                       (E Id);
 535    INLINE B Is_Access_Type                     (E Id);
 536    INLINE B Is_Array_Type                      (E Id);
 537    INLINE B Is_Class_Wide_Type                 (E Id);
 538    INLINE B Is_Composite_Type                  (E Id);
 539    INLINE B Is_Concurrent_Body                 (E Id);
 540    INLINE B Is_Concurrent_Record_Type          (E Id);
 541    INLINE B Is_Concurrent_Type                 (E Id);
 542    INLINE B Is_Decimal_Fixed_Point_Type        (E Id);
 543    INLINE B Is_Digits_Type                     (E Id);
 544    INLINE B Is_Discrete_Or_Fixed_Point_Type    (E Id);
 545    INLINE B Is_Discrete_Type                   (E Id);
 546    INLINE B Is_Elementary_Type                 (E Id);
 547    INLINE B Is_Entry                           (E Id);
 548    INLINE B Is_Enumeration_Type                (E Id);
 549    INLINE B Is_Fixed_Point_Type                (E Id);
 550    INLINE B Is_Floating_Point_Type             (E Id);
 551    INLINE B Is_Formal                          (E Id);
 552    INLINE B Is_Formal_Subprogram               (E Id);
 553    INLINE B Is_Generic_Actual_Type             (E Id);
 554    INLINE B Is_Generic_Type                    (E Id);
 555    INLINE B Is_Generic_Unit                    (E Id);
 556    INLINE B Is_Incomplete_Or_Private_Type      (E Id);
 557    INLINE B Is_Integer_Type                    (E Id);
 558    INLINE B Is_Limited_Record                  (E Id);
 559    INLINE B Is_Modular_Integer_Type            (E Id);
 560    INLINE B Is_Named_Number                    (E Id);
 561    INLINE B Is_Numeric_Type                    (E Id);
 562    INLINE B Is_Object                          (E Id);
 563    INLINE B Is_Ordinary_Fixed_Point_Type       (E Id);
 564    INLINE B Is_Overloadable                    (E Id);
 565    INLINE B Is_Private_Type                    (E Id);
 566    INLINE B Is_Protected_Type                  (E Id);
 567    INLINE B Is_Real_Type                       (E Id);
 568    INLINE B Is_Record_Type                     (E Id);
 569    INLINE B Is_Scalar_Type                     (E Id);
 570    INLINE B Is_Signed_Integer_Type             (E Id);
 571    INLINE B Is_Subprogram                      (E Id);
 572    INLINE B Is_Task_Type                       (E Id);
 573    INLINE B Is_Type                            (E Id);
 574
 575    #define Address_Clause einfo__address_clause
 576    N Address_Clause                     (E Id);
 577
 578    #define Alignment_Clause einfo__alignment_clause
 579    N Alignment_Clause                   (E Id);
 580
 581    #define Ancestor_Subtype einfo__ancestor_subtype
 582    E Ancestor_Subtype                   (E Id);
 583
 584    #define Base_Type einfo__base_type
 585    E Base_Type                          (E Id);
 586
 587    #define Constant_Value einfo__constant_value
 588    N Constant_Value                     (E Id);
 589
 590    #define Declaration_Node einfo__declaration_node
 591    N Declaration_Node                   (E Id);
 592
 593    #define Designated_Type einfo__designated_type
 594    E Designated_Type                    (E Id);
 595
 596    #define Enclosing_Dynamic_Scope einfo__enclosing_dynamic_scope
 597    E Enclosing_Dynamic_Scope            (E Id);
 598
 599    #define First_Component einfo__first_component
 600    E First_Component                    (E Id);
 601
 602    #define First_Discriminant einfo__first_discriminant
 603    E First_Discriminant                 (E Id);
 604
 605    #define First_Formal einfo__first_formal
 606    E First_Formal                       (E Id);
 607
 608    #define First_Girder_Discriminant einfo__first_girder_discriminant
 609    E First_Girder_Discriminant          (E Id);
 610
 611    #define First_Subtype einfo__first_subtype
 612    E First_Subtype                      (E Id);
 613
 614    #define Has_Attach_Handler einfo__has_attach_handler
 615    B Has_Attach_Handler                 (E Id);
 616
 617    #define Has_Entries einfo__has_entries
 618    B Has_Entries                        (E Id);
 619
 620    #define Has_Foreign_Convention einfo__has_foreign_convention
 621    B Has_Foreign_Convention             (E Id);
 622
 623    #define Has_Private_Ancestor einfo__has_private_ancestor
 624    B Has_Private_Ancestor               (E Id);
 625
 626    INLINE B Has_Private_Declaration            (E Id);
 627
 628    #define Implementation_Base_Type einfo__implementation_base_type
 629    E Implementation_Base_Type           (E Id);
 630
 631    #define Is_Always_Inlined einfo__is_always_inlined
 632    B Is_Always_Inlined                  (E Id);
 633
 634    #define Is_Boolean_Type einfo__is_boolean_type
 635    B Is_Boolean_Type                    (E Id);
 636
 637    #define Is_By_Copy_Type einfo__is_by_copy_type
 638    B Is_By_Copy_Type                    (E Id);
 639
 640    #define Is_By_Reference_Type einfo__is_by_reference_type
 641    B Is_By_Reference_Type               (E Id);
 642
 643    #define Is_Derived_Type einfo__is_derived_type
 644    B Is_Derived_Type                    (E Id);
 645
 646    #define Is_Dynamic_Scope einfo__is_dynamic_scope
 647    B Is_Dynamic_Scope                   (E Id);
 648
 649    #define Is_Indefinite_Subtype einfo__is_indefinite_subtype
 650    B Is_Indefinite_Subtype              (E Id);
 651
 652    #define Is_Limited_Type einfo__is_limited_type
 653    B Is_Limited_Type                    (E Id);
 654
 655    #define Is_Package einfo__is_package
 656    B Is_Package                         (E Id);
 657
 658    #define Is_Protected_Private einfo__is_protected_private
 659    B Is_Protected_Private               (E Id);
 660
 661    #define Is_Protected_Record_Type einfo__is_protected_record_type
 662    B Is_Protected_Record_Type           (E Id);
 663
 664    #define Is_Return_By_Reference_Type einfo__is_return_by_reference_type
 665    B Is_Return_By_Reference_Type        (E Id);
 666
 667    #define Is_String_Type einfo__is_string_type
 668    B Is_String_Type                     (E Id);
 669
 670    #define Is_Task_Record_Type einfo__is_task_record_type
 671    B Is_Task_Record_Type                (E Id);
 672
 673    #define Next_Component einfo__next_component
 674    E Next_Component                     (E Id);
 675
 676    #define Next_Discriminant einfo__next_discriminant
 677    E Next_Discriminant                  (E Id);
 678
 679    #define Next_Formal einfo__next_formal
 680    E Next_Formal                        (E Id);
 681
 682    #define Next_Formal_With_Extras einfo__next_formal_with_extras
 683    E Next_Formal_With_Extras            (E Id);
 684
 685    #define Next_Girder_Discriminant einfo__next_girder_discriminant
 686    E Next_Girder_Discriminant           (E Id);
 687
 688    INLINE E Next_Literal                       (E Id);
 689
 690    #define Number_Dimensions einfo__number_dimensions
 691    Pos Number_Dimensions                  (E Id);
 692
 693    #define Number_Discriminants einfo__number_discriminants
 694    Pos Number_Discriminants               (E Id);
 695
 696    #define Number_Entries einfo__number_entries
 697    Nat Number_Entries                     (E Id);
 698
 699    #define Number_Formals einfo__number_formals
 700    Pos Number_Formals                     (E Id);
 701
 702    INLINE Formal_Kind Parameter_Mode                     (E Id);
 703
 704    #define Root_Type einfo__root_type
 705    E Root_Type                          (E Id);
 706
 707    #define Scope_Depth_Set einfo__scope_depth_set
 708    B Scope_Depth_Set                    (E Id);
 709
 710    #define Size_Clause einfo__size_clause
 711    N Size_Clause                        (E Id);
 712
 713    #define Tag_Component einfo__tag_component
 714    E Tag_Component                      (E Id);
 715
 716    #define Type_High_Bound einfo__type_high_bound
 717    N Type_High_Bound                    (E Id);
 718
 719    #define Type_Low_Bound einfo__type_low_bound
 720    N Type_Low_Bound                     (E Id);
 721
 722    #define Underlying_Type einfo__underlying_type
 723    E Underlying_Type                    (E Id);
 724
 725    INLINE B Known_Alignment                       (Entity_Id E);
 726    INLINE B Known_Component_Bit_Offset            (Entity_Id E);
 727    INLINE B Known_Component_Size                  (Entity_Id E);
 728    INLINE B Known_Esize                           (Entity_Id E);
 729
 730    #define Known_Normalized_First_Bit einfo__known_normalized_first_bit
 731    B Known_Normalized_First_Bit            (Entity_Id E);
 732
 733    #define Known_Normalized_Position einfo__known_normalized_position
 734    B Known_Normalized_Position             (Entity_Id E);
 735
 736    #define Known_Normalized_Position_Max einfo__known_normalized_position_max
 737    B Known_Normalized_Position_Max         (Entity_Id E);
 738
 739    #define Known_RM_Size einfo__known_rm_size
 740    B Known_RM_Size                         (Entity_Id E);
 741
 742    #define Known_Static_Component_Bit_Offset einfo__known_static_component_bit_offset
 743    B Known_Static_Component_Bit_Offset     (Entity_Id E);
 744
 745    INLINE B Known_Static_Component_Size           (Entity_Id E);
 746    INLINE B Known_Static_Esize                    (Entity_Id E);
 747
 748    #define Known_Static_Normalized_Position einfo__known_static_normalized_position
 749    B Known_Static_Normalized_Position      (Entity_Id E);
 750
 751    #define Known_Static_Normalized_Position_Max einfo__known_static_normalized_position_max
 752    B Known_Static_Normalized_Position_Max  (Entity_Id E);
 753
 754    #define Known_Static_RM_Size einfo__known_static_rm_size
 755    B Known_Static_RM_Size                  (Entity_Id E);
 756
 757    INLINE B Unknown_Alignment                     (Entity_Id E);
 758    INLINE B Unknown_Component_Bit_Offset          (Entity_Id E);
 759    INLINE B Unknown_Component_Size                (Entity_Id E);
 760    INLINE B Unknown_Esize                         (Entity_Id E);
 761
 762    #define Unknown_Normalized_First_Bit einfo__unknown_normalized_first_bit
 763    B Unknown_Normalized_First_Bit          (Entity_Id E);
 764
 765    #define Unknown_Normalized_Position einfo__unknown_normalized_position
 766    B Unknown_Normalized_Position           (Entity_Id E);
 767
 768    #define Unknown_Normalized_Position_Max einfo__unknown_normalized_position_max
 769    B Unknown_Normalized_Position_Max       (Entity_Id E);
 770
 771    #define Unknown_RM_Size einfo__unknown_rm_size
 772    B Unknown_RM_Size                       (Entity_Id E);
 773
 774
 775    INLINE L Accept_Address (E Id)
 776       { return Elist21 (Id); }
 777
 778    INLINE E Access_Disp_Table (E Id)
 779       { return Node16 (Base_Type (Underlying_Type (Base_Type (Id)))); }
 780
 781    INLINE E Actual_Subtype (E Id)
 782       { return Node17 (Id); }
 783
 784    INLINE B Address_Taken (E Id)
 785       { return Flag104 (Id); }
 786
 787    INLINE E Alias (E Id)
 788       { return Node18 (Id); }
 789
 790    INLINE U Alignment (E Id)
 791       { return Uint14 (Id); }
 792
 793    INLINE E Associated_Final_Chain (E Id)
 794       { return Node23 (Id); }
 795
 796    INLINE E Associated_Formal_Package (E Id)
 797       { return Node12 (Id); }
 798
 799    INLINE N Associated_Node_For_Itype (E Id)
 800       { return Node8 (Id); }
 801
 802    INLINE E Associated_Storage_Pool (E Id)
 803       { return Node22 (Id); }
 804
 805    INLINE N Barrier_Function (E Id)
 806       { return Node12 (Id); }
 807
 808    INLINE N Block_Node (E Id)
 809       { return Node11 (Id); }
 810
 811    INLINE E Body_Entity (E Id)
 812       { return Node19 (Id); }
 813
 814    INLINE B C_Pass_By_Copy (E Id)
 815       { return Flag125 (Implementation_Base_Type (Id)); }
 816
 817    INLINE E Class_Wide_Type (E Id)
 818       { return Node9 (Id); }
 819
 820    INLINE E Cloned_Subtype (E Id)
 821       { return Node16 (Id); }
 822
 823    INLINE U Component_Bit_Offset (E Id)
 824       { return Uint11 (Id); }
 825
 826    INLINE N Component_Clause (E Id)
 827       { return Node13 (Id); }
 828
 829    INLINE U Component_Size (E Id)
 830       { return Uint22 (Implementation_Base_Type (Id)); }
 831
 832    INLINE E Component_Type (E Id)
 833       { return Node20 (Implementation_Base_Type (Id)); }
 834
 835    INLINE E Corresponding_Concurrent_Type (E Id)
 836       { return Node18 (Id); }
 837
 838    INLINE E Corresponding_Discriminant (E Id)
 839       { return Node19 (Id); }
 840
 841    INLINE E Corresponding_Equality (E Id)
 842       { return Node13 (Id); }
 843
 844    INLINE E Corresponding_Record_Type (E Id)
 845       { return Node18 (Id); }
 846
 847    INLINE E Corresponding_Remote_Type (E Id)
 848       { return Node22 (Id); }
 849
 850    INLINE E CR_Discriminant (E Id)
 851       { return Node23 (Id); }
 852
 853    INLINE B Debug_Info_Off (E Id)
 854       { return Flag166 (Id); }
 855
 856    INLINE E Debug_Renaming_Link (E Id)
 857       { return Node13 (Id); }
 858
 859    INLINE E Default_Expr_Function (E Id)
 860       { return Node21 (Id); }
 861
 862    INLINE B Default_Expressions_Processed (E Id)
 863       { return Flag108 (Id); }
 864
 865    INLINE N Default_Value (E Id)
 866       { return Node20 (Id); }
 867
 868    INLINE B Delay_Cleanups (E Id)
 869       { return Flag114 (Id); }
 870
 871    INLINE B Delay_Subprogram_Descriptors (E Id)
 872       { return Flag50 (Id); }
 873
 874    INLINE R Delta_Value (E Id)
 875       { return Ureal18 (Id); }
 876
 877    INLINE L Dependent_Instances (E Id)
 878       { return Elist8 (Id); }
 879
 880    INLINE B Depends_On_Private (E Id)
 881       { return Flag14 (Id); }
 882
 883    INLINE U Digits_Value (E Id)
 884       { return Uint17 (Id); }
 885
 886    INLINE E Directly_Designated_Type (E Id)
 887       { return Node20 (Id); }
 888
 889    INLINE B Discard_Names (E Id)
 890       { return Flag88 (Id); }
 891
 892    INLINE E Discriminal (E Id)
 893       { return Node17 (Id); }
 894
 895    INLINE N Discriminal_Link (E Id)
 896       { return Node10 (Id); }
 897
 898    INLINE E Discriminant_Checking_Func (E Id)
 899       { return Node20 (Id); }
 900
 901    INLINE L Discriminant_Constraint (E Id)
 902       { return Elist21 (Id); }
 903
 904    INLINE N Discriminant_Default_Value (E Id)
 905       { return Node20 (Id); }
 906
 907    INLINE U Discriminant_Number (E Id)
 908       { return Uint15 (Id); }
 909
 910    INLINE U DT_Entry_Count (E Id)
 911       { return Uint15 (Id); }
 912
 913    INLINE U DT_Position (E Id)
 914       { return Uint15 (Id); }
 915
 916    INLINE E DTC_Entity (E Id)
 917       { return Node16 (Id); }
 918
 919    INLINE B Elaborate_All_Desirable (E Id)
 920       { return Flag146 (Id); }
 921
 922    INLINE E Elaboration_Entity (E Id)
 923       { return Node13 (Id); }
 924
 925    INLINE B Elaboration_Entity_Required (E Id)
 926       { return Flag174 (Id); }
 927
 928    INLINE E Enclosing_Scope (E Id)
 929       { return Node18 (Id); }
 930
 931    INLINE B Entry_Accepted (E Id)
 932       { return Flag152 (Id); }
 933
 934    INLINE E Entry_Bodies_Array (E Id)
 935       { return Node15 (Id); }
 936
 937    INLINE E Entry_Cancel_Parameter (E Id)
 938       { return Node23 (Id); }
 939
 940    INLINE E Entry_Component (E Id)
 941       { return Node11 (Id); }
 942
 943    INLINE E Entry_Formal (E Id)
 944       { return Node16 (Id); }
 945
 946    INLINE N Entry_Index_Constant (E Id)
 947       { return Node18 (Id); }
 948
 949    INLINE E Entry_Parameters_Type (E Id)
 950       { return Node15 (Id); }
 951
 952    INLINE E Enum_Pos_To_Rep (E Id)
 953       { return Node23 (Id); }
 954
 955    INLINE Uint Enumeration_Pos (E Id)
 956       { return Uint11 (Id); }
 957
 958    INLINE U Enumeration_Rep (E Id)
 959       { return Uint12 (Id); }
 960
 961    INLINE N Enumeration_Rep_Expr (E Id)
 962       { return Node22 (Id); }
 963
 964    INLINE E Equivalent_Type (E Id)
 965       { return Node18 (Id); }
 966
 967    INLINE Uint Esize (E Id)
 968       { return Uint12 (Id); }
 969
 970    INLINE Uint Exception_Code (E Id)
 971       { return Uint22 (Id); }
 972
 973    INLINE E Extra_Accessibility (E Id)
 974       { return Node13 (Id); }
 975
 976    INLINE E Extra_Constrained (E Id)
 977       { return Node23 (Id); }
 978
 979    INLINE E Extra_Formal (E Id)
 980       { return Node15 (Id); }
 981
 982    INLINE E Finalization_Chain_Entity (E Id)
 983       { return Node19 (Id); }
 984
 985    INLINE E First_Entity (E Id)
 986       { return Node17 (Id); }
 987
 988    INLINE N First_Index (E Id)
 989       { return Node17 (Id); }
 990
 991    INLINE E First_Literal (E Id)
 992       { return Node17 (Id); }
 993
 994    INLINE E First_Optional_Parameter (E Id)
 995       { return Node14 (Id); }
 996
 997    INLINE E First_Private_Entity (E Id)
 998       { return Node16 (Id); }
 999
1000    INLINE E First_Rep_Item (E Id)
1001       { return Node6 (Id); }
1002
1003    INLINE N Freeze_Node (E Id)
1004       { return Node7 (Id); }
1005
1006    INLINE B From_With_Type (E Id)
1007       { return Flag159 (Id); }
1008
1009    INLINE E Full_View (E Id)
1010       { return Node11 (Id); }
1011
1012    INLINE B Function_Returns_With_DSP (E Id)
1013       { return Flag169 (Id); }
1014
1015    INLINE L Generic_Renamings (E Id)
1016       { return Elist23 (Id); }
1017
1018    INLINE L Girder_Constraint (E Id)
1019       { return Elist23 (Id); }
1020
1021    INLINE S Handler_Records (E Id)
1022       { return List10 (Id); }
1023
1024    INLINE B Has_Aliased_Components (E Id)
1025       { return Flag135 (Implementation_Base_Type (Id)); }
1026
1027    INLINE B Has_Alignment_Clause (E Id)
1028       { return Flag46 (Id); }
1029
1030    INLINE B Has_All_Calls_Remote (E Id)
1031       { return Flag79 (Id); }
1032
1033    INLINE B Has_Atomic_Components (E Id)
1034       { return Flag86 (Implementation_Base_Type (Id)); }
1035
1036    INLINE B Has_Biased_Representation (E Id)
1037       { return Flag139 (Id); }
1038
1039    INLINE B Has_Completion (E Id)
1040       { return Flag26 (Id); }
1041
1042    INLINE B Has_Completion_In_Body (E Id)
1043       { return Flag71 (Id); }
1044
1045    INLINE B Has_Complex_Representation (E Id)
1046       { return Flag140 (Implementation_Base_Type (Id)); }
1047
1048    INLINE B Has_Component_Size_Clause (E Id)
1049       { return Flag68 (Implementation_Base_Type (Id)); }
1050
1051    INLINE B Has_Controlled_Component (E Id)
1052       { return Flag43 (Base_Type (Id)); }
1053
1054    INLINE B Has_Controlling_Result (E Id)
1055       { return Flag98 (Id); }
1056
1057    INLINE B Has_Convention_Pragma (E Id)
1058       { return Flag119 (Id); }
1059
1060    INLINE B Has_Delayed_Freeze (E Id)
1061       { return Flag18 (Id); }
1062
1063    INLINE B Has_Discriminants (E Id)
1064       { return Flag5 (Id); }
1065
1066    INLINE B Has_Enumeration_Rep_Clause (E Id)
1067       { return Flag66 (Id); }
1068
1069    INLINE B Has_Exit (E Id)
1070       { return Flag47 (Id); }
1071
1072    INLINE B Has_External_Tag_Rep_Clause (E Id)
1073       { return Flag110 (Id); }
1074
1075    INLINE B Has_Forward_Instantiation (E Id)
1076       { return Flag175 (Id); }
1077
1078    INLINE B Has_Fully_Qualified_Name (E Id)
1079       { return Flag173 (Id); }
1080
1081    INLINE B Has_Gigi_Rep_Item (E Id)
1082       { return Flag82 (Id); }
1083
1084    INLINE B Has_Homonym (E Id)
1085       { return Flag56 (Id); }
1086
1087    INLINE B Has_Machine_Radix_Clause (E Id)
1088       { return Flag83 (Id); }
1089
1090    INLINE B Has_Master_Entity (E Id)
1091       { return Flag21 (Id); }
1092
1093    INLINE B Has_Missing_Return (E Id)
1094       { return Flag142 (Id); }
1095
1096    INLINE B Has_Nested_Block_With_Handler (E Id)
1097       { return Flag101 (Id); }
1098
1099    INLINE B Has_Non_Standard_Rep (E Id)
1100       { return Flag75 (Implementation_Base_Type (Id)); }
1101
1102    INLINE B Has_Object_Size_Clause (E Id)
1103       { return Flag172 (Id); }
1104
1105    INLINE B Has_Per_Object_Constraint (E Id)
1106       { return Flag154 (Id); }
1107
1108    INLINE B Has_Pragma_Controlled (E Id)
1109       { return Flag27 (Implementation_Base_Type (Id)); }
1110
1111    INLINE B Has_Pragma_Elaborate_Body (E Id)
1112       { return Flag150 (Id); }
1113
1114    INLINE B Has_Pragma_Inline (E Id)
1115       { return Flag157 (Id); }
1116
1117    INLINE B Has_Pragma_Pack (E Id)
1118       { return Flag121 (Implementation_Base_Type (Id)); }
1119
1120    INLINE B Has_Primitive_Operations (E Id)
1121       { return Flag120 (Base_Type (Id)); }
1122
1123    INLINE B Has_Private_Declaration (E Id)
1124       { return Flag155 (Id); }
1125
1126    INLINE B Has_Qualified_Name (E Id)
1127       { return Flag161 (Id); }
1128
1129    INLINE B Has_Record_Rep_Clause (E Id)
1130       { return Flag65 (Id); }
1131
1132    INLINE B Has_Recursive_Call (E Id)
1133       { return Flag143 (Id); }
1134
1135    INLINE B Has_Size_Clause (E Id)
1136       { return Flag29 (Id); }
1137
1138    INLINE B Has_Small_Clause (E Id)
1139       { return Flag67 (Id); }
1140
1141    INLINE B Has_Specified_Layout (E Id)
1142       { return Flag100 (Id); }
1143
1144    INLINE B Has_Storage_Size_Clause (E Id)
1145       { return Flag23 (Implementation_Base_Type (Id)); }
1146
1147    INLINE B Has_Subprogram_Descriptor (E Id)
1148       { return Flag93 (Id); }
1149
1150    INLINE B Has_Task (E Id)
1151       { return Flag30 (Base_Type (Id)); }
1152
1153    INLINE B Has_Unchecked_Union (E Id)
1154       { return Flag123 (Base_Type (Id)); }
1155
1156    INLINE B Has_Unknown_Discriminants (E Id)
1157       { return Flag72 (Id); }
1158
1159    INLINE B Has_Volatile_Components (E Id)
1160       { return Flag87 (Implementation_Base_Type (Id)); }
1161
1162    INLINE E Hiding_Loop_Variable (E Id)
1163       { return Node8 (Id); }
1164
1165    INLINE E Homonym (E Id)
1166       { return Node4 (Id); }
1167
1168    INLINE B In_Package_Body (E Id)
1169       { return Flag48 (Id); }
1170
1171    INLINE B In_Private_Part (E Id)
1172       { return Flag45 (Id); }
1173
1174    INLINE B In_Use (E Id)
1175       { return Flag8 (Id); }
1176
1177    INLINE L Inner_Instances (E Id)
1178       { return Elist23 (Id); }
1179
1180    INLINE N Interface_Name (E Id)
1181       { return Node21 (Id); }
1182
1183    INLINE B Is_Abstract (E Id)
1184       { return Flag19 (Id); }
1185
1186    INLINE B Is_Access_Constant (E Id)
1187       { return Flag69 (Id); }
1188
1189    INLINE B Is_Aliased (E Id)
1190       { return Flag15 (Id); }
1191
1192    INLINE B Is_AST_Entry (E Id)
1193       { return Flag132 (Id); }
1194
1195    INLINE B Is_Asynchronous (E Id)
1196       { return Flag81 (Id); }
1197
1198    INLINE B Is_Atomic (E Id)
1199       { return Flag85 (Id); }
1200
1201    INLINE B Is_Bit_Packed_Array (E Id)
1202       { return Flag122 (Implementation_Base_Type (Id)); }
1203
1204    INLINE B Is_Called (E Id)
1205       { return Flag102 (Id); }
1206
1207    INLINE B Is_Character_Type (E Id)
1208       { return Flag63 (Id); }
1209
1210    INLINE B Is_Child_Unit (E Id)
1211       { return Flag73 (Id); }
1212
1213    INLINE B Is_Compilation_Unit (E Id)
1214       { return Flag149 (Id); }
1215
1216    INLINE B Is_Completely_Hidden (E Id)
1217       { return Flag103 (Id); }
1218
1219    INLINE B Is_Constr_Subt_For_U_Nominal (E Id)
1220       { return Flag80 (Id); }
1221
1222    INLINE B Is_Constr_Subt_For_UN_Aliased (E Id)
1223       { return Flag141 (Id); }
1224
1225    INLINE B Is_Constrained (E Id)
1226       { return Flag12 (Id); }
1227
1228    INLINE B Is_Constructor (E Id)
1229       { return Flag76 (Id); }
1230
1231    INLINE B Is_Controlled (E Id)
1232       { return Flag42 (Base_Type (Id)); }
1233
1234    INLINE B Is_Controlling_Formal (E Id)
1235       { return Flag97 (Id); }
1236
1237    INLINE B Is_CPP_Class (E Id)
1238       { return Flag74 (Id); }
1239
1240    INLINE B Is_Destructor (E Id)
1241       { return Flag77 (Id); }
1242
1243    INLINE B Is_Discrim_SO_Function (E Id)
1244       { return Flag176 (Id); }
1245
1246    INLINE B Is_Dispatching_Operation (E Id)
1247       { return Flag6 (Id); }
1248
1249    INLINE B Is_Eliminated (E Id)
1250       { return Flag124 (Id); }
1251
1252    INLINE B Is_Entry_Formal (E Id)
1253       { return Flag52 (Id); }
1254
1255    INLINE B Is_Exported (E Id)
1256       { return Flag99 (Id); }
1257
1258    INLINE B Is_First_Subtype (E Id)
1259       { return Flag70 (Id); }
1260
1261    INLINE B Is_For_Access_Subtype (E Id)
1262       { return Flag118 (Id); }
1263
1264    INLINE B Is_Formal_Subprogram (E Id)
1265       { return Flag111 (Id); }
1266
1267    INLINE B Is_Frozen (E Id)
1268       { return Flag4 (Id); }
1269
1270    INLINE B Is_Generic_Actual_Type (E Id)
1271       { return Flag94 (Id); }
1272
1273    INLINE B Is_Generic_Instance (E Id)
1274       { return Flag130 (Id); }
1275
1276    INLINE B Is_Generic_Type (E Id)
1277       { return Flag13 (Id); }
1278
1279    INLINE B Is_Hidden (E Id)
1280       { return Flag57 (Id); }
1281
1282    INLINE B Is_Hidden_Open_Scope (E Id)
1283       { return Flag171 (Id); }
1284
1285    INLINE B Is_Immediately_Visible (E Id)
1286       { return Flag7 (Id); }
1287
1288    INLINE B Is_Imported (E Id)
1289       { return Flag24 (Id); }
1290
1291    INLINE B Is_Inlined (E Id)
1292       { return Flag11 (Id); }
1293
1294    INLINE B Is_Instantiated (E Id)
1295       { return Flag126 (Id); }
1296
1297    INLINE B Is_Internal (E Id)
1298       { return Flag17 (Id); }
1299
1300    INLINE B Is_Interrupt_Handler (E Id)
1301       { return Flag89 (Id); }
1302
1303    INLINE B Is_Intrinsic_Subprogram (E Id)
1304       { return Flag64 (Id); }
1305
1306    INLINE B Is_Itype (E Id)
1307       { return Flag91 (Id); }
1308
1309    INLINE B Is_Known_Valid (E Id)
1310       { return Flag170 (Id); }
1311
1312    INLINE B Is_Limited_Composite (E Id)
1313       { return Flag106 (Id); }
1314
1315    INLINE B Is_Limited_Record (E Id)
1316       { return Flag25 (Id); }
1317
1318    INLINE B Is_Machine_Code_Subprogram (E Id)
1319       { return Flag137 (Id); }
1320
1321    INLINE B Is_Non_Static_Subtype (E Id)
1322       { return Flag109 (Id); }
1323
1324    INLINE B Is_Null_Init_Proc (E Id)
1325       { return Flag178 (Id); }
1326
1327    INLINE B Is_Optional_Parameter (E Id)
1328       { return Flag134 (Id); }
1329
1330    INLINE B Is_Package_Body_Entity (E Id)
1331       { return Flag160 (Id); }
1332
1333    INLINE B Is_Packed (E Id)
1334       { return Flag51 (Implementation_Base_Type (Id)); }
1335
1336    INLINE B Is_Packed_Array_Type (E Id)
1337       { return Flag138 (Id); }
1338
1339    INLINE B Is_Potentially_Use_Visible (E Id)
1340       { return Flag9 (Id); }
1341
1342    INLINE B Is_Preelaborated (E Id)
1343       { return Flag59 (Id); }
1344
1345    INLINE B Is_Private_Composite (E Id)
1346       { return Flag107 (Id); }
1347
1348    INLINE B Is_Private_Descendant (E Id)
1349       { return Flag53 (Id); }
1350
1351    INLINE B Is_Psected (E Id)
1352       { return Flag153 (Id); }
1353
1354    INLINE B Is_Public (E Id)
1355       { return Flag10 (Id); }
1356
1357    INLINE B Is_Pure (E Id)
1358       { return Flag44 (Id); }
1359
1360    INLINE B Is_Remote_Call_Interface (E Id)
1361       { return Flag62 (Id); }
1362
1363    INLINE B Is_Remote_Types (E Id)
1364       { return Flag61 (Id); }
1365
1366    INLINE B Is_Renaming_Of_Object (E Id)
1367       { return Flag112 (Id); }
1368
1369    INLINE B Is_Shared_Passive (E Id)
1370       { return Flag60 (Id); }
1371
1372    INLINE B Is_Statically_Allocated (E Id)
1373       { return Flag28 (Id); }
1374
1375    INLINE B Is_Tag (E Id)
1376       { return Flag78 (Id); }
1377
1378    INLINE B Is_Tagged_Type (E Id)
1379       { return Flag55 (Id); }
1380
1381    INLINE B Is_True_Constant (E Id)
1382       { return Flag163 (Id); }
1383
1384    INLINE B Is_Unchecked_Union (E Id)
1385       { return Flag117 (Id); }
1386
1387    INLINE B Is_Unsigned_Type (E Id)
1388       { return Flag144 (Id); }
1389
1390    INLINE B Is_Valued_Procedure (E Id)
1391       { return Flag127 (Id); }
1392
1393    INLINE B Is_Visible_Child_Unit (E Id)
1394       { return Flag116 (Id); }
1395
1396    INLINE B Is_VMS_Exception (E Id)
1397       { return Flag133 (Id); }
1398
1399    INLINE B Is_Volatile (E Id)
1400       { return Flag16 (Id); }
1401
1402    INLINE E Last_Entity (E Id)
1403       { return Node20 (Id); }
1404
1405    INLINE E Lit_Indexes (E Id)
1406       { return Node15 (Id); }
1407
1408    INLINE E Lit_Strings (E Id)
1409       { return Node16 (Id); }
1410
1411    INLINE B Machine_Radix_10 (E Id)
1412       { return Flag84 (Id); }
1413
1414    INLINE E Master_Id (E Id)
1415       { return Node17 (Id); }
1416
1417    INLINE B Materialize_Entity (E Id)
1418       { return Flag168 (Id); }
1419
1420    INLINE M Mechanism (E Id)
1421       { return UI_To_Int (Uint8 (Id)); }
1422
1423    INLINE Uint Modulus (E Id)
1424       { return Uint17 (Base_Type (Id)); }
1425
1426    INLINE B Needs_Debug_Info (E Id)
1427       { return Flag147 (Id); }
1428
1429    INLINE B Needs_No_Actuals (E Id)
1430       { return Flag22 (Id); }
1431
1432    INLINE E Next_Inlined_Subprogram (E Id)
1433       { return Node12 (Id); }
1434
1435    INLINE B No_Pool_Assigned (E Id)
1436       { return Flag131 (Root_Type (Id)); }
1437
1438    INLINE B No_Return (E Id)
1439       { return Flag113 (Id); }
1440
1441    INLINE B Non_Binary_Modulus (E Id)
1442       { return Flag58 (Base_Type (Id)); }
1443
1444    INLINE B Nonzero_Is_True (E Id)
1445       { return Flag162 (Base_Type (Id)); }
1446
1447    INLINE U Normalized_First_Bit (E Id)
1448       { return Uint8 (Id); }
1449
1450    INLINE U Normalized_Position (E Id)
1451       { return Uint9 (Id); }
1452
1453    INLINE U Normalized_Position_Max (E Id)
1454       { return Uint10 (Id); }
1455
1456    INLINE B Not_Source_Assigned (E Id)
1457       { return Flag115 (Id); }
1458
1459    INLINE E Object_Ref (E Id)
1460       { return Node17 (Id); }
1461
1462    INLINE E Original_Record_Component (E Id)
1463       { return Node22 (Id); }
1464
1465    INLINE E Packed_Array_Type (E Id)
1466       { return Node23 (Id); }
1467
1468    INLINE E Parent_Subtype (E Id)
1469       { return Node19 (Id); }
1470
1471    INLINE L Primitive_Operations (E Id)
1472       { return Elist15 (Id); }
1473
1474    INLINE E Prival (E Id)
1475       { return Node17 (Id); }
1476
1477    INLINE L Privals_Chain (E Id)
1478       { return Elist23 (Id); }
1479
1480    INLINE L Private_Dependents (E Id)
1481       { return Elist18 (Id); }
1482
1483    INLINE N Private_View (E Id)
1484       { return Node22 (Id); }
1485
1486    INLINE E Protected_Body_Subprogram (E Id)
1487       { return Node11 (Id); }
1488
1489    INLINE E Protected_Formal (E Id)
1490       { return Node22 (Id); }
1491
1492    INLINE N Protected_Operation (E Id)
1493       { return Node23 (Id); }
1494
1495    INLINE B Reachable (E Id)
1496       { return Flag49 (Id); }
1497
1498    INLINE B Referenced (E Id)
1499       { return Flag156 (Id); }
1500
1501    INLINE N Referenced_Object (E Id)
1502       { return Node10 (Id); }
1503
1504    INLINE N Register_Exception_Call (E Id)
1505       { return Node20 (Id); }
1506
1507    INLINE E Related_Array_Object (E Id)
1508       { return Node19 (Id); }
1509
1510    INLINE E Related_Instance (E Id)
1511       { return Node15 (Id); }
1512
1513    INLINE N Renamed_Entity (E Id)
1514       { return Node18 (Id); }
1515
1516    INLINE N Renamed_Object (E Id)
1517       { return Node18 (Id); }
1518
1519    INLINE U Renaming_Map (E Id)
1520       { return Uint9 (Id); }
1521
1522    INLINE B Return_Present (E Id)
1523       { return Flag54 (Id); }
1524
1525    INLINE B Returns_By_Ref (E Id)
1526       { return Flag90 (Id); }
1527
1528    INLINE B Reverse_Bit_Order (E Id)
1529       { return Flag164 (Base_Type (Id)); }
1530
1531    INLINE U RM_Size (E Id)
1532       { return Uint13 (Id); }
1533
1534    INLINE N Scalar_Range (E Id)
1535       { return Node20 (Id); }
1536
1537    INLINE U Scale_Value (E Id)
1538       { return Uint15 (Id); }
1539
1540    INLINE U Scope_Depth_Value (E Id)
1541       { return Uint22 (Id); }
1542
1543    INLINE B Sec_Stack_Needed_For_Return (E Id)
1544       { return Flag167 (Id); }
1545
1546    INLINE S Shadow_Entities (E Id)
1547       { return List14 (Id); }
1548
1549    INLINE E Shared_Var_Assign_Proc (E Id)
1550       { return Node22 (Id); }
1551
1552    INLINE E Shared_Var_Read_Proc (E Id)
1553       { return Node15 (Id); }
1554
1555    INLINE N Size_Check_Code (E Id)
1556       { return Node9 (Id); }
1557
1558    INLINE B Size_Depends_On_Discriminant (E Id)
1559       { return Flag177 (Id); }
1560
1561    INLINE B Size_Known_At_Compile_Time (E Id)
1562       { return Flag92 (Id); }
1563
1564    INLINE R Small_Value (E Id)
1565       { return Ureal21 (Id); }
1566
1567    INLINE E Spec_Entity (E Id)
1568       { return Node19 (Id); }
1569
1570    INLINE E Storage_Size_Variable (E Id)
1571       { return Node15 (Implementation_Base_Type (Id)); }
1572
1573    INLINE B Strict_Alignment (E Id)
1574       { return Flag145 (Implementation_Base_Type (Id)); }
1575
1576    INLINE U String_Literal_Length (E Id)
1577       { return Uint16 (Id); }
1578
1579    INLINE N String_Literal_Low_Bound (E Id)
1580       { return Node15 (Id); }
1581
1582    INLINE B Suppress_Access_Checks (E Id)
1583       { return Flag31 (Id); }
1584
1585    INLINE B Suppress_Accessibility_Checks (E Id)
1586       { return Flag32 (Id); }
1587
1588    INLINE B Suppress_Discriminant_Checks (E Id)
1589       { return Flag33 (Id); }
1590
1591    INLINE B Suppress_Division_Checks (E Id)
1592       { return Flag34 (Id); }
1593
1594    INLINE B Suppress_Elaboration_Checks (E Id)
1595       { return Flag35 (Id); }
1596
1597    INLINE B Suppress_Elaboration_Warnings (E Id)
1598       { return Flag148 (Id); }
1599
1600    INLINE B Suppress_Index_Checks (E Id)
1601       { return Flag36 (Id); }
1602
1603    INLINE B Suppress_Init_Proc (E Id)
1604       { return Flag105 (Base_Type (Id)); }
1605
1606    INLINE B Suppress_Length_Checks (E Id)
1607       { return Flag37 (Id); }
1608
1609    INLINE B Suppress_Overflow_Checks (E Id)
1610       { return Flag38 (Id); }
1611
1612    INLINE B Suppress_Range_Checks (E Id)
1613       { return Flag39 (Id); }
1614
1615    INLINE B Suppress_Storage_Checks (E Id)
1616       { return Flag40 (Id); }
1617
1618    INLINE B Suppress_Style_Checks (E Id)
1619       { return Flag165 (Id); }
1620
1621    INLINE B Suppress_Tag_Checks (E Id)
1622       { return Flag41 (Id); }
1623
1624    INLINE E Underlying_Full_View (E Id)
1625       { return Node19 (Id); }
1626
1627    INLINE N Unset_Reference (E Id)
1628       { return Node16 (Id); }
1629
1630    INLINE B Uses_Sec_Stack (E Id)
1631       { return Flag95 (Id); }
1632
1633    INLINE B Vax_Float (E Id)
1634       { return Flag151 (Base_Type (Id)); }
1635
1636    INLINE B Warnings_Off (E Id)
1637       { return Flag96 (Id); }
1638
1639    INLINE B Is_Access_Type                      (E Id)
1640       { return IN (Ekind (Id), Access_Kind); }
1641
1642    INLINE B Is_Array_Type                       (E Id)
1643       { return IN (Ekind (Id), Array_Kind); }
1644
1645    INLINE B Is_Class_Wide_Type                  (E Id)
1646       { return IN (Ekind (Id), Class_Wide_Kind); }
1647
1648    INLINE B Is_Composite_Type                   (E Id)
1649       { return IN (Ekind (Id), Composite_Kind); }
1650
1651    INLINE B Is_Concurrent_Body                  (E Id)
1652       { return IN (Ekind (Id), Concurrent_Body_Kind); }
1653
1654    INLINE B Is_Concurrent_Record_Type           (E Id)
1655       { return Flag20 (Id); }
1656
1657    INLINE B Is_Concurrent_Type                  (E Id)
1658       { return IN (Ekind (Id), Concurrent_Kind); }
1659
1660    INLINE B Is_Decimal_Fixed_Point_Type         (E Id)
1661       { return IN (Ekind (Id), Decimal_Fixed_Point_Kind); }
1662
1663    INLINE B Is_Digits_Type                      (E Id)
1664       { return IN (Ekind (Id), Digits_Kind); }
1665
1666    INLINE B Is_Discrete_Or_Fixed_Point_Type     (E Id)
1667       { return IN (Ekind (Id), Discrete_Or_Fixed_Point_Kind); }
1668
1669    INLINE B Is_Discrete_Type                    (E Id)
1670       { return IN (Ekind (Id), Discrete_Kind); }
1671
1672    INLINE B Is_Elementary_Type                  (E Id)
1673       { return IN (Ekind (Id), Elementary_Kind); }
1674
1675    INLINE B Is_Entry                            (E Id)
1676       { return IN (Ekind (Id), Entry_Kind); }
1677
1678    INLINE B Is_Enumeration_Type                 (E Id)
1679       { return IN (Ekind (Id), Enumeration_Kind); }
1680
1681    INLINE B Is_Fixed_Point_Type                 (E Id)
1682       { return IN (Ekind (Id), Fixed_Point_Kind); }
1683
1684    INLINE B Is_Floating_Point_Type              (E Id)
1685       { return IN (Ekind (Id), Float_Kind); }
1686
1687    INLINE B Is_Formal                           (E Id)
1688       { return IN (Ekind (Id), Formal_Kind); }
1689
1690    INLINE B Is_Generic_Unit                     (E Id)
1691       { return IN (Ekind (Id), Generic_Unit_Kind); }
1692
1693    INLINE B Is_Incomplete_Or_Private_Type       (E Id)
1694       { return IN (Ekind (Id), Incomplete_Or_Private_Kind); }
1695
1696    INLINE B Is_Integer_Type                     (E Id)
1697       { return IN (Ekind (Id), Integer_Kind); }
1698
1699    INLINE B Is_Modular_Integer_Type             (E Id)
1700       { return IN (Ekind (Id), Modular_Integer_Kind); }
1701
1702    INLINE B Is_Named_Number                     (E Id)
1703       { return IN (Ekind (Id), Named_Kind); }
1704
1705    INLINE B Is_Numeric_Type                     (E Id)
1706       { return IN (Ekind (Id), Numeric_Kind); }
1707
1708    INLINE B Is_Object                           (E Id)
1709       { return IN (Ekind (Id), Object_Kind); }
1710
1711    INLINE B Is_Ordinary_Fixed_Point_Type        (E Id)
1712       { return IN (Ekind (Id), Ordinary_Fixed_Point_Kind); }
1713
1714    INLINE B Is_Overloadable                     (E Id)
1715       { return IN (Ekind (Id), Overloadable_Kind); }
1716
1717    INLINE B Is_Private_Type                     (E Id)
1718       { return IN (Ekind (Id), Private_Kind); }
1719
1720    INLINE B Is_Protected_Type                   (E Id)
1721       { return IN (Ekind (Id), Protected_Kind); }
1722
1723    INLINE B Is_Real_Type                        (E Id)
1724       { return IN (Ekind (Id), Real_Kind); }
1725
1726    INLINE B Is_Record_Type                      (E Id)
1727       { return IN (Ekind (Id), Record_Kind); }
1728
1729    INLINE B Is_Scalar_Type                      (E Id)
1730       { return IN (Ekind (Id), Scalar_Kind); }
1731
1732    INLINE B Is_Signed_Integer_Type              (E Id)
1733       { return IN (Ekind (Id), Signed_Integer_Kind); }
1734
1735    INLINE B Is_Subprogram                       (E Id)
1736       { return IN (Ekind (Id), Subprogram_Kind); }
1737
1738    INLINE B Is_Task_Type                        (E Id)
1739       { return IN (Ekind (Id), Task_Kind); }
1740
1741    INLINE B Is_Type                             (E Id)
1742       { return IN (Ekind (Id), Type_Kind); }
1743
1744    INLINE B Known_Alignment                       (Entity_Id E)
1745       { return Uint14 (E) != Uint_0; }
1746
1747    INLINE B Known_Component_Bit_Offset            (Entity_Id E)
1748       { return Uint11 (E) != No_Uint; }
1749
1750    INLINE B Known_Component_Size                  (Entity_Id E)
1751       { return Uint22 (Base_Type (E)) != Uint_0; }
1752
1753    INLINE B Known_Esize                           (Entity_Id E)
1754       { return Uint12 (E) != Uint_0; }
1755
1756    INLINE B Known_Static_Component_Size           (Entity_Id E)
1757       { return Uint22 (Base_Type (E)) > Uint_0; }
1758
1759    INLINE B Known_Static_Esize                    (Entity_Id E)
1760       { return Uint12 (E) > Uint_0; }
1761
1762    INLINE B Unknown_Alignment                     (Entity_Id E)
1763       { return Uint14 (E) == Uint_0; }
1764
1765    INLINE B Unknown_Component_Bit_Offset          (Entity_Id E)
1766       { return Uint11 (E) == No_Uint; }
1767
1768    INLINE B Unknown_Component_Size                (Entity_Id E)
1769       { return Uint22 (Base_Type (E)) == Uint_0; }
1770
1771    INLINE B Unknown_Esize                         (Entity_Id E)
1772       { return Uint12 (E) == Uint_0; }
1773
1774    INLINE N Entry_Index_Type (E Id)
1775       { return Etype (Discrete_Subtype_Definition (Parent (Id))); }
1776
1777    INLINE Node_Id Next_Index (Node_Id Id)
1778       { return Next (Id); }
1779
1780    INLINE E Next_Literal (E Id)
1781       { return Next (Id); }
1782
1783    INLINE Formal_Kind Parameter_Mode (E Id)
1784       { return Ekind (Id); }
1785
1786 /* End of einfo.h (C version of Einfo package specification) */