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.3 using                  */
  10 /*                         einfo.ads revision 1.654                         */
  11 /*                         einfo.adb revision 1.642                         */
  12 /*                                                                          */
  13 /*          Copyright (C) 1992-2002 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 /* Extensive contributions were provided by Ada Core Technologies Inc.      */
  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_Pragma_Pure_Function           (E Id);
 364    INLINE B Has_Pragma_Unreferenced            (E Id);
 365    INLINE B Has_Primitive_Operations           (E Id);
 366    INLINE B Has_Qualified_Name                 (E Id);
 367    INLINE B Has_Record_Rep_Clause              (E Id);
 368    INLINE B Has_Recursive_Call                 (E Id);
 369    INLINE B Has_Size_Clause                    (E Id);
 370    INLINE B Has_Small_Clause                   (E Id);
 371    INLINE B Has_Specified_Layout               (E Id);
 372    INLINE B Has_Storage_Size_Clause            (E Id);
 373    INLINE B Has_Subprogram_Descriptor          (E Id);
 374    INLINE B Has_Task                           (E Id);
 375    INLINE B Has_Unchecked_Union                (E Id);
 376    INLINE B Has_Unknown_Discriminants          (E Id);
 377    INLINE B Has_Volatile_Components            (E Id);
 378    INLINE E Homonym                            (E Id);
 379    INLINE E Hiding_Loop_Variable               (E Id);
 380    INLINE B In_Package_Body                    (E Id);
 381    INLINE B In_Private_Part                    (E Id);
 382    INLINE B In_Use                             (E Id);
 383    INLINE L Inner_Instances                    (E Id);
 384    INLINE N Interface_Name                     (E Id);
 385    INLINE B Is_AST_Entry                       (E Id);
 386    INLINE B Is_Abstract                        (E Id);
 387    INLINE B Is_Access_Constant                 (E Id);
 388    INLINE B Is_Aliased                         (E Id);
 389    INLINE B Is_Asynchronous                    (E Id);
 390    INLINE B Is_Atomic                          (E Id);
 391    INLINE B Is_Bit_Packed_Array                (E Id);
 392    INLINE B Is_CPP_Class                       (E Id);
 393    INLINE B Is_Called                          (E Id);
 394    INLINE B Is_Character_Type                  (E Id);
 395    INLINE B Is_Child_Unit                      (E Id);
 396    INLINE B Is_Compilation_Unit                (E Id);
 397    INLINE B Is_Completely_Hidden               (E Id);
 398    INLINE B Is_Constr_Subt_For_UN_Aliased      (E Id);
 399    INLINE B Is_Constr_Subt_For_U_Nominal       (E Id);
 400    INLINE B Is_Constrained                     (E Id);
 401    INLINE B Is_Constructor                     (E Id);
 402    INLINE B Is_Controlled                      (E Id);
 403    INLINE B Is_Controlling_Formal              (E Id);
 404    INLINE B Is_Destructor                      (E Id);
 405    INLINE B Is_Discrim_SO_Function             (E Id);
 406    INLINE B Is_Dispatching_Operation           (E Id);
 407    INLINE B Is_Eliminated                      (E Id);
 408    INLINE B Is_Entry_Formal                    (E Id);
 409    INLINE B Is_Exported                        (E Id);
 410    INLINE B Is_First_Subtype                   (E Id);
 411    INLINE B Is_For_Access_Subtype              (E Id);
 412    INLINE B Is_Frozen                          (E Id);
 413    INLINE B Is_Generic_Instance                (E Id);
 414    INLINE B Is_Hidden                          (E Id);
 415    INLINE B Is_Hidden_Open_Scope               (E Id);
 416    INLINE B Is_Immediately_Visible             (E Id);
 417    INLINE B Is_Imported                        (E Id);
 418    INLINE B Is_Inlined                         (E Id);
 419    INLINE B Is_Instantiated                    (E Id);
 420    INLINE B Is_Internal                        (E Id);
 421    INLINE B Is_Interrupt_Handler               (E Id);
 422    INLINE B Is_Intrinsic_Subprogram            (E Id);
 423    INLINE B Is_Itype                           (E Id);
 424    INLINE B Is_Known_Valid                     (E Id);
 425    INLINE B Is_Limited_Composite               (E Id);
 426    INLINE B Is_Machine_Code_Subprogram         (E Id);
 427    INLINE B Is_Non_Static_Subtype              (E Id);
 428    INLINE B Is_Null_Init_Proc                  (E Id);
 429    INLINE B Is_Optional_Parameter              (E Id);
 430    INLINE B Is_Package_Body_Entity             (E Id);
 431    INLINE B Is_Packed                          (E Id);
 432    INLINE B Is_Packed_Array_Type               (E Id);
 433    INLINE B Is_Potentially_Use_Visible         (E Id);
 434    INLINE B Is_Preelaborated                   (E Id);
 435    INLINE B Is_Private_Composite               (E Id);
 436    INLINE B Is_Private_Descendant              (E Id);
 437    INLINE B Is_Psected                         (E Id);
 438    INLINE B Is_Public                          (E Id);
 439    INLINE B Is_Pure                            (E Id);
 440    INLINE B Is_Remote_Call_Interface           (E Id);
 441    INLINE B Is_Remote_Types                    (E Id);
 442    INLINE B Is_Renaming_Of_Object              (E Id);
 443    INLINE B Is_Shared_Passive                  (E Id);
 444    INLINE B Is_Statically_Allocated            (E Id);
 445    INLINE B Is_Tag                             (E Id);
 446    INLINE B Is_Tagged_Type                     (E Id);
 447    INLINE B Is_True_Constant                   (E Id);
 448    INLINE B Is_Unchecked_Union                 (E Id);
 449    INLINE B Is_Unsigned_Type                   (E Id);
 450    INLINE B Is_VMS_Exception                   (E Id);
 451    INLINE B Is_Valued_Procedure                (E Id);
 452    INLINE B Is_Visible_Child_Unit              (E Id);
 453    INLINE B Is_Volatile                        (E Id);
 454
 455    #define Is_Wrapper_Package einfo__is_wrapper_package
 456    B Is_Wrapper_Package                 (E Id);
 457
 458    INLINE E Last_Entity                        (E Id);
 459    INLINE E Lit_Indexes                        (E Id);
 460    INLINE E Lit_Strings                        (E Id);
 461    INLINE B Machine_Radix_10                   (E Id);
 462    INLINE E Master_Id                          (E Id);
 463    INLINE B Materialize_Entity                 (E Id);
 464    INLINE M Mechanism                          (E Id);
 465    INLINE U Modulus                            (E Id);
 466    INLINE B Needs_Debug_Info                   (E Id);
 467    INLINE B Needs_No_Actuals                   (E Id);
 468    INLINE E Next_Inlined_Subprogram            (E Id);
 469    INLINE B No_Pool_Assigned                   (E Id);
 470    INLINE B No_Return                          (E Id);
 471    INLINE B Non_Binary_Modulus                 (E Id);
 472    INLINE B Nonzero_Is_True                    (E Id);
 473    INLINE U Normalized_First_Bit               (E Id);
 474    INLINE U Normalized_Position                (E Id);
 475    INLINE U Normalized_Position_Max            (E Id);
 476    INLINE B Not_Source_Assigned                (E Id);
 477    INLINE E Object_Ref                         (E Id);
 478    INLINE E Original_Array_Type                (E Id);
 479    INLINE E Original_Record_Component          (E Id);
 480    INLINE E Packed_Array_Type                  (E Id);
 481    INLINE E Parent_Subtype                     (E Id);
 482    INLINE L Primitive_Operations               (E Id);
 483    INLINE E Prival                             (E Id);
 484    INLINE L Privals_Chain                      (E Id);
 485    INLINE L Private_Dependents                 (E Id);
 486    INLINE N Private_View                       (E Id);
 487    INLINE E Protected_Body_Subprogram          (E Id);
 488    INLINE E Protected_Formal                   (E Id);
 489    INLINE E Protected_Operation                (E Id);
 490    INLINE U RM_Size                            (E Id);
 491    INLINE B Reachable                          (E Id);
 492    INLINE B Referenced                         (E Id);
 493    INLINE N Referenced_Object                  (E Id);
 494    INLINE N Register_Exception_Call            (E Id);
 495    INLINE E Related_Array_Object               (E Id);
 496    INLINE E Related_Instance                   (E Id);
 497    INLINE N Renamed_Entity                     (E Id);
 498    INLINE N Renamed_Object                     (E Id);
 499    INLINE U Renaming_Map                       (E Id);
 500    INLINE B Return_Present                     (E Id);
 501    INLINE B Returns_By_Ref                     (E Id);
 502    INLINE B Reverse_Bit_Order                  (E Id);
 503    INLINE N Scalar_Range                       (E Id);
 504    INLINE U Scale_Value                        (E Id);
 505    INLINE U Scope_Depth_Value                  (E Id);
 506    INLINE B Sec_Stack_Needed_For_Return        (E Id);
 507    INLINE S Shadow_Entities                    (E Id);
 508    INLINE E Shared_Var_Assign_Proc             (E Id);
 509    INLINE E Shared_Var_Read_Proc               (E Id);
 510    INLINE N Size_Check_Code                    (E Id);
 511    INLINE B Size_Known_At_Compile_Time         (E Id);
 512    INLINE B Size_Depends_On_Discriminant       (E Id);
 513    INLINE R Small_Value                        (E Id);
 514    INLINE E Spec_Entity                        (E Id);
 515    INLINE E Storage_Size_Variable              (E Id);
 516    INLINE B Strict_Alignment                   (E Id);
 517    INLINE U String_Literal_Length              (E Id);
 518    INLINE N String_Literal_Low_Bound           (E Id);
 519    INLINE B Suppress_Access_Checks             (E Id);
 520    INLINE B Suppress_Accessibility_Checks      (E Id);
 521    INLINE B Suppress_Discriminant_Checks       (E Id);
 522    INLINE B Suppress_Division_Checks           (E Id);
 523    INLINE B Suppress_Elaboration_Checks        (E Id);
 524    INLINE B Suppress_Elaboration_Warnings      (E Id);
 525    INLINE B Suppress_Index_Checks              (E Id);
 526    INLINE B Suppress_Init_Proc                 (E Id);
 527    INLINE B Suppress_Length_Checks             (E Id);
 528    INLINE B Suppress_Overflow_Checks           (E Id);
 529    INLINE B Suppress_Range_Checks              (E Id);
 530    INLINE B Suppress_Storage_Checks            (E Id);
 531    INLINE B Suppress_Style_Checks              (E Id);
 532    INLINE B Suppress_Tag_Checks                (E Id);
 533    INLINE E Underlying_Full_View               (E Id);
 534    INLINE N Unset_Reference                    (E Id);
 535    INLINE B Uses_Sec_Stack                     (E Id);
 536    INLINE B Vax_Float                          (E Id);
 537    INLINE B Warnings_Off                       (E Id);
 538    INLINE B Is_Access_Type                     (E Id);
 539    INLINE B Is_Array_Type                      (E Id);
 540    INLINE B Is_Class_Wide_Type                 (E Id);
 541    INLINE B Is_Composite_Type                  (E Id);
 542    INLINE B Is_Concurrent_Body                 (E Id);
 543    INLINE B Is_Concurrent_Record_Type          (E Id);
 544    INLINE B Is_Concurrent_Type                 (E Id);
 545    INLINE B Is_Decimal_Fixed_Point_Type        (E Id);
 546    INLINE B Is_Digits_Type                     (E Id);
 547    INLINE B Is_Discrete_Or_Fixed_Point_Type    (E Id);
 548    INLINE B Is_Discrete_Type                   (E Id);
 549    INLINE B Is_Elementary_Type                 (E Id);
 550    INLINE B Is_Entry                           (E Id);
 551    INLINE B Is_Enumeration_Type                (E Id);
 552    INLINE B Is_Fixed_Point_Type                (E Id);
 553    INLINE B Is_Floating_Point_Type             (E Id);
 554    INLINE B Is_Formal                          (E Id);
 555    INLINE B Is_Formal_Subprogram               (E Id);
 556    INLINE B Is_Generic_Actual_Type             (E Id);
 557    INLINE B Is_Generic_Type                    (E Id);
 558    INLINE B Is_Generic_Unit                    (E Id);
 559    INLINE B Is_Incomplete_Or_Private_Type      (E Id);
 560    INLINE B Is_Integer_Type                    (E Id);
 561    INLINE B Is_Limited_Record                  (E Id);
 562    INLINE B Is_Modular_Integer_Type            (E Id);
 563    INLINE B Is_Named_Number                    (E Id);
 564    INLINE B Is_Numeric_Type                    (E Id);
 565    INLINE B Is_Object                          (E Id);
 566    INLINE B Is_Ordinary_Fixed_Point_Type       (E Id);
 567    INLINE B Is_Overloadable                    (E Id);
 568    INLINE B Is_Private_Type                    (E Id);
 569    INLINE B Is_Protected_Type                  (E Id);
 570    INLINE B Is_Real_Type                       (E Id);
 571    INLINE B Is_Record_Type                     (E Id);
 572    INLINE B Is_Scalar_Type                     (E Id);
 573    INLINE B Is_Signed_Integer_Type             (E Id);
 574    INLINE B Is_Subprogram                      (E Id);
 575    INLINE B Is_Task_Type                       (E Id);
 576    INLINE B Is_Type                            (E Id);
 577
 578    #define Address_Clause einfo__address_clause
 579    N Address_Clause                     (E Id);
 580
 581    #define Alignment_Clause einfo__alignment_clause
 582    N Alignment_Clause                   (E Id);
 583
 584    #define Ancestor_Subtype einfo__ancestor_subtype
 585    E Ancestor_Subtype                   (E Id);
 586
 587    #define Base_Type einfo__base_type
 588    E Base_Type                          (E Id);
 589
 590    #define Constant_Value einfo__constant_value
 591    N Constant_Value                     (E Id);
 592
 593    #define Declaration_Node einfo__declaration_node
 594    N Declaration_Node                   (E Id);
 595
 596    #define Designated_Type einfo__designated_type
 597    E Designated_Type                    (E Id);
 598
 599    #define Enclosing_Dynamic_Scope einfo__enclosing_dynamic_scope
 600    E Enclosing_Dynamic_Scope            (E Id);
 601
 602    #define First_Component einfo__first_component
 603    E First_Component                    (E Id);
 604
 605    #define First_Discriminant einfo__first_discriminant
 606    E First_Discriminant                 (E Id);
 607
 608    #define First_Formal einfo__first_formal
 609    E First_Formal                       (E Id);
 610
 611    #define First_Girder_Discriminant einfo__first_girder_discriminant
 612    E First_Girder_Discriminant          (E Id);
 613
 614    #define First_Subtype einfo__first_subtype
 615    E First_Subtype                      (E Id);
 616
 617    #define Has_Attach_Handler einfo__has_attach_handler
 618    B Has_Attach_Handler                 (E Id);
 619
 620    #define Has_Entries einfo__has_entries
 621    B Has_Entries                        (E Id);
 622
 623    #define Has_Foreign_Convention einfo__has_foreign_convention
 624    B Has_Foreign_Convention             (E Id);
 625
 626    #define Has_Private_Ancestor einfo__has_private_ancestor
 627    B Has_Private_Ancestor               (E Id);
 628
 629    INLINE B Has_Private_Declaration            (E Id);
 630
 631    #define Implementation_Base_Type einfo__implementation_base_type
 632    E Implementation_Base_Type           (E Id);
 633
 634    #define Is_Always_Inlined einfo__is_always_inlined
 635    B Is_Always_Inlined                  (E Id);
 636
 637    #define Is_Boolean_Type einfo__is_boolean_type
 638    B Is_Boolean_Type                    (E Id);
 639
 640    #define Is_By_Copy_Type einfo__is_by_copy_type
 641    B Is_By_Copy_Type                    (E Id);
 642
 643    #define Is_By_Reference_Type einfo__is_by_reference_type
 644    B Is_By_Reference_Type               (E Id);
 645
 646    #define Is_Derived_Type einfo__is_derived_type
 647    B Is_Derived_Type                    (E Id);
 648
 649    #define Is_Dynamic_Scope einfo__is_dynamic_scope
 650    B Is_Dynamic_Scope                   (E Id);
 651
 652    #define Is_Indefinite_Subtype einfo__is_indefinite_subtype
 653    B Is_Indefinite_Subtype              (E Id);
 654
 655    #define Is_Limited_Type einfo__is_limited_type
 656    B Is_Limited_Type                    (E Id);
 657
 658    #define Is_Package einfo__is_package
 659    B Is_Package                         (E Id);
 660
 661    #define Is_Protected_Private einfo__is_protected_private
 662    B Is_Protected_Private               (E Id);
 663
 664    #define Is_Protected_Record_Type einfo__is_protected_record_type
 665    B Is_Protected_Record_Type           (E Id);
 666
 667    #define Is_Return_By_Reference_Type einfo__is_return_by_reference_type
 668    B Is_Return_By_Reference_Type        (E Id);
 669
 670    #define Is_String_Type einfo__is_string_type
 671    B Is_String_Type                     (E Id);
 672
 673    #define Is_Task_Record_Type einfo__is_task_record_type
 674    B Is_Task_Record_Type                (E Id);
 675
 676    #define Next_Component einfo__next_component
 677    E Next_Component                     (E Id);
 678
 679    #define Next_Discriminant einfo__next_discriminant
 680    E Next_Discriminant                  (E Id);
 681
 682    #define Next_Formal einfo__next_formal
 683    E Next_Formal                        (E Id);
 684
 685    #define Next_Formal_With_Extras einfo__next_formal_with_extras
 686    E Next_Formal_With_Extras            (E Id);
 687
 688    #define Next_Girder_Discriminant einfo__next_girder_discriminant
 689    E Next_Girder_Discriminant           (E Id);
 690
 691    INLINE E Next_Literal                       (E Id);
 692
 693    #define Number_Dimensions einfo__number_dimensions
 694    Pos Number_Dimensions                  (E Id);
 695
 696    #define Number_Discriminants einfo__number_discriminants
 697    Pos Number_Discriminants               (E Id);
 698
 699    #define Number_Entries einfo__number_entries
 700    Nat Number_Entries                     (E Id);
 701
 702    #define Number_Formals einfo__number_formals
 703    Pos Number_Formals                     (E Id);
 704
 705    INLINE Formal_Kind Parameter_Mode                     (E Id);
 706
 707    #define Root_Type einfo__root_type
 708    E Root_Type                          (E Id);
 709
 710    #define Scope_Depth_Set einfo__scope_depth_set
 711    B Scope_Depth_Set                    (E Id);
 712
 713    #define Size_Clause einfo__size_clause
 714    N Size_Clause                        (E Id);
 715
 716    #define Tag_Component einfo__tag_component
 717    E Tag_Component                      (E Id);
 718
 719    #define Type_High_Bound einfo__type_high_bound
 720    N Type_High_Bound                    (E Id);
 721
 722    #define Type_Low_Bound einfo__type_low_bound
 723    N Type_Low_Bound                     (E Id);
 724
 725    #define Underlying_Type einfo__underlying_type
 726    E Underlying_Type                    (E Id);
 727
 728    #define Known_Alignment einfo__known_alignment
 729    B Known_Alignment                       (Entity_Id E);
 730
 731    #define Known_Component_Bit_Offset einfo__known_component_bit_offset
 732    B Known_Component_Bit_Offset            (Entity_Id E);
 733
 734    #define Known_Component_Size einfo__known_component_size
 735    B Known_Component_Size                  (Entity_Id E);
 736
 737    #define Known_Esize einfo__known_esize
 738    B Known_Esize                           (Entity_Id E);
 739
 740    #define Known_Normalized_First_Bit einfo__known_normalized_first_bit
 741    B Known_Normalized_First_Bit            (Entity_Id E);
 742
 743    #define Known_Normalized_Position einfo__known_normalized_position
 744    B Known_Normalized_Position             (Entity_Id E);
 745
 746    #define Known_Normalized_Position_Max einfo__known_normalized_position_max
 747    B Known_Normalized_Position_Max         (Entity_Id E);
 748
 749    #define Known_RM_Size einfo__known_rm_size
 750    B Known_RM_Size                         (Entity_Id E);
 751
 752    #define Known_Static_Component_Bit_Offset einfo__known_static_component_bit_offset
 753    B Known_Static_Component_Bit_Offset     (Entity_Id E);
 754
 755    #define Known_Static_Component_Size einfo__known_static_component_size
 756    B Known_Static_Component_Size           (Entity_Id E);
 757
 758    #define Known_Static_Esize einfo__known_static_esize
 759    B Known_Static_Esize                    (Entity_Id E);
 760
 761    #define Known_Static_Normalized_First_Bit einfo__known_static_normalized_first_bit
 762    B Known_Static_Normalized_First_Bit     (Entity_Id E);
 763
 764    #define Known_Static_Normalized_Position einfo__known_static_normalized_position
 765    B Known_Static_Normalized_Position      (Entity_Id E);
 766
 767    #define Known_Static_Normalized_Position_Max einfo__known_static_normalized_position_max
 768    B Known_Static_Normalized_Position_Max  (Entity_Id E);
 769
 770    #define Known_Static_RM_Size einfo__known_static_rm_size
 771    B Known_Static_RM_Size                  (Entity_Id E);
 772
 773    #define Unknown_Alignment einfo__unknown_alignment
 774    B Unknown_Alignment                     (Entity_Id E);
 775
 776    #define Unknown_Component_Bit_Offset einfo__unknown_component_bit_offset
 777    B Unknown_Component_Bit_Offset          (Entity_Id E);
 778
 779    #define Unknown_Component_Size einfo__unknown_component_size
 780    B Unknown_Component_Size                (Entity_Id E);
 781
 782    #define Unknown_Esize einfo__unknown_esize
 783    B Unknown_Esize                         (Entity_Id E);
 784
 785    #define Unknown_Normalized_First_Bit einfo__unknown_normalized_first_bit
 786    B Unknown_Normalized_First_Bit          (Entity_Id E);
 787
 788    #define Unknown_Normalized_Position einfo__unknown_normalized_position
 789    B Unknown_Normalized_Position           (Entity_Id E);
 790
 791    #define Unknown_Normalized_Position_Max einfo__unknown_normalized_position_max
 792    B Unknown_Normalized_Position_Max       (Entity_Id E);
 793
 794    #define Unknown_RM_Size einfo__unknown_rm_size
 795    B Unknown_RM_Size                       (Entity_Id E);
 796
 797
 798    INLINE L Accept_Address (E Id)
 799       { return Elist21 (Id); }
 800
 801    INLINE E Access_Disp_Table (E Id)
 802       { return Node16 (Implementation_Base_Type (Id)); }
 803
 804    INLINE E Actual_Subtype (E Id)
 805       { return Node17 (Id); }
 806
 807    INLINE B Address_Taken (E Id)
 808       { return Flag104 (Id); }
 809
 810    INLINE E Alias (E Id)
 811       { return Node18 (Id); }
 812
 813    INLINE U Alignment (E Id)
 814       { return Uint14 (Id); }
 815
 816    INLINE E Associated_Final_Chain (E Id)
 817       { return Node23 (Id); }
 818
 819    INLINE E Associated_Formal_Package (E Id)
 820       { return Node12 (Id); }
 821
 822    INLINE N Associated_Node_For_Itype (E Id)
 823       { return Node8 (Id); }
 824
 825    INLINE E Associated_Storage_Pool (E Id)
 826       { return Node22 (Root_Type (Id)); }
 827
 828    INLINE N Barrier_Function (E Id)
 829       { return Node12 (Id); }
 830
 831    INLINE N Block_Node (E Id)
 832       { return Node11 (Id); }
 833
 834    INLINE E Body_Entity (E Id)
 835       { return Node19 (Id); }
 836
 837    INLINE B C_Pass_By_Copy (E Id)
 838       { return Flag125 (Implementation_Base_Type (Id)); }
 839
 840    INLINE E Class_Wide_Type (E Id)
 841       { return Node9 (Id); }
 842
 843    INLINE E Cloned_Subtype (E Id)
 844       { return Node16 (Id); }
 845
 846    INLINE U Component_Bit_Offset (E Id)
 847       { return Uint11 (Id); }
 848
 849    INLINE N Component_Clause (E Id)
 850       { return Node13 (Id); }
 851
 852    INLINE U Component_Size (E Id)
 853       { return Uint22 (Implementation_Base_Type (Id)); }
 854
 855    INLINE E Component_Type (E Id)
 856       { return Node20 (Implementation_Base_Type (Id)); }
 857
 858    INLINE E Corresponding_Concurrent_Type (E Id)
 859       { return Node18 (Id); }
 860
 861    INLINE E Corresponding_Discriminant (E Id)
 862       { return Node19 (Id); }
 863
 864    INLINE E Corresponding_Equality (E Id)
 865       { return Node13 (Id); }
 866
 867    INLINE E Corresponding_Record_Type (E Id)
 868       { return Node18 (Id); }
 869
 870    INLINE E Corresponding_Remote_Type (E Id)
 871       { return Node22 (Id); }
 872
 873    INLINE E CR_Discriminant (E Id)
 874       { return Node23 (Id); }
 875
 876    INLINE B Debug_Info_Off (E Id)
 877       { return Flag166 (Id); }
 878
 879    INLINE E Debug_Renaming_Link (E Id)
 880       { return Node13 (Id); }
 881
 882    INLINE E Default_Expr_Function (E Id)
 883       { return Node21 (Id); }
 884
 885    INLINE B Default_Expressions_Processed (E Id)
 886       { return Flag108 (Id); }
 887
 888    INLINE N Default_Value (E Id)
 889       { return Node20 (Id); }
 890
 891    INLINE B Delay_Cleanups (E Id)
 892       { return Flag114 (Id); }
 893
 894    INLINE B Delay_Subprogram_Descriptors (E Id)
 895       { return Flag50 (Id); }
 896
 897    INLINE R Delta_Value (E Id)
 898       { return Ureal18 (Id); }
 899
 900    INLINE L Dependent_Instances (E Id)
 901       { return Elist8 (Id); }
 902
 903    INLINE B Depends_On_Private (E Id)
 904       { return Flag14 (Id); }
 905
 906    INLINE U Digits_Value (E Id)
 907       { return Uint17 (Id); }
 908
 909    INLINE E Directly_Designated_Type (E Id)
 910       { return Node20 (Id); }
 911
 912    INLINE B Discard_Names (E Id)
 913       { return Flag88 (Id); }
 914
 915    INLINE E Discriminal (E Id)
 916       { return Node17 (Id); }
 917
 918    INLINE N Discriminal_Link (E Id)
 919       { return Node10 (Id); }
 920
 921    INLINE E Discriminant_Checking_Func (E Id)
 922       { return Node20 (Id); }
 923
 924    INLINE L Discriminant_Constraint (E Id)
 925       { return Elist21 (Id); }
 926
 927    INLINE N Discriminant_Default_Value (E Id)
 928       { return Node20 (Id); }
 929
 930    INLINE U Discriminant_Number (E Id)
 931       { return Uint15 (Id); }
 932
 933    INLINE U DT_Entry_Count (E Id)
 934       { return Uint15 (Id); }
 935
 936    INLINE U DT_Position (E Id)
 937       { return Uint15 (Id); }
 938
 939    INLINE E DTC_Entity (E Id)
 940       { return Node16 (Id); }
 941
 942    INLINE B Elaborate_All_Desirable (E Id)
 943       { return Flag146 (Id); }
 944
 945    INLINE E Elaboration_Entity (E Id)
 946       { return Node13 (Id); }
 947
 948    INLINE B Elaboration_Entity_Required (E Id)
 949       { return Flag174 (Id); }
 950
 951    INLINE E Enclosing_Scope (E Id)
 952       { return Node18 (Id); }
 953
 954    INLINE B Entry_Accepted (E Id)
 955       { return Flag152 (Id); }
 956
 957    INLINE E Entry_Bodies_Array (E Id)
 958       { return Node15 (Id); }
 959
 960    INLINE E Entry_Cancel_Parameter (E Id)
 961       { return Node23 (Id); }
 962
 963    INLINE E Entry_Component (E Id)
 964       { return Node11 (Id); }
 965
 966    INLINE E Entry_Formal (E Id)
 967       { return Node16 (Id); }
 968
 969    INLINE N Entry_Index_Constant (E Id)
 970       { return Node18 (Id); }
 971
 972    INLINE E Entry_Parameters_Type (E Id)
 973       { return Node15 (Id); }
 974
 975    INLINE E Enum_Pos_To_Rep (E Id)
 976       { return Node23 (Id); }
 977
 978    INLINE Uint Enumeration_Pos (E Id)
 979       { return Uint11 (Id); }
 980
 981    INLINE U Enumeration_Rep (E Id)
 982       { return Uint12 (Id); }
 983
 984    INLINE N Enumeration_Rep_Expr (E Id)
 985       { return Node22 (Id); }
 986
 987    INLINE E Equivalent_Type (E Id)
 988       { return Node18 (Id); }
 989
 990    INLINE Uint Esize (E Id)
 991       { return Uint12 (Id); }
 992
 993    INLINE Uint Exception_Code (E Id)
 994       { return Uint22 (Id); }
 995
 996    INLINE E Extra_Accessibility (E Id)
 997       { return Node13 (Id); }
 998
 999    INLINE E Extra_Constrained (E Id)
1000       { return Node23 (Id); }
1001
1002    INLINE E Extra_Formal (E Id)
1003       { return Node15 (Id); }
1004
1005    INLINE E Finalization_Chain_Entity (E Id)
1006       { return Node19 (Id); }
1007
1008    INLINE E First_Entity (E Id)
1009       { return Node17 (Id); }
1010
1011    INLINE N First_Index (E Id)
1012       { return Node17 (Id); }
1013
1014    INLINE E First_Literal (E Id)
1015       { return Node17 (Id); }
1016
1017    INLINE E First_Optional_Parameter (E Id)
1018       { return Node14 (Id); }
1019
1020    INLINE E First_Private_Entity (E Id)
1021       { return Node16 (Id); }
1022
1023    INLINE E First_Rep_Item (E Id)
1024       { return Node6 (Id); }
1025
1026    INLINE N Freeze_Node (E Id)
1027       { return Node7 (Id); }
1028
1029    INLINE B From_With_Type (E Id)
1030       { return Flag159 (Id); }
1031
1032    INLINE E Full_View (E Id)
1033       { return Node11 (Id); }
1034
1035    INLINE B Function_Returns_With_DSP (E Id)
1036       { return Flag169 (Id); }
1037
1038    INLINE L Generic_Renamings (E Id)
1039       { return Elist23 (Id); }
1040
1041    INLINE L Girder_Constraint (E Id)
1042       { return Elist23 (Id); }
1043
1044    INLINE S Handler_Records (E Id)
1045       { return List10 (Id); }
1046
1047    INLINE B Has_Aliased_Components (E Id)
1048       { return Flag135 (Implementation_Base_Type (Id)); }
1049
1050    INLINE B Has_Alignment_Clause (E Id)
1051       { return Flag46 (Id); }
1052
1053    INLINE B Has_All_Calls_Remote (E Id)
1054       { return Flag79 (Id); }
1055
1056    INLINE B Has_Atomic_Components (E Id)
1057       { return Flag86 (Implementation_Base_Type (Id)); }
1058
1059    INLINE B Has_Biased_Representation (E Id)
1060       { return Flag139 (Id); }
1061
1062    INLINE B Has_Completion (E Id)
1063       { return Flag26 (Id); }
1064
1065    INLINE B Has_Completion_In_Body (E Id)
1066       { return Flag71 (Id); }
1067
1068    INLINE B Has_Complex_Representation (E Id)
1069       { return Flag140 (Implementation_Base_Type (Id)); }
1070
1071    INLINE B Has_Component_Size_Clause (E Id)
1072       { return Flag68 (Implementation_Base_Type (Id)); }
1073
1074    INLINE B Has_Controlled_Component (E Id)
1075       { return Flag43 (Base_Type (Id)); }
1076
1077    INLINE B Has_Controlling_Result (E Id)
1078       { return Flag98 (Id); }
1079
1080    INLINE B Has_Convention_Pragma (E Id)
1081       { return Flag119 (Id); }
1082
1083    INLINE B Has_Delayed_Freeze (E Id)
1084       { return Flag18 (Id); }
1085
1086    INLINE B Has_Discriminants (E Id)
1087       { return Flag5 (Id); }
1088
1089    INLINE B Has_Enumeration_Rep_Clause (E Id)
1090       { return Flag66 (Id); }
1091
1092    INLINE B Has_Exit (E Id)
1093       { return Flag47 (Id); }
1094
1095    INLINE B Has_External_Tag_Rep_Clause (E Id)
1096       { return Flag110 (Id); }
1097
1098    INLINE B Has_Forward_Instantiation (E Id)
1099       { return Flag175 (Id); }
1100
1101    INLINE B Has_Fully_Qualified_Name (E Id)
1102       { return Flag173 (Id); }
1103
1104    INLINE B Has_Gigi_Rep_Item (E Id)
1105       { return Flag82 (Id); }
1106
1107    INLINE B Has_Homonym (E Id)
1108       { return Flag56 (Id); }
1109
1110    INLINE B Has_Machine_Radix_Clause (E Id)
1111       { return Flag83 (Id); }
1112
1113    INLINE B Has_Master_Entity (E Id)
1114       { return Flag21 (Id); }
1115
1116    INLINE B Has_Missing_Return (E Id)
1117       { return Flag142 (Id); }
1118
1119    INLINE B Has_Nested_Block_With_Handler (E Id)
1120       { return Flag101 (Id); }
1121
1122    INLINE B Has_Non_Standard_Rep (E Id)
1123       { return Flag75 (Implementation_Base_Type (Id)); }
1124
1125    INLINE B Has_Object_Size_Clause (E Id)
1126       { return Flag172 (Id); }
1127
1128    INLINE B Has_Per_Object_Constraint (E Id)
1129       { return Flag154 (Id); }
1130
1131    INLINE B Has_Pragma_Controlled (E Id)
1132       { return Flag27 (Implementation_Base_Type (Id)); }
1133
1134    INLINE B Has_Pragma_Elaborate_Body (E Id)
1135       { return Flag150 (Id); }
1136
1137    INLINE B Has_Pragma_Inline (E Id)
1138       { return Flag157 (Id); }
1139
1140    INLINE B Has_Pragma_Pack (E Id)
1141       { return Flag121 (Implementation_Base_Type (Id)); }
1142
1143    INLINE B Has_Pragma_Pure_Function (E Id)
1144       { return Flag179 (Id); }
1145
1146    INLINE B Has_Pragma_Unreferenced (E Id)
1147       { return Flag180 (Id); }
1148
1149    INLINE B Has_Primitive_Operations (E Id)
1150       { return Flag120 (Base_Type (Id)); }
1151
1152    INLINE B Has_Private_Declaration (E Id)
1153       { return Flag155 (Id); }
1154
1155    INLINE B Has_Qualified_Name (E Id)
1156       { return Flag161 (Id); }
1157
1158    INLINE B Has_Record_Rep_Clause (E Id)
1159       { return Flag65 (Implementation_Base_Type (Id)); }
1160
1161    INLINE B Has_Recursive_Call (E Id)
1162       { return Flag143 (Id); }
1163
1164    INLINE B Has_Size_Clause (E Id)
1165       { return Flag29 (Id); }
1166
1167    INLINE B Has_Small_Clause (E Id)
1168       { return Flag67 (Id); }
1169
1170    INLINE B Has_Specified_Layout (E Id)
1171       { return Flag100 (Implementation_Base_Type (Id)); }
1172
1173    INLINE B Has_Storage_Size_Clause (E Id)
1174       { return Flag23 (Implementation_Base_Type (Id)); }
1175
1176    INLINE B Has_Subprogram_Descriptor (E Id)
1177       { return Flag93 (Id); }
1178
1179    INLINE B Has_Task (E Id)
1180       { return Flag30 (Base_Type (Id)); }
1181
1182    INLINE B Has_Unchecked_Union (E Id)
1183       { return Flag123 (Base_Type (Id)); }
1184
1185    INLINE B Has_Unknown_Discriminants (E Id)
1186       { return Flag72 (Id); }
1187
1188    INLINE B Has_Volatile_Components (E Id)
1189       { return Flag87 (Implementation_Base_Type (Id)); }
1190
1191    INLINE E Hiding_Loop_Variable (E Id)
1192       { return Node8 (Id); }
1193
1194    INLINE E Homonym (E Id)
1195       { return Node4 (Id); }
1196
1197    INLINE B In_Package_Body (E Id)
1198       { return Flag48 (Id); }
1199
1200    INLINE B In_Private_Part (E Id)
1201       { return Flag45 (Id); }
1202
1203    INLINE B In_Use (E Id)
1204       { return Flag8 (Id); }
1205
1206    INLINE L Inner_Instances (E Id)
1207       { return Elist23 (Id); }
1208
1209    INLINE N Interface_Name (E Id)
1210       { return Node21 (Id); }
1211
1212    INLINE B Is_Abstract (E Id)
1213       { return Flag19 (Id); }
1214
1215    INLINE B Is_Access_Constant (E Id)
1216       { return Flag69 (Id); }
1217
1218    INLINE B Is_Aliased (E Id)
1219       { return Flag15 (Id); }
1220
1221    INLINE B Is_AST_Entry (E Id)
1222       { return Flag132 (Id); }
1223
1224    INLINE B Is_Asynchronous (E Id)
1225       { return Flag81 (Id); }
1226
1227    INLINE B Is_Atomic (E Id)
1228       { return Flag85 (Id); }
1229
1230    INLINE B Is_Bit_Packed_Array (E Id)
1231       { return Flag122 (Implementation_Base_Type (Id)); }
1232
1233    INLINE B Is_Called (E Id)
1234       { return Flag102 (Id); }
1235
1236    INLINE B Is_Character_Type (E Id)
1237       { return Flag63 (Id); }
1238
1239    INLINE B Is_Child_Unit (E Id)
1240       { return Flag73 (Id); }
1241
1242    INLINE B Is_Compilation_Unit (E Id)
1243       { return Flag149 (Id); }
1244
1245    INLINE B Is_Completely_Hidden (E Id)
1246       { return Flag103 (Id); }
1247
1248    INLINE B Is_Constr_Subt_For_U_Nominal (E Id)
1249       { return Flag80 (Id); }
1250
1251    INLINE B Is_Constr_Subt_For_UN_Aliased (E Id)
1252       { return Flag141 (Id); }
1253
1254    INLINE B Is_Constrained (E Id)
1255       { return Flag12 (Id); }
1256
1257    INLINE B Is_Constructor (E Id)
1258       { return Flag76 (Id); }
1259
1260    INLINE B Is_Controlled (E Id)
1261       { return Flag42 (Base_Type (Id)); }
1262
1263    INLINE B Is_Controlling_Formal (E Id)
1264       { return Flag97 (Id); }
1265
1266    INLINE B Is_CPP_Class (E Id)
1267       { return Flag74 (Id); }
1268
1269    INLINE B Is_Destructor (E Id)
1270       { return Flag77 (Id); }
1271
1272    INLINE B Is_Discrim_SO_Function (E Id)
1273       { return Flag176 (Id); }
1274
1275    INLINE B Is_Dispatching_Operation (E Id)
1276       { return Flag6 (Id); }
1277
1278    INLINE B Is_Eliminated (E Id)
1279       { return Flag124 (Id); }
1280
1281    INLINE B Is_Entry_Formal (E Id)
1282       { return Flag52 (Id); }
1283
1284    INLINE B Is_Exported (E Id)
1285       { return Flag99 (Id); }
1286
1287    INLINE B Is_First_Subtype (E Id)
1288       { return Flag70 (Id); }
1289
1290    INLINE B Is_For_Access_Subtype (E Id)
1291       { return Flag118 (Id); }
1292
1293    INLINE B Is_Formal_Subprogram (E Id)
1294       { return Flag111 (Id); }
1295
1296    INLINE B Is_Frozen (E Id)
1297       { return Flag4 (Id); }
1298
1299    INLINE B Is_Generic_Actual_Type (E Id)
1300       { return Flag94 (Id); }
1301
1302    INLINE B Is_Generic_Instance (E Id)
1303       { return Flag130 (Id); }
1304
1305    INLINE B Is_Generic_Type (E Id)
1306       { return Flag13 (Id); }
1307
1308    INLINE B Is_Hidden (E Id)
1309       { return Flag57 (Id); }
1310
1311    INLINE B Is_Hidden_Open_Scope (E Id)
1312       { return Flag171 (Id); }
1313
1314    INLINE B Is_Immediately_Visible (E Id)
1315       { return Flag7 (Id); }
1316
1317    INLINE B Is_Imported (E Id)
1318       { return Flag24 (Id); }
1319
1320    INLINE B Is_Inlined (E Id)
1321       { return Flag11 (Id); }
1322
1323    INLINE B Is_Instantiated (E Id)
1324       { return Flag126 (Id); }
1325
1326    INLINE B Is_Internal (E Id)
1327       { return Flag17 (Id); }
1328
1329    INLINE B Is_Interrupt_Handler (E Id)
1330       { return Flag89 (Id); }
1331
1332    INLINE B Is_Intrinsic_Subprogram (E Id)
1333       { return Flag64 (Id); }
1334
1335    INLINE B Is_Itype (E Id)
1336       { return Flag91 (Id); }
1337
1338    INLINE B Is_Known_Valid (E Id)
1339       { return Flag170 (Id); }
1340
1341    INLINE B Is_Limited_Composite (E Id)
1342       { return Flag106 (Id); }
1343
1344    INLINE B Is_Limited_Record (E Id)
1345       { return Flag25 (Id); }
1346
1347    INLINE B Is_Machine_Code_Subprogram (E Id)
1348       { return Flag137 (Id); }
1349
1350    INLINE B Is_Non_Static_Subtype (E Id)
1351       { return Flag109 (Id); }
1352
1353    INLINE B Is_Null_Init_Proc (E Id)
1354       { return Flag178 (Id); }
1355
1356    INLINE B Is_Optional_Parameter (E Id)
1357       { return Flag134 (Id); }
1358
1359    INLINE B Is_Package_Body_Entity (E Id)
1360       { return Flag160 (Id); }
1361
1362    INLINE B Is_Packed (E Id)
1363       { return Flag51 (Implementation_Base_Type (Id)); }
1364
1365    INLINE B Is_Packed_Array_Type (E Id)
1366       { return Flag138 (Id); }
1367
1368    INLINE B Is_Potentially_Use_Visible (E Id)
1369       { return Flag9 (Id); }
1370
1371    INLINE B Is_Preelaborated (E Id)
1372       { return Flag59 (Id); }
1373
1374    INLINE B Is_Private_Composite (E Id)
1375       { return Flag107 (Id); }
1376
1377    INLINE B Is_Private_Descendant (E Id)
1378       { return Flag53 (Id); }
1379
1380    INLINE B Is_Psected (E Id)
1381       { return Flag153 (Id); }
1382
1383    INLINE B Is_Public (E Id)
1384       { return Flag10 (Id); }
1385
1386    INLINE B Is_Pure (E Id)
1387       { return Flag44 (Id); }
1388
1389    INLINE B Is_Remote_Call_Interface (E Id)
1390       { return Flag62 (Id); }
1391
1392    INLINE B Is_Remote_Types (E Id)
1393       { return Flag61 (Id); }
1394
1395    INLINE B Is_Renaming_Of_Object (E Id)
1396       { return Flag112 (Id); }
1397
1398    INLINE B Is_Shared_Passive (E Id)
1399       { return Flag60 (Id); }
1400
1401    INLINE B Is_Statically_Allocated (E Id)
1402       { return Flag28 (Id); }
1403
1404    INLINE B Is_Tag (E Id)
1405       { return Flag78 (Id); }
1406
1407    INLINE B Is_Tagged_Type (E Id)
1408       { return Flag55 (Id); }
1409
1410    INLINE B Is_True_Constant (E Id)
1411       { return Flag163 (Id); }
1412
1413    INLINE B Is_Unchecked_Union (E Id)
1414       { return Flag117 (Id); }
1415
1416    INLINE B Is_Unsigned_Type (E Id)
1417       { return Flag144 (Id); }
1418
1419    INLINE B Is_Valued_Procedure (E Id)
1420       { return Flag127 (Id); }
1421
1422    INLINE B Is_Visible_Child_Unit (E Id)
1423       { return Flag116 (Id); }
1424
1425    INLINE B Is_VMS_Exception (E Id)
1426       { return Flag133 (Id); }
1427
1428    INLINE B Is_Volatile (E Id)
1429       { return Flag16 (Id); }
1430
1431    INLINE E Last_Entity (E Id)
1432       { return Node20 (Id); }
1433
1434    INLINE E Lit_Indexes (E Id)
1435       { return Node15 (Id); }
1436
1437    INLINE E Lit_Strings (E Id)
1438       { return Node16 (Id); }
1439
1440    INLINE B Machine_Radix_10 (E Id)
1441       { return Flag84 (Id); }
1442
1443    INLINE E Master_Id (E Id)
1444       { return Node17 (Id); }
1445
1446    INLINE B Materialize_Entity (E Id)
1447       { return Flag168 (Id); }
1448
1449    INLINE M Mechanism (E Id)
1450       { return UI_To_Int (Uint8 (Id)); }
1451
1452    INLINE Uint Modulus (E Id)
1453       { return Uint17 (Base_Type (Id)); }
1454
1455    INLINE B Needs_Debug_Info (E Id)
1456       { return Flag147 (Id); }
1457
1458    INLINE B Needs_No_Actuals (E Id)
1459       { return Flag22 (Id); }
1460
1461    INLINE E Next_Inlined_Subprogram (E Id)
1462       { return Node12 (Id); }
1463
1464    INLINE B No_Pool_Assigned (E Id)
1465       { return Flag131 (Root_Type (Id)); }
1466
1467    INLINE B No_Return (E Id)
1468       { return Flag113 (Id); }
1469
1470    INLINE B Non_Binary_Modulus (E Id)
1471       { return Flag58 (Base_Type (Id)); }
1472
1473    INLINE B Nonzero_Is_True (E Id)
1474       { return Flag162 (Base_Type (Id)); }
1475
1476    INLINE U Normalized_First_Bit (E Id)
1477       { return Uint8 (Id); }
1478
1479    INLINE U Normalized_Position (E Id)
1480       { return Uint9 (Id); }
1481
1482    INLINE U Normalized_Position_Max (E Id)
1483       { return Uint10 (Id); }
1484
1485    INLINE B Not_Source_Assigned (E Id)
1486       { return Flag115 (Id); }
1487
1488    INLINE E Object_Ref (E Id)
1489       { return Node17 (Id); }
1490
1491    INLINE E Original_Array_Type (E Id)
1492       { return Node21 (Id); }
1493
1494    INLINE E Original_Record_Component (E Id)
1495       { return Node22 (Id); }
1496
1497    INLINE E Packed_Array_Type (E Id)
1498       { return Node23 (Id); }
1499
1500    INLINE E Parent_Subtype (E Id)
1501       { return Node19 (Id); }
1502
1503    INLINE L Primitive_Operations (E Id)
1504       { return Elist15 (Id); }
1505
1506    INLINE E Prival (E Id)
1507       { return Node17 (Id); }
1508
1509    INLINE L Privals_Chain (E Id)
1510       { return Elist23 (Id); }
1511
1512    INLINE L Private_Dependents (E Id)
1513       { return Elist18 (Id); }
1514
1515    INLINE N Private_View (E Id)
1516       { return Node22 (Id); }
1517
1518    INLINE E Protected_Body_Subprogram (E Id)
1519       { return Node11 (Id); }
1520
1521    INLINE E Protected_Formal (E Id)
1522       { return Node22 (Id); }
1523
1524    INLINE N Protected_Operation (E Id)
1525       { return Node23 (Id); }
1526
1527    INLINE B Reachable (E Id)
1528       { return Flag49 (Id); }
1529
1530    INLINE B Referenced (E Id)
1531       { return Flag156 (Id); }
1532
1533    INLINE N Referenced_Object (E Id)
1534       { return Node10 (Id); }
1535
1536    INLINE N Register_Exception_Call (E Id)
1537       { return Node20 (Id); }
1538
1539    INLINE E Related_Array_Object (E Id)
1540       { return Node19 (Id); }
1541
1542    INLINE E Related_Instance (E Id)
1543       { return Node15 (Id); }
1544
1545    INLINE N Renamed_Entity (E Id)
1546       { return Node18 (Id); }
1547
1548    INLINE N Renamed_Object (E Id)
1549       { return Node18 (Id); }
1550
1551    INLINE U Renaming_Map (E Id)
1552       { return Uint9 (Id); }
1553
1554    INLINE B Return_Present (E Id)
1555       { return Flag54 (Id); }
1556
1557    INLINE B Returns_By_Ref (E Id)
1558       { return Flag90 (Id); }
1559
1560    INLINE B Reverse_Bit_Order (E Id)
1561       { return Flag164 (Base_Type (Id)); }
1562
1563    INLINE U RM_Size (E Id)
1564       { return Uint13 (Id); }
1565
1566    INLINE N Scalar_Range (E Id)
1567       { return Node20 (Id); }
1568
1569    INLINE U Scale_Value (E Id)
1570       { return Uint15 (Id); }
1571
1572    INLINE U Scope_Depth_Value (E Id)
1573       { return Uint22 (Id); }
1574
1575    INLINE B Sec_Stack_Needed_For_Return (E Id)
1576       { return Flag167 (Id); }
1577
1578    INLINE S Shadow_Entities (E Id)
1579       { return List14 (Id); }
1580
1581    INLINE E Shared_Var_Assign_Proc (E Id)
1582       { return Node22 (Id); }
1583
1584    INLINE E Shared_Var_Read_Proc (E Id)
1585       { return Node15 (Id); }
1586
1587    INLINE N Size_Check_Code (E Id)
1588       { return Node9 (Id); }
1589
1590    INLINE B Size_Depends_On_Discriminant (E Id)
1591       { return Flag177 (Id); }
1592
1593    INLINE B Size_Known_At_Compile_Time (E Id)
1594       { return Flag92 (Id); }
1595
1596    INLINE R Small_Value (E Id)
1597       { return Ureal21 (Id); }
1598
1599    INLINE E Spec_Entity (E Id)
1600       { return Node19 (Id); }
1601
1602    INLINE E Storage_Size_Variable (E Id)
1603       { return Node15 (Implementation_Base_Type (Id)); }
1604
1605    INLINE B Strict_Alignment (E Id)
1606       { return Flag145 (Implementation_Base_Type (Id)); }
1607
1608    INLINE U String_Literal_Length (E Id)
1609       { return Uint16 (Id); }
1610
1611    INLINE N String_Literal_Low_Bound (E Id)
1612       { return Node15 (Id); }
1613
1614    INLINE B Suppress_Access_Checks (E Id)
1615       { return Flag31 (Id); }
1616
1617    INLINE B Suppress_Accessibility_Checks (E Id)
1618       { return Flag32 (Id); }
1619
1620    INLINE B Suppress_Discriminant_Checks (E Id)
1621       { return Flag33 (Id); }
1622
1623    INLINE B Suppress_Division_Checks (E Id)
1624       { return Flag34 (Id); }
1625
1626    INLINE B Suppress_Elaboration_Checks (E Id)
1627       { return Flag35 (Id); }
1628
1629    INLINE B Suppress_Elaboration_Warnings (E Id)
1630       { return Flag148 (Id); }
1631
1632    INLINE B Suppress_Index_Checks (E Id)
1633       { return Flag36 (Id); }
1634
1635    INLINE B Suppress_Init_Proc (E Id)
1636       { return Flag105 (Base_Type (Id)); }
1637
1638    INLINE B Suppress_Length_Checks (E Id)
1639       { return Flag37 (Id); }
1640
1641    INLINE B Suppress_Overflow_Checks (E Id)
1642       { return Flag38 (Id); }
1643
1644    INLINE B Suppress_Range_Checks (E Id)
1645       { return Flag39 (Id); }
1646
1647    INLINE B Suppress_Storage_Checks (E Id)
1648       { return Flag40 (Id); }
1649
1650    INLINE B Suppress_Style_Checks (E Id)
1651       { return Flag165 (Id); }
1652
1653    INLINE B Suppress_Tag_Checks (E Id)
1654       { return Flag41 (Id); }
1655
1656    INLINE E Underlying_Full_View (E Id)
1657       { return Node19 (Id); }
1658
1659    INLINE N Unset_Reference (E Id)
1660       { return Node16 (Id); }
1661
1662    INLINE B Uses_Sec_Stack (E Id)
1663       { return Flag95 (Id); }
1664
1665    INLINE B Vax_Float (E Id)
1666       { return Flag151 (Base_Type (Id)); }
1667
1668    INLINE B Warnings_Off (E Id)
1669       { return Flag96 (Id); }
1670
1671    INLINE B Is_Access_Type                      (E Id)
1672       { return IN (Ekind (Id), Access_Kind); }
1673
1674    INLINE B Is_Array_Type                       (E Id)
1675       { return IN (Ekind (Id), Array_Kind); }
1676
1677    INLINE B Is_Class_Wide_Type                  (E Id)
1678       { return IN (Ekind (Id), Class_Wide_Kind); }
1679
1680    INLINE B Is_Composite_Type                   (E Id)
1681       { return IN (Ekind (Id), Composite_Kind); }
1682
1683    INLINE B Is_Concurrent_Body                  (E Id)
1684       { return IN (Ekind (Id), Concurrent_Body_Kind); }
1685
1686    INLINE B Is_Concurrent_Record_Type           (E Id)
1687       { return Flag20 (Id); }
1688
1689    INLINE B Is_Concurrent_Type                  (E Id)
1690       { return IN (Ekind (Id), Concurrent_Kind); }
1691
1692    INLINE B Is_Decimal_Fixed_Point_Type         (E Id)
1693       { return IN (Ekind (Id), Decimal_Fixed_Point_Kind); }
1694
1695    INLINE B Is_Digits_Type                      (E Id)
1696       { return IN (Ekind (Id), Digits_Kind); }
1697
1698    INLINE B Is_Discrete_Or_Fixed_Point_Type     (E Id)
1699       { return IN (Ekind (Id), Discrete_Or_Fixed_Point_Kind); }
1700
1701    INLINE B Is_Discrete_Type                    (E Id)
1702       { return IN (Ekind (Id), Discrete_Kind); }
1703
1704    INLINE B Is_Elementary_Type                  (E Id)
1705       { return IN (Ekind (Id), Elementary_Kind); }
1706
1707    INLINE B Is_Entry                            (E Id)
1708       { return IN (Ekind (Id), Entry_Kind); }
1709
1710    INLINE B Is_Enumeration_Type                 (E Id)
1711       { return IN (Ekind (Id), Enumeration_Kind); }
1712
1713    INLINE B Is_Fixed_Point_Type                 (E Id)
1714       { return IN (Ekind (Id), Fixed_Point_Kind); }
1715
1716    INLINE B Is_Floating_Point_Type              (E Id)
1717       { return IN (Ekind (Id), Float_Kind); }
1718
1719    INLINE B Is_Formal                           (E Id)
1720       { return IN (Ekind (Id), Formal_Kind); }
1721
1722    INLINE B Is_Generic_Unit                     (E Id)
1723       { return IN (Ekind (Id), Generic_Unit_Kind); }
1724
1725    INLINE B Is_Incomplete_Or_Private_Type       (E Id)
1726       { return IN (Ekind (Id), Incomplete_Or_Private_Kind); }
1727
1728    INLINE B Is_Integer_Type                     (E Id)
1729       { return IN (Ekind (Id), Integer_Kind); }
1730
1731    INLINE B Is_Modular_Integer_Type             (E Id)
1732       { return IN (Ekind (Id), Modular_Integer_Kind); }
1733
1734    INLINE B Is_Named_Number                     (E Id)
1735       { return IN (Ekind (Id), Named_Kind); }
1736
1737    INLINE B Is_Numeric_Type                     (E Id)
1738       { return IN (Ekind (Id), Numeric_Kind); }
1739
1740    INLINE B Is_Object                           (E Id)
1741       { return IN (Ekind (Id), Object_Kind); }
1742
1743    INLINE B Is_Ordinary_Fixed_Point_Type        (E Id)
1744       { return IN (Ekind (Id), Ordinary_Fixed_Point_Kind); }
1745
1746    INLINE B Is_Overloadable                     (E Id)
1747       { return IN (Ekind (Id), Overloadable_Kind); }
1748
1749    INLINE B Is_Private_Type                     (E Id)
1750       { return IN (Ekind (Id), Private_Kind); }
1751
1752    INLINE B Is_Protected_Type                   (E Id)
1753       { return IN (Ekind (Id), Protected_Kind); }
1754
1755    INLINE B Is_Real_Type                        (E Id)
1756       { return IN (Ekind (Id), Real_Kind); }
1757
1758    INLINE B Is_Record_Type                      (E Id)
1759       { return IN (Ekind (Id), Record_Kind); }
1760
1761    INLINE B Is_Scalar_Type                      (E Id)
1762       { return IN (Ekind (Id), Scalar_Kind); }
1763
1764    INLINE B Is_Signed_Integer_Type              (E Id)
1765       { return IN (Ekind (Id), Signed_Integer_Kind); }
1766
1767    INLINE B Is_Subprogram                       (E Id)
1768       { return IN (Ekind (Id), Subprogram_Kind); }
1769
1770    INLINE B Is_Task_Type                        (E Id)
1771       { return IN (Ekind (Id), Task_Kind); }
1772
1773    INLINE B Is_Type                             (E Id)
1774       { return IN (Ekind (Id), Type_Kind); }
1775
1776    INLINE N Entry_Index_Type (E Id)
1777       { return Etype (Discrete_Subtype_Definition (Parent (Id))); }
1778
1779    INLINE Node_Id Next_Index (Node_Id Id)
1780       { return Next (Id); }
1781
1782    INLINE E Next_Literal (E Id)
1783       { return Next (Id); }
1784
1785    INLINE Formal_Kind Parameter_Mode (E Id)
1786       { return Ekind (Id); }
1787
1788 /* End of einfo.h (C version of Einfo package specification) */