gcc/ada/snames.ads

   1 ------------------------------------------------------------------------------\r
   2 --                                                                          --\r
   3 --                         GNAT COMPILER COMPONENTS                         --\r
   4 --                                                                          --\r
   5 --                               S N A M E S                                --\r
   6 --                                                                          --\r
   7 --                                 S p e c                                  --\r
   8 --                                                                          --\r
   9 --          Copyright (C) 1992-2003, Free Software Foundation, Inc.         --\r
  10 --                                                                          --\r
  11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --\r
  12 -- terms of the  GNU General Public License as published  by the Free Soft- --\r
  13 -- ware  Foundation;  either version 2,  or (at your option) any later ver- --\r
  14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --\r
  15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --\r
  16 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --\r
  17 -- for  more details.  You should have  received  a copy of the GNU General --\r
  18 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --\r
  19 -- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --\r
  20 -- MA 02111-1307, USA.                                                      --\r
  21 --                                                                          --\r
  22 -- As a special exception,  if other files  instantiate  generics from this --\r
  23 -- unit, or you link  this unit with other files  to produce an executable, --\r
  24 -- this  unit  does not  by itself cause  the resulting  executable  to  be --\r
  25 -- covered  by the  GNU  General  Public  License.  This exception does not --\r
  26 -- however invalidate  any other reasons why  the executable file  might be --\r
  27 -- covered by the  GNU Public License.                                      --\r
  28 --                                                                          --\r
  29 -- GNAT was originally developed  by the GNAT team at  New York University. --\r
  30 -- Extensive contributions were provided by Ada Core Technologies Inc.      --\r
  31 --                                                                          --\r
  32 ------------------------------------------------------------------------------\r
  33 \r
  34 with Types; use Types;\r
  35 \r
  36 package Snames is\r
  37 \r
  38 --  This package contains definitions of standard names (i.e. entries in the\r
  39 --  Names table) that are used throughout the GNAT compiler). It also contains\r
  40 --  the definitions of some enumeration types whose definitions are tied to\r
  41 --  the order of these preset names.\r
  42 \r
  43 --  WARNING: There is a C file, a-snames.h which duplicates some of the\r
  44 --  definitions in this file and must be kept properly synchronized.\r
  45 \r
  46    ------------------\r
  47    -- Preset Names --\r
  48    ------------------\r
  49 \r
  50    --  The following are preset entries in the names table, which are\r
  51    --  entered at the start of every compilation for easy access. Note\r
  52    --  that the order of initialization of these names in the body must\r
  53    --  be coordinated with the order of names in this table.\r
  54 \r
  55    --  Note: a name may not appear more than once in the following list.\r
  56    --  If additional pragmas or attributes are introduced which might\r
  57    --  otherwise cause a duplicate, then list it only once in this table,\r
  58    --  and adjust the definition of the functions for testing for pragma\r
  59    --  names and attribute names, and returning their ID values. Of course\r
  60    --  everything is simpler if no such duplications occur!\r
  61 \r
  62    --  First we have the one character names used to optimize the lookup\r
  63    --  process for one character identifiers (to avoid the hashing in this\r
  64    --  case) There are a full 256 of these, but only the entries for lower\r
  65    --  case and upper case letters have identifiers\r
  66 \r
  67    --  The lower case letter entries are used for one character identifiers\r
  68    --  appearing in the source, for example in pragma Interface (C).\r
  69 \r
  70    Name_A         : constant Name_Id := First_Name_Id + Character'Pos ('a');\r
  71    Name_B         : constant Name_Id := First_Name_Id + Character'Pos ('b');\r
  72    Name_C         : constant Name_Id := First_Name_Id + Character'Pos ('c');\r
  73    Name_D         : constant Name_Id := First_Name_Id + Character'Pos ('d');\r
  74    Name_E         : constant Name_Id := First_Name_Id + Character'Pos ('e');\r
  75    Name_F         : constant Name_Id := First_Name_Id + Character'Pos ('f');\r
  76    Name_G         : constant Name_Id := First_Name_Id + Character'Pos ('g');\r
  77    Name_H         : constant Name_Id := First_Name_Id + Character'Pos ('h');\r
  78    Name_I         : constant Name_Id := First_Name_Id + Character'Pos ('i');\r
  79    Name_J         : constant Name_Id := First_Name_Id + Character'Pos ('j');\r
  80    Name_K         : constant Name_Id := First_Name_Id + Character'Pos ('k');\r
  81    Name_L         : constant Name_Id := First_Name_Id + Character'Pos ('l');\r
  82    Name_M         : constant Name_Id := First_Name_Id + Character'Pos ('m');\r
  83    Name_N         : constant Name_Id := First_Name_Id + Character'Pos ('n');\r
  84    Name_O         : constant Name_Id := First_Name_Id + Character'Pos ('o');\r
  85    Name_P         : constant Name_Id := First_Name_Id + Character'Pos ('p');\r
  86    Name_Q         : constant Name_Id := First_Name_Id + Character'Pos ('q');\r
  87    Name_R         : constant Name_Id := First_Name_Id + Character'Pos ('r');\r
  88    Name_S         : constant Name_Id := First_Name_Id + Character'Pos ('s');\r
  89    Name_T         : constant Name_Id := First_Name_Id + Character'Pos ('t');\r
  90    Name_U         : constant Name_Id := First_Name_Id + Character'Pos ('u');\r
  91    Name_V         : constant Name_Id := First_Name_Id + Character'Pos ('v');\r
  92    Name_W         : constant Name_Id := First_Name_Id + Character'Pos ('w');\r
  93    Name_X         : constant Name_Id := First_Name_Id + Character'Pos ('x');\r
  94    Name_Y         : constant Name_Id := First_Name_Id + Character'Pos ('y');\r
  95    Name_Z         : constant Name_Id := First_Name_Id + Character'Pos ('z');\r
  96 \r
  97    --  The upper case letter entries are used by expander code for local\r
  98    --  variables that do not require unique names (e.g. formal parameter\r
  99    --  names in constructed procedures)\r
 100 \r
 101    Name_uA        : constant Name_Id := First_Name_Id + Character'Pos ('A');\r
 102    Name_uB        : constant Name_Id := First_Name_Id + Character'Pos ('B');\r
 103    Name_uC        : constant Name_Id := First_Name_Id + Character'Pos ('C');\r
 104    Name_uD        : constant Name_Id := First_Name_Id + Character'Pos ('D');\r
 105    Name_uE        : constant Name_Id := First_Name_Id + Character'Pos ('E');\r
 106    Name_uF        : constant Name_Id := First_Name_Id + Character'Pos ('F');\r
 107    Name_uG        : constant Name_Id := First_Name_Id + Character'Pos ('G');\r
 108    Name_uH        : constant Name_Id := First_Name_Id + Character'Pos ('H');\r
 109    Name_uI        : constant Name_Id := First_Name_Id + Character'Pos ('I');\r
 110    Name_uJ        : constant Name_Id := First_Name_Id + Character'Pos ('J');\r
 111    Name_uK        : constant Name_Id := First_Name_Id + Character'Pos ('K');\r
 112    Name_uL        : constant Name_Id := First_Name_Id + Character'Pos ('L');\r
 113    Name_uM        : constant Name_Id := First_Name_Id + Character'Pos ('M');\r
 114    Name_uN        : constant Name_Id := First_Name_Id + Character'Pos ('N');\r
 115    Name_uO        : constant Name_Id := First_Name_Id + Character'Pos ('O');\r
 116    Name_uP        : constant Name_Id := First_Name_Id + Character'Pos ('P');\r
 117    Name_uQ        : constant Name_Id := First_Name_Id + Character'Pos ('Q');\r
 118    Name_uR        : constant Name_Id := First_Name_Id + Character'Pos ('R');\r
 119    Name_uS        : constant Name_Id := First_Name_Id + Character'Pos ('S');\r
 120    Name_uT        : constant Name_Id := First_Name_Id + Character'Pos ('T');\r
 121    Name_uU        : constant Name_Id := First_Name_Id + Character'Pos ('U');\r
 122    Name_uV        : constant Name_Id := First_Name_Id + Character'Pos ('V');\r
 123    Name_uW        : constant Name_Id := First_Name_Id + Character'Pos ('W');\r
 124    Name_uX        : constant Name_Id := First_Name_Id + Character'Pos ('X');\r
 125    Name_uY        : constant Name_Id := First_Name_Id + Character'Pos ('Y');\r
 126    Name_uZ        : constant Name_Id := First_Name_Id + Character'Pos ('Z');\r
 127 \r
 128    --  Note: the following table is read by the utility program XSNAMES and\r
 129    --  its format should not be changed without coordinating with this program.\r
 130 \r
 131    N : constant Name_Id := First_Name_Id + 256;\r
 132    --  Synonym used in standard name definitions\r
 133 \r
 134    --  Some names that are used by gigi, and whose definitions are reflected\r
 135    --  in the C header file a-snames.h. They are placed at the start so that\r
 136    --  the need to modify a-snames.h is minimized.\r
 137 \r
 138    Name_uParent                        : constant Name_Id := N + 000;\r
 139    Name_uTag                           : constant Name_Id := N + 001;\r
 140    Name_Off                            : constant Name_Id := N + 002;\r
 141    Name_Space                          : constant Name_Id := N + 003;\r
 142    Name_Time                           : constant Name_Id := N + 004;\r
 143 \r
 144    --  Some special names used by the expander. Note that the lower case u's\r
 145    --  at the start of these names get translated to extra underscores. These\r
 146    --  names are only referenced internally by expander generated code.\r
 147 \r
 148    Name_uAbort_Signal                  : constant Name_Id := N + 005;\r
 149    Name_uAlignment                     : constant Name_Id := N + 006;\r
 150    Name_uAssign                        : constant Name_Id := N + 007;\r
 151    Name_uChain                         : constant Name_Id := N + 008;\r
 152    Name_uClean                         : constant Name_Id := N + 009;\r
 153    Name_uController                    : constant Name_Id := N + 010;\r
 154    Name_uEntry_Bodies                  : constant Name_Id := N + 011;\r
 155    Name_uExpunge                       : constant Name_Id := N + 012;\r
 156    Name_uFinal_List                    : constant Name_Id := N + 013;\r
 157    Name_uIdepth                        : constant Name_Id := N + 014;\r
 158    Name_uInit                          : constant Name_Id := N + 015;\r
 159    Name_uLocal_Final_List              : constant Name_Id := N + 016;\r
 160    Name_uMaster                        : constant Name_Id := N + 017;\r
 161    Name_uObject                        : constant Name_Id := N + 018;\r
 162    Name_uPriority                      : constant Name_Id := N + 019;\r
 163    Name_uProcess_ATSD                  : constant Name_Id := N + 020;\r
 164    Name_uSecondary_Stack               : constant Name_Id := N + 021;\r
 165    Name_uService                       : constant Name_Id := N + 022;\r
 166    Name_uSize                          : constant Name_Id := N + 023;\r
 167    Name_uTags                          : constant Name_Id := N + 024;\r
 168    Name_uTask                          : constant Name_Id := N + 025;\r
 169    Name_uTask_Id                       : constant Name_Id := N + 026;\r
 170    Name_uTask_Info                     : constant Name_Id := N + 027;\r
 171    Name_uTask_Name                     : constant Name_Id := N + 028;\r
 172    Name_uTrace_Sp                      : constant Name_Id := N + 029;\r
 173 \r
 174    --  Names of routines in Ada.Finalization, needed by expander\r
 175 \r
 176    Name_Initialize                     : constant Name_Id := N + 030;\r
 177    Name_Adjust                         : constant Name_Id := N + 031;\r
 178    Name_Finalize                       : constant Name_Id := N + 032;\r
 179 \r
 180    --  Names of fields declared in System.Finalization_Implementation,\r
 181    --  needed by the expander when generating code for finalization.\r
 182 \r
 183    Name_Next                           : constant Name_Id := N + 033;\r
 184    Name_Prev                           : constant Name_Id := N + 034;\r
 185 \r
 186    --  Names of allocation routines, also needed by expander\r
 187 \r
 188    Name_Allocate                       : constant Name_Id := N + 035;\r
 189    Name_Deallocate                     : constant Name_Id := N + 036;\r
 190    Name_Dereference                    : constant Name_Id := N + 037;\r
 191 \r
 192    --  Names of Text_IO generic subpackages (see Rtsfind.Text_IO_Kludge)\r
 193 \r
 194    First_Text_IO_Package               : constant Name_Id := N + 038;\r
 195    Name_Decimal_IO                     : constant Name_Id := N + 038;\r
 196    Name_Enumeration_IO                 : constant Name_Id := N + 039;\r
 197    Name_Fixed_IO                       : constant Name_Id := N + 040;\r
 198    Name_Float_IO                       : constant Name_Id := N + 041;\r
 199    Name_Integer_IO                     : constant Name_Id := N + 042;\r
 200    Name_Modular_IO                     : constant Name_Id := N + 043;\r
 201    Last_Text_IO_Package                : constant Name_Id := N + 043;\r
 202 \r
 203    subtype Text_IO_Package_Name is Name_Id\r
 204      range First_Text_IO_Package .. Last_Text_IO_Package;\r
 205 \r
 206    --  Names of files in library for Ada.Text_IO and Ada.Wide_Text_IO\r
 207 \r
 208    Name_a_textio                       : constant Name_Id := N + 044;\r
 209    Name_a_witeio                       : constant Name_Id := N + 045;\r
 210 \r
 211    --  Some miscellaneous names used for error detection/recovery\r
 212 \r
 213    Name_Const                          : constant Name_Id := N + 046;\r
 214    Name_Error                          : constant Name_Id := N + 047;\r
 215    Name_Go                             : constant Name_Id := N + 048;\r
 216    Name_Put                            : constant Name_Id := N + 049;\r
 217    Name_Put_Line                       : constant Name_Id := N + 050;\r
 218    Name_To                             : constant Name_Id := N + 051;\r
 219 \r
 220    --  Names for packages that are treated specially by the compiler\r
 221 \r
 222    Name_Finalization                   : constant Name_Id := N + 052;\r
 223    Name_Finalization_Root              : constant Name_Id := N + 053;\r
 224    Name_Interfaces                     : constant Name_Id := N + 054;\r
 225    Name_Standard                       : constant Name_Id := N + 055;\r
 226    Name_System                         : constant Name_Id := N + 056;\r
 227    Name_Text_IO                        : constant Name_Id := N + 057;\r
 228    Name_Wide_Text_IO                   : constant Name_Id := N + 058;\r
 229 \r
 230    --  Names of identifiers used in expanding distribution stubs\r
 231 \r
 232    Name_Addr                           : constant Name_Id := N + 059;\r
 233    Name_Async                          : constant Name_Id := N + 060;\r
 234    Name_Get_Active_Partition_ID        : constant Name_Id := N + 061;\r
 235    Name_Get_RCI_Package_Receiver       : constant Name_Id := N + 062;\r
 236    Name_Origin                         : constant Name_Id := N + 063;\r
 237    Name_Params                         : constant Name_Id := N + 064;\r
 238    Name_Partition                      : constant Name_Id := N + 065;\r
 239    Name_Partition_Interface            : constant Name_Id := N + 066;\r
 240    Name_Ras                            : constant Name_Id := N + 067;\r
 241    Name_RCI_Name                       : constant Name_Id := N + 068;\r
 242    Name_Receiver                       : constant Name_Id := N + 069;\r
 243    Name_Result                         : constant Name_Id := N + 070;\r
 244    Name_Rpc                            : constant Name_Id := N + 071;\r
 245    Name_Subp_Id                        : constant Name_Id := N + 072;\r
 246 \r
 247    --  Operator Symbol entries. The actual names have an upper case O at\r
 248    --  the start in place of the Op_ prefix (e.g. the actual name that\r
 249    --  corresponds to Name_Op_Abs is "Oabs".\r
 250 \r
 251    First_Operator_Name                 : constant Name_Id := N + 073;\r
 252    Name_Op_Abs                         : constant Name_Id := N + 073; -- "abs"\r
 253    Name_Op_And                         : constant Name_Id := N + 074; -- "and"\r
 254    Name_Op_Mod                         : constant Name_Id := N + 075; -- "mod"\r
 255    Name_Op_Not                         : constant Name_Id := N + 076; -- "not"\r
 256    Name_Op_Or                          : constant Name_Id := N + 077; -- "or"\r
 257    Name_Op_Rem                         : constant Name_Id := N + 078; -- "rem"\r
 258    Name_Op_Xor                         : constant Name_Id := N + 079; -- "xor"\r
 259    Name_Op_Eq                          : constant Name_Id := N + 080; -- "="\r
 260    Name_Op_Ne                          : constant Name_Id := N + 081; -- "/="\r
 261    Name_Op_Lt                          : constant Name_Id := N + 082; -- "<"\r
 262    Name_Op_Le                          : constant Name_Id := N + 083; -- "<="\r
 263    Name_Op_Gt                          : constant Name_Id := N + 084; -- ">"\r
 264    Name_Op_Ge                          : constant Name_Id := N + 085; -- ">="\r
 265    Name_Op_Add                         : constant Name_Id := N + 086; -- "+"\r
 266    Name_Op_Subtract                    : constant Name_Id := N + 087; -- "-"\r
 267    Name_Op_Concat                      : constant Name_Id := N + 088; -- "&"\r
 268    Name_Op_Multiply                    : constant Name_Id := N + 089; -- "*"\r
 269    Name_Op_Divide                      : constant Name_Id := N + 090; -- "/"\r
 270    Name_Op_Expon                       : constant Name_Id := N + 091; -- "**"\r
 271    Last_Operator_Name                  : constant Name_Id := N + 091;\r
 272 \r
 273    --  Names for all pragmas recognized by GNAT. The entries with the comment\r
 274    --  "Ada 83" are pragmas that are defined in Ada 83, but not in Ada 95.\r
 275    --  These pragmas are fully implemented in both Ada 83 and Ada 95 modes\r
 276    --  in GNAT.\r
 277 \r
 278    --  The entries marked GNAT are pragmas that are defined by GNAT\r
 279    --  and implemented in both Ada 83 and Ada 95 modes. Full descriptions\r
 280    --  of these implementation dependent pragmas may be found in the\r
 281    --  appropriate section in unit Sem_Prag in file sem-prag.adb.\r
 282 \r
 283    --  The entries marked VMS are VMS specific pragmas that are recognized\r
 284    --  only in OpenVMS versions of GNAT. They are ignored in other versions\r
 285    --  with an appropriate warning.\r
 286 \r
 287    --  The entries marked AAMP are AAMP specific pragmas that are recognized\r
 288    --  only in GNAT for the AAMP. They are ignored in other versions with\r
 289    --  appropriate warnings.\r
 290 \r
 291    First_Pragma_Name                   : constant Name_Id := N + 092;\r
 292 \r
 293    --  Configuration pragmas are grouped at start\r
 294 \r
 295    Name_Ada_83                         : constant Name_Id := N + 092; -- GNAT\r
 296    Name_Ada_95                         : constant Name_Id := N + 093; -- GNAT\r
 297    Name_C_Pass_By_Copy                 : constant Name_Id := N + 094; -- GNAT\r
 298    Name_Compile_Time_Warning           : constant Name_Id := N + 095; -- GNAT\r
 299    Name_Component_Alignment            : constant Name_Id := N + 096; -- GNAT\r
 300    Name_Convention_Identifier          : constant Name_Id := N + 097; -- GNAT\r
 301    Name_Discard_Names                  : constant Name_Id := N + 098;\r
 302    Name_Elaboration_Checks             : constant Name_Id := N + 099; -- GNAT\r
 303    Name_Eliminate                      : constant Name_Id := N + 100; -- GNAT\r
 304    Name_Explicit_Overriding            : constant Name_Id := N + 101;\r
 305    Name_Extend_System                  : constant Name_Id := N + 102; -- GNAT\r
 306    Name_Extensions_Allowed             : constant Name_Id := N + 103; -- GNAT\r
 307    Name_External_Name_Casing           : constant Name_Id := N + 104; -- GNAT\r
 308    Name_Float_Representation           : constant Name_Id := N + 105; -- GNAT\r
 309    Name_Initialize_Scalars             : constant Name_Id := N + 106; -- GNAT\r
 310    Name_Interrupt_State                : constant Name_Id := N + 107; -- GNAT\r
 311    Name_License                        : constant Name_Id := N + 108; -- GNAT\r
 312    Name_Locking_Policy                 : constant Name_Id := N + 109;\r
 313    Name_Long_Float                     : constant Name_Id := N + 110; -- VMS\r
 314    Name_No_Run_Time                    : constant Name_Id := N + 111; -- GNAT\r
 315    Name_Normalize_Scalars              : constant Name_Id := N + 112;\r
 316    Name_Polling                        : constant Name_Id := N + 113; -- GNAT\r
 317    Name_Persistent_Data                : constant Name_Id := N + 114; -- GNAT\r
 318    Name_Persistent_Object              : constant Name_Id := N + 115; -- GNAT\r
 319    Name_Propagate_Exceptions           : constant Name_Id := N + 116; -- GNAT\r
 320    Name_Queuing_Policy                 : constant Name_Id := N + 117;\r
 321    Name_Ravenscar                      : constant Name_Id := N + 118;\r
 322    Name_Restricted_Run_Time            : constant Name_Id := N + 119;\r
 323    Name_Restrictions                   : constant Name_Id := N + 120;\r
 324    Name_Restriction_Warnings           : constant Name_Id := N + 121; -- GNAT\r
 325    Name_Reviewable                     : constant Name_Id := N + 122;\r
 326    Name_Source_File_Name               : constant Name_Id := N + 123; -- GNAT\r
 327    Name_Source_File_Name_Project       : constant Name_Id := N + 124; -- GNAT\r
 328    Name_Style_Checks                   : constant Name_Id := N + 125; -- GNAT\r
 329    Name_Suppress                       : constant Name_Id := N + 126;\r
 330    Name_Suppress_Exception_Locations   : constant Name_Id := N + 127; -- GNAT\r
 331    Name_Task_Dispatching_Policy        : constant Name_Id := N + 128;\r
 332    Name_Universal_Data                 : constant Name_Id := N + 129; -- AAMP\r
 333    Name_Unsuppress                     : constant Name_Id := N + 130; -- GNAT\r
 334    Name_Use_VADS_Size                  : constant Name_Id := N + 131; -- GNAT\r
 335    Name_Validity_Checks                : constant Name_Id := N + 132; -- GNAT\r
 336    Name_Warnings                       : constant Name_Id := N + 133; -- GNAT\r
 337    Last_Configuration_Pragma_Name      : constant Name_Id := N + 133;\r
 338 \r
 339    --  Remaining pragma names\r
 340 \r
 341    Name_Abort_Defer                    : constant Name_Id := N + 134; -- GNAT\r
 342    Name_All_Calls_Remote               : constant Name_Id := N + 135;\r
 343    Name_Annotate                       : constant Name_Id := N + 136; -- GNAT\r
 344 \r
 345    --  Note: AST_Entry is not in this list because its name matches the\r
 346    --  name of the corresponding attribute. However, it is included in the\r
 347    --  definition of the type Attribute_Id, and the functions Get_Pragma_Id\r
 348    --  and Check_Pragma_Id correctly recognize and process Name_AST_Entry.\r
 349    --  AST_Entry is a VMS specific pragma.\r
 350 \r
 351    Name_Assert                         : constant Name_Id := N + 137; -- GNAT\r
 352    Name_Asynchronous                   : constant Name_Id := N + 138;\r
 353    Name_Atomic                         : constant Name_Id := N + 139;\r
 354    Name_Atomic_Components              : constant Name_Id := N + 140;\r
 355    Name_Attach_Handler                 : constant Name_Id := N + 141;\r
 356    Name_Comment                        : constant Name_Id := N + 142; -- GNAT\r
 357    Name_Common_Object                  : constant Name_Id := N + 143; -- GNAT\r
 358    Name_Complex_Representation         : constant Name_Id := N + 144; -- GNAT\r
 359    Name_Controlled                     : constant Name_Id := N + 145;\r
 360    Name_Convention                     : constant Name_Id := N + 146;\r
 361    Name_CPP_Class                      : constant Name_Id := N + 147; -- GNAT\r
 362    Name_CPP_Constructor                : constant Name_Id := N + 148; -- GNAT\r
 363    Name_CPP_Virtual                    : constant Name_Id := N + 149; -- GNAT\r
 364    Name_CPP_Vtable                     : constant Name_Id := N + 150; -- GNAT\r
 365    Name_Debug                          : constant Name_Id := N + 151; -- GNAT\r
 366    Name_Elaborate                      : constant Name_Id := N + 152; -- Ada 83\r
 367    Name_Elaborate_All                  : constant Name_Id := N + 153;\r
 368    Name_Elaborate_Body                 : constant Name_Id := N + 154;\r
 369    Name_Export                         : constant Name_Id := N + 155;\r
 370    Name_Export_Exception               : constant Name_Id := N + 156; -- VMS\r
 371    Name_Export_Function                : constant Name_Id := N + 157; -- GNAT\r
 372    Name_Export_Object                  : constant Name_Id := N + 158; -- GNAT\r
 373    Name_Export_Procedure               : constant Name_Id := N + 159; -- GNAT\r
 374    Name_Export_Value                   : constant Name_Id := N + 160; -- GNAT\r
 375    Name_Export_Valued_Procedure        : constant Name_Id := N + 161; -- GNAT\r
 376    Name_External                       : constant Name_Id := N + 162; -- GNAT\r
 377    Name_Finalize_Storage_Only          : constant Name_Id := N + 163; -- GNAT\r
 378    Name_Ident                          : constant Name_Id := N + 164; -- VMS\r
 379    Name_Import                         : constant Name_Id := N + 165;\r
 380    Name_Import_Exception               : constant Name_Id := N + 166; -- VMS\r
 381    Name_Import_Function                : constant Name_Id := N + 167; -- GNAT\r
 382    Name_Import_Object                  : constant Name_Id := N + 168; -- GNAT\r
 383    Name_Import_Procedure               : constant Name_Id := N + 169; -- GNAT\r
 384    Name_Import_Valued_Procedure        : constant Name_Id := N + 170; -- GNAT\r
 385    Name_Inline                         : constant Name_Id := N + 171;\r
 386    Name_Inline_Always                  : constant Name_Id := N + 172; -- GNAT\r
 387    Name_Inline_Generic                 : constant Name_Id := N + 173; -- GNAT\r
 388    Name_Inspection_Point               : constant Name_Id := N + 174;\r
 389    Name_Interface                      : constant Name_Id := N + 175; -- Ada 83\r
 390    Name_Interface_Name                 : constant Name_Id := N + 176; -- GNAT\r
 391    Name_Interrupt_Handler              : constant Name_Id := N + 177;\r
 392    Name_Interrupt_Priority             : constant Name_Id := N + 178;\r
 393    Name_Java_Constructor               : constant Name_Id := N + 179; -- GNAT\r
 394    Name_Java_Interface                 : constant Name_Id := N + 180; -- GNAT\r
 395    Name_Keep_Names                     : constant Name_Id := N + 181; -- GNAT\r
 396    Name_Link_With                      : constant Name_Id := N + 182; -- GNAT\r
 397    Name_Linker_Alias                   : constant Name_Id := N + 183; -- GNAT\r
 398    Name_Linker_Options                 : constant Name_Id := N + 184;\r
 399    Name_Linker_Section                 : constant Name_Id := N + 185; -- GNAT\r
 400    Name_List                           : constant Name_Id := N + 186;\r
 401    Name_Machine_Attribute              : constant Name_Id := N + 187; -- GNAT\r
 402    Name_Main                           : constant Name_Id := N + 188; -- GNAT\r
 403    Name_Main_Storage                   : constant Name_Id := N + 189; -- GNAT\r
 404    Name_Memory_Size                    : constant Name_Id := N + 190; -- Ada 83\r
 405    Name_No_Return                      : constant Name_Id := N + 191; -- GNAT\r
 406    Name_Obsolescent                    : constant Name_Id := N + 192; -- GNAT\r
 407    Name_Optimize                       : constant Name_Id := N + 193;\r
 408    Name_Optional_Overriding            : constant Name_Id := N + 194;\r
 409    Name_Overriding                     : constant Name_Id := N + 195;\r
 410    Name_Pack                           : constant Name_Id := N + 196;\r
 411    Name_Page                           : constant Name_Id := N + 197;\r
 412    Name_Passive                        : constant Name_Id := N + 198; -- GNAT\r
 413    Name_Preelaborate                   : constant Name_Id := N + 199;\r
 414    Name_Priority                       : constant Name_Id := N + 200;\r
 415    Name_Psect_Object                   : constant Name_Id := N + 201; -- VMS\r
 416    Name_Pure                           : constant Name_Id := N + 202;\r
 417    Name_Pure_Function                  : constant Name_Id := N + 203; -- GNAT\r
 418    Name_Remote_Call_Interface          : constant Name_Id := N + 204;\r
 419    Name_Remote_Types                   : constant Name_Id := N + 205;\r
 420    Name_Share_Generic                  : constant Name_Id := N + 206; -- GNAT\r
 421    Name_Shared                         : constant Name_Id := N + 207; -- Ada 83\r
 422    Name_Shared_Passive                 : constant Name_Id := N + 208;\r
 423 \r
 424    --  Note: Storage_Size is not in this list because its name matches the\r
 425    --  name of the corresponding attribute. However, it is included in the\r
 426    --  definition of the type Attribute_Id, and the functions Get_Pragma_Id\r
 427    --  and Check_Pragma_Id correctly recognize and process Name_Storage_Size.\r
 428 \r
 429    --  Note: Storage_Unit is also omitted from the list because of a clash\r
 430    --  with an attribute name, and is treated similarly.\r
 431 \r
 432    Name_Source_Reference               : constant Name_Id := N + 209; -- GNAT\r
 433    Name_Stream_Convert                 : constant Name_Id := N + 210; -- GNAT\r
 434    Name_Subtitle                       : constant Name_Id := N + 211; -- GNAT\r
 435    Name_Suppress_All                   : constant Name_Id := N + 212; -- GNAT\r
 436    Name_Suppress_Debug_Info            : constant Name_Id := N + 213; -- GNAT\r
 437    Name_Suppress_Initialization        : constant Name_Id := N + 214; -- GNAT\r
 438    Name_System_Name                    : constant Name_Id := N + 215; -- Ada 83\r
 439    Name_Task_Info                      : constant Name_Id := N + 216; -- GNAT\r
 440    Name_Task_Name                      : constant Name_Id := N + 217; -- GNAT\r
 441    Name_Task_Storage                   : constant Name_Id := N + 218; -- VMS\r
 442    Name_Thread_Body                    : constant Name_Id := N + 219; -- GNAT\r
 443    Name_Time_Slice                     : constant Name_Id := N + 220; -- GNAT\r
 444    Name_Title                          : constant Name_Id := N + 221; -- GNAT\r
 445    Name_Unchecked_Union                : constant Name_Id := N + 222; -- GNAT\r
 446    Name_Unimplemented_Unit             : constant Name_Id := N + 223; -- GNAT\r
 447    Name_Unreferenced                   : constant Name_Id := N + 224; -- GNAT\r
 448    Name_Unreserve_All_Interrupts       : constant Name_Id := N + 225; -- GNAT\r
 449    Name_Volatile                       : constant Name_Id := N + 226;\r
 450    Name_Volatile_Components            : constant Name_Id := N + 227;\r
 451    Name_Weak_External                  : constant Name_Id := N + 228; -- GNAT\r
 452    Last_Pragma_Name                    : constant Name_Id := N + 228;\r
 453 \r
 454    --  Language convention names for pragma Convention/Export/Import/Interface\r
 455    --  Note that Name_C is not included in this list, since it was already\r
 456    --  declared earlier in the context of one-character identifier names\r
 457    --  (where the order is critical to the fast look up process).\r
 458 \r
 459    --  Note: there are no convention names corresponding to the conventions\r
 460    --  Entry and Protected, this is because these conventions cannot be\r
 461    --  specified by a pragma.\r
 462 \r
 463    First_Convention_Name               : constant Name_Id := N + 229;\r
 464    Name_Ada                            : constant Name_Id := N + 229;\r
 465    Name_Assembler                      : constant Name_Id := N + 230;\r
 466    Name_COBOL                          : constant Name_Id := N + 231;\r
 467    Name_CPP                            : constant Name_Id := N + 232;\r
 468    Name_Fortran                        : constant Name_Id := N + 233;\r
 469    Name_Intrinsic                      : constant Name_Id := N + 234;\r
 470    Name_Java                           : constant Name_Id := N + 235;\r
 471    Name_Stdcall                        : constant Name_Id := N + 236;\r
 472    Name_Stubbed                        : constant Name_Id := N + 237;\r
 473    Last_Convention_Name                : constant Name_Id := N + 237;\r
 474 \r
 475    --  The following names are preset as synonyms for Assembler\r
 476 \r
 477    Name_Asm                            : constant Name_Id := N + 238;\r
 478    Name_Assembly                       : constant Name_Id := N + 239;\r
 479 \r
 480    --  The following names are preset as synonyms for C\r
 481 \r
 482    Name_Default                        : constant Name_Id := N + 240;\r
 483    --  Name_Exernal (previously defined as pragma)\r
 484 \r
 485    --  The following names are present as synonyms for Stdcall\r
 486 \r
 487    Name_DLL                            : constant Name_Id := N + 241;\r
 488    Name_Win32                          : constant Name_Id := N + 242;\r
 489 \r
 490    --  Other special names used in processing pragma arguments\r
 491 \r
 492    Name_As_Is                          : constant Name_Id := N + 243;\r
 493    Name_Body_File_Name                 : constant Name_Id := N + 244;\r
 494    Name_Casing                         : constant Name_Id := N + 245;\r
 495    Name_Code                           : constant Name_Id := N + 246;\r
 496    Name_Component                      : constant Name_Id := N + 247;\r
 497    Name_Component_Size_4               : constant Name_Id := N + 248;\r
 498    Name_Copy                           : constant Name_Id := N + 249;\r
 499    Name_D_Float                        : constant Name_Id := N + 250;\r
 500    Name_Descriptor                     : constant Name_Id := N + 251;\r
 501    Name_Dot_Replacement                : constant Name_Id := N + 252;\r
 502    Name_Dynamic                        : constant Name_Id := N + 253;\r
 503    Name_Entity                         : constant Name_Id := N + 254;\r
 504    Name_External_Name                  : constant Name_Id := N + 255;\r
 505    Name_First_Optional_Parameter       : constant Name_Id := N + 256;\r
 506    Name_Form                           : constant Name_Id := N + 257;\r
 507    Name_G_Float                        : constant Name_Id := N + 258;\r
 508    Name_Gcc                            : constant Name_Id := N + 259;\r
 509    Name_Gnat                           : constant Name_Id := N + 260;\r
 510    Name_GPL                            : constant Name_Id := N + 261;\r
 511    Name_IEEE_Float                     : constant Name_Id := N + 262;\r
 512    Name_Homonym_Number                 : constant Name_Id := N + 263;\r
 513    Name_Internal                       : constant Name_Id := N + 264;\r
 514    Name_Link_Name                      : constant Name_Id := N + 265;\r
 515    Name_Lowercase                      : constant Name_Id := N + 266;\r
 516    Name_Max_Size                       : constant Name_Id := N + 267;\r
 517    Name_Mechanism                      : constant Name_Id := N + 268;\r
 518    Name_Mixedcase                      : constant Name_Id := N + 269;\r
 519    Name_Modified_GPL                   : constant Name_Id := N + 270;\r
 520    Name_Name                           : constant Name_Id := N + 271;\r
 521    Name_NCA                            : constant Name_Id := N + 272;\r
 522    Name_No                             : constant Name_Id := N + 273;\r
 523    Name_On                             : constant Name_Id := N + 274;\r
 524    Name_Parameter_Types                : constant Name_Id := N + 275;\r
 525    Name_Reference                      : constant Name_Id := N + 276;\r
 526    Name_Restricted                     : constant Name_Id := N + 277;\r
 527    Name_Result_Mechanism               : constant Name_Id := N + 278;\r
 528    Name_Result_Type                    : constant Name_Id := N + 279;\r
 529    Name_Runtime                        : constant Name_Id := N + 280;\r
 530    Name_SB                             : constant Name_Id := N + 281;\r
 531    Name_Secondary_Stack_Size           : constant Name_Id := N + 282;\r
 532    Name_Section                        : constant Name_Id := N + 283;\r
 533    Name_Semaphore                      : constant Name_Id := N + 284;\r
 534    Name_Spec_File_Name                 : constant Name_Id := N + 285;\r
 535    Name_Static                         : constant Name_Id := N + 286;\r
 536    Name_Stack_Size                     : constant Name_Id := N + 287;\r
 537    Name_Subunit_File_Name              : constant Name_Id := N + 288;\r
 538    Name_Task_Stack_Size_Default        : constant Name_Id := N + 289;\r
 539    Name_Task_Type                      : constant Name_Id := N + 290;\r
 540    Name_Time_Slicing_Enabled           : constant Name_Id := N + 291;\r
 541    Name_Top_Guard                      : constant Name_Id := N + 292;\r
 542    Name_UBA                            : constant Name_Id := N + 293;\r
 543    Name_UBS                            : constant Name_Id := N + 294;\r
 544    Name_UBSB                           : constant Name_Id := N + 295;\r
 545    Name_Unit_Name                      : constant Name_Id := N + 296;\r
 546    Name_Unknown                        : constant Name_Id := N + 297;\r
 547    Name_Unrestricted                   : constant Name_Id := N + 298;\r
 548    Name_Uppercase                      : constant Name_Id := N + 299;\r
 549    Name_User                           : constant Name_Id := N + 300;\r
 550    Name_VAX_Float                      : constant Name_Id := N + 301;\r
 551    Name_VMS                            : constant Name_Id := N + 302;\r
 552    Name_Working_Storage                : constant Name_Id := N + 303;\r
 553 \r
 554    --  Names of recognized attributes. The entries with the comment "Ada 83"\r
 555    --  are attributes that are defined in Ada 83, but not in Ada 95. These\r
 556    --  attributes are implemented in both Ada 83 and Ada 95 modes in GNAT.\r
 557 \r
 558    --  The entries marked GNAT are attributes that are defined by GNAT\r
 559    --  and implemented in both Ada 83 and Ada 95 modes. Full descriptions\r
 560    --  of these implementation dependent attributes may be found in the\r
 561    --  appropriate section in package Sem_Attr in file sem-attr.ads.\r
 562 \r
 563    --  The entries marked VMS are recognized only in OpenVMS implementations\r
 564    --  of GNAT, and are treated as illegal in all other contexts.\r
 565 \r
 566    First_Attribute_Name                : constant Name_Id := N + 304;\r
 567    Name_Abort_Signal                   : constant Name_Id := N + 304;  -- GNAT\r
 568    Name_Access                         : constant Name_Id := N + 305;\r
 569    Name_Address                        : constant Name_Id := N + 306;\r
 570    Name_Address_Size                   : constant Name_Id := N + 307;  -- GNAT\r
 571    Name_Aft                            : constant Name_Id := N + 308;\r
 572    Name_Alignment                      : constant Name_Id := N + 309;\r
 573    Name_Asm_Input                      : constant Name_Id := N + 310;  -- GNAT\r
 574    Name_Asm_Output                     : constant Name_Id := N + 311;  -- GNAT\r
 575    Name_AST_Entry                      : constant Name_Id := N + 312;  -- VMS\r
 576    Name_Bit                            : constant Name_Id := N + 313;  -- GNAT\r
 577    Name_Bit_Order                      : constant Name_Id := N + 314;\r
 578    Name_Bit_Position                   : constant Name_Id := N + 315;  -- GNAT\r
 579    Name_Body_Version                   : constant Name_Id := N + 316;\r
 580    Name_Callable                       : constant Name_Id := N + 317;\r
 581    Name_Caller                         : constant Name_Id := N + 318;\r
 582    Name_Code_Address                   : constant Name_Id := N + 319;  -- GNAT\r
 583    Name_Component_Size                 : constant Name_Id := N + 320;\r
 584    Name_Compose                        : constant Name_Id := N + 321;\r
 585    Name_Constrained                    : constant Name_Id := N + 322;\r
 586    Name_Count                          : constant Name_Id := N + 323;\r
 587    Name_Default_Bit_Order              : constant Name_Id := N + 324; -- GNAT\r
 588    Name_Definite                       : constant Name_Id := N + 325;\r
 589    Name_Delta                          : constant Name_Id := N + 326;\r
 590    Name_Denorm                         : constant Name_Id := N + 327;\r
 591    Name_Digits                         : constant Name_Id := N + 328;\r
 592    Name_Elaborated                     : constant Name_Id := N + 329; -- GNAT\r
 593    Name_Emax                           : constant Name_Id := N + 330; -- Ada 83\r
 594    Name_Enum_Rep                       : constant Name_Id := N + 331; -- GNAT\r
 595    Name_Epsilon                        : constant Name_Id := N + 332; -- Ada 83\r
 596    Name_Exponent                       : constant Name_Id := N + 333;\r
 597    Name_External_Tag                   : constant Name_Id := N + 334;\r
 598    Name_First                          : constant Name_Id := N + 335;\r
 599    Name_First_Bit                      : constant Name_Id := N + 336;\r
 600    Name_Fixed_Value                    : constant Name_Id := N + 337; -- GNAT\r
 601    Name_Fore                           : constant Name_Id := N + 338;\r
 602    Name_Has_Discriminants              : constant Name_Id := N + 339; -- GNAT\r
 603    Name_Identity                       : constant Name_Id := N + 340;\r
 604    Name_Img                            : constant Name_Id := N + 341; -- GNAT\r
 605    Name_Integer_Value                  : constant Name_Id := N + 342; -- GNAT\r
 606    Name_Large                          : constant Name_Id := N + 343; -- Ada 83\r
 607    Name_Last                           : constant Name_Id := N + 344;\r
 608    Name_Last_Bit                       : constant Name_Id := N + 345;\r
 609    Name_Leading_Part                   : constant Name_Id := N + 346;\r
 610    Name_Length                         : constant Name_Id := N + 347;\r
 611    Name_Machine_Emax                   : constant Name_Id := N + 348;\r
 612    Name_Machine_Emin                   : constant Name_Id := N + 349;\r
 613    Name_Machine_Mantissa               : constant Name_Id := N + 350;\r
 614    Name_Machine_Overflows              : constant Name_Id := N + 351;\r
 615    Name_Machine_Radix                  : constant Name_Id := N + 352;\r
 616    Name_Machine_Rounds                 : constant Name_Id := N + 353;\r
 617    Name_Machine_Size                   : constant Name_Id := N + 354; -- GNAT\r
 618    Name_Mantissa                       : constant Name_Id := N + 355; -- Ada 83\r
 619    Name_Max_Size_In_Storage_Elements   : constant Name_Id := N + 356;\r
 620    Name_Maximum_Alignment              : constant Name_Id := N + 357; -- GNAT\r
 621    Name_Mechanism_Code                 : constant Name_Id := N + 358; -- GNAT\r
 622    Name_Model_Emin                     : constant Name_Id := N + 359;\r
 623    Name_Model_Epsilon                  : constant Name_Id := N + 360;\r
 624    Name_Model_Mantissa                 : constant Name_Id := N + 361;\r
 625    Name_Model_Small                    : constant Name_Id := N + 362;\r
 626    Name_Modulus                        : constant Name_Id := N + 363;\r
 627    Name_Null_Parameter                 : constant Name_Id := N + 364; -- GNAT\r
 628    Name_Object_Size                    : constant Name_Id := N + 365; -- GNAT\r
 629    Name_Partition_ID                   : constant Name_Id := N + 366;\r
 630    Name_Passed_By_Reference            : constant Name_Id := N + 367; -- GNAT\r
 631    Name_Pool_Address                   : constant Name_Id := N + 368;\r
 632    Name_Pos                            : constant Name_Id := N + 369;\r
 633    Name_Position                       : constant Name_Id := N + 370;\r
 634    Name_Range                          : constant Name_Id := N + 371;\r
 635    Name_Range_Length                   : constant Name_Id := N + 372; -- GNAT\r
 636    Name_Round                          : constant Name_Id := N + 373;\r
 637    Name_Safe_Emax                      : constant Name_Id := N + 374; -- Ada 83\r
 638    Name_Safe_First                     : constant Name_Id := N + 375;\r
 639    Name_Safe_Large                     : constant Name_Id := N + 376; -- Ada 83\r
 640    Name_Safe_Last                      : constant Name_Id := N + 377;\r
 641    Name_Safe_Small                     : constant Name_Id := N + 378; -- Ada 83\r
 642    Name_Scale                          : constant Name_Id := N + 379;\r
 643    Name_Scaling                        : constant Name_Id := N + 380;\r
 644    Name_Signed_Zeros                   : constant Name_Id := N + 381;\r
 645    Name_Size                           : constant Name_Id := N + 382;\r
 646    Name_Small                          : constant Name_Id := N + 383;\r
 647    Name_Storage_Size                   : constant Name_Id := N + 384;\r
 648    Name_Storage_Unit                   : constant Name_Id := N + 385; -- GNAT\r
 649    Name_Tag                            : constant Name_Id := N + 386;\r
 650    Name_Target_Name                    : constant Name_Id := N + 387; -- GNAT\r
 651    Name_Terminated                     : constant Name_Id := N + 388;\r
 652    Name_To_Address                     : constant Name_Id := N + 389; -- GNAT\r
 653    Name_Type_Class                     : constant Name_Id := N + 390; -- GNAT\r
 654    Name_UET_Address                    : constant Name_Id := N + 391; -- GNAT\r
 655    Name_Unbiased_Rounding              : constant Name_Id := N + 392;\r
 656    Name_Unchecked_Access               : constant Name_Id := N + 393;\r
 657    Name_Unconstrained_Array            : constant Name_Id := N + 394;\r
 658    Name_Universal_Literal_String       : constant Name_Id := N + 395; -- GNAT\r
 659    Name_Unrestricted_Access            : constant Name_Id := N + 396; -- GNAT\r
 660    Name_VADS_Size                      : constant Name_Id := N + 397; -- GNAT\r
 661    Name_Val                            : constant Name_Id := N + 398;\r
 662    Name_Valid                          : constant Name_Id := N + 399;\r
 663    Name_Value_Size                     : constant Name_Id := N + 400; -- GNAT\r
 664    Name_Version                        : constant Name_Id := N + 401;\r
 665    Name_Wchar_T_Size                   : constant Name_Id := N + 402; -- GNAT\r
 666    Name_Wide_Width                     : constant Name_Id := N + 403;\r
 667    Name_Width                          : constant Name_Id := N + 404;\r
 668    Name_Word_Size                      : constant Name_Id := N + 405; -- GNAT\r
 669 \r
 670    --  Attributes that designate attributes returning renamable functions,\r
 671    --  i.e. functions that return other than a universal value.\r
 672 \r
 673    First_Renamable_Function_Attribute  : constant Name_Id := N + 406;\r
 674    Name_Adjacent                       : constant Name_Id := N + 406;\r
 675    Name_Ceiling                        : constant Name_Id := N + 407;\r
 676    Name_Copy_Sign                      : constant Name_Id := N + 408;\r
 677    Name_Floor                          : constant Name_Id := N + 409;\r
 678    Name_Fraction                       : constant Name_Id := N + 410;\r
 679    Name_Image                          : constant Name_Id := N + 411;\r
 680    Name_Input                          : constant Name_Id := N + 412;\r
 681    Name_Machine                        : constant Name_Id := N + 413;\r
 682    Name_Max                            : constant Name_Id := N + 414;\r
 683    Name_Min                            : constant Name_Id := N + 415;\r
 684    Name_Model                          : constant Name_Id := N + 416;\r
 685    Name_Pred                           : constant Name_Id := N + 417;\r
 686    Name_Remainder                      : constant Name_Id := N + 418;\r
 687    Name_Rounding                       : constant Name_Id := N + 419;\r
 688    Name_Succ                           : constant Name_Id := N + 420;\r
 689    Name_Truncation                     : constant Name_Id := N + 421;\r
 690    Name_Value                          : constant Name_Id := N + 422;\r
 691    Name_Wide_Image                     : constant Name_Id := N + 423;\r
 692    Name_Wide_Value                     : constant Name_Id := N + 424;\r
 693    Last_Renamable_Function_Attribute   : constant Name_Id := N + 424;\r
 694 \r
 695    --  Attributes that designate procedures\r
 696 \r
 697    First_Procedure_Attribute           : constant Name_Id := N + 425;\r
 698    Name_Output                         : constant Name_Id := N + 425;\r
 699    Name_Read                           : constant Name_Id := N + 426;\r
 700    Name_Write                          : constant Name_Id := N + 427;\r
 701    Last_Procedure_Attribute            : constant Name_Id := N + 427;\r
 702 \r
 703    --  Remaining attributes are ones that return entities\r
 704 \r
 705    First_Entity_Attribute_Name         : constant Name_Id := N + 428;\r
 706    Name_Elab_Body                      : constant Name_Id := N + 428; -- GNAT\r
 707    Name_Elab_Spec                      : constant Name_Id := N + 429; -- GNAT\r
 708    Name_Storage_Pool                   : constant Name_Id := N + 430;\r
 709 \r
 710    --  These attributes are the ones that return types\r
 711 \r
 712    First_Type_Attribute_Name           : constant Name_Id := N + 431;\r
 713    Name_Base                           : constant Name_Id := N + 431;\r
 714    Name_Class                          : constant Name_Id := N + 432;\r
 715    Last_Type_Attribute_Name            : constant Name_Id := N + 432;\r
 716    Last_Entity_Attribute_Name          : constant Name_Id := N + 432;\r
 717    Last_Attribute_Name                 : constant Name_Id := N + 432;\r
 718 \r
 719    --  Names of recognized locking policy identifiers\r
 720 \r
 721    --  Note: policies are identified by the first character of the\r
 722    --  name (e.g. C for Ceiling_Locking). If new policy names are added,\r
 723    --  the first character must be distinct.\r
 724 \r
 725    First_Locking_Policy_Name           : constant Name_Id := N + 433;\r
 726    Name_Ceiling_Locking                : constant Name_Id := N + 433;\r
 727    Name_Inheritance_Locking            : constant Name_Id := N + 434;\r
 728    Last_Locking_Policy_Name            : constant Name_Id := N + 434;\r
 729 \r
 730    --  Names of recognized queuing policy identifiers.\r
 731 \r
 732    --  Note: policies are identified by the first character of the\r
 733    --  name (e.g. F for FIFO_Queuing). If new policy names are added,\r
 734    --  the first character must be distinct.\r
 735 \r
 736    First_Queuing_Policy_Name           : constant Name_Id := N + 435;\r
 737    Name_FIFO_Queuing                   : constant Name_Id := N + 435;\r
 738    Name_Priority_Queuing               : constant Name_Id := N + 436;\r
 739    Last_Queuing_Policy_Name            : constant Name_Id := N + 436;\r
 740 \r
 741    --  Names of recognized task dispatching policy identifiers\r
 742 \r
 743    --  Note: policies are identified by the first character of the\r
 744    --  name (e.g. F for FIFO_WIthinn_Priorities). If new policy names\r
 745    --  are added, the first character must be distinct.\r
 746 \r
 747    First_Task_Dispatching_Policy_Name  : constant Name_Id := N + 437;\r
 748    Name_Fifo_Within_Priorities         : constant Name_Id := N + 437;\r
 749    Last_Task_Dispatching_Policy_Name   : constant Name_Id := N + 437;\r
 750 \r
 751    --  Names of recognized checks for pragma Suppress\r
 752 \r
 753    First_Check_Name                    : constant Name_Id := N + 438;\r
 754    Name_Access_Check                   : constant Name_Id := N + 438;\r
 755    Name_Accessibility_Check            : constant Name_Id := N + 439;\r
 756    Name_Discriminant_Check             : constant Name_Id := N + 440;\r
 757    Name_Division_Check                 : constant Name_Id := N + 441;\r
 758    Name_Elaboration_Check              : constant Name_Id := N + 442;\r
 759    Name_Index_Check                    : constant Name_Id := N + 443;\r
 760    Name_Length_Check                   : constant Name_Id := N + 444;\r
 761    Name_Overflow_Check                 : constant Name_Id := N + 445;\r
 762    Name_Range_Check                    : constant Name_Id := N + 446;\r
 763    Name_Storage_Check                  : constant Name_Id := N + 447;\r
 764    Name_Tag_Check                      : constant Name_Id := N + 448;\r
 765    Name_All_Checks                     : constant Name_Id := N + 449;\r
 766    Last_Check_Name                     : constant Name_Id := N + 449;\r
 767 \r
 768    --  Names corresponding to reserved keywords, excluding those already\r
 769    --  declared in the attribute list (Access, Delta, Digits, Range).\r
 770 \r
 771    Name_Abort                          : constant Name_Id := N + 450;\r
 772    Name_Abs                            : constant Name_Id := N + 451;\r
 773    Name_Accept                         : constant Name_Id := N + 452;\r
 774    Name_And                            : constant Name_Id := N + 453;\r
 775    Name_All                            : constant Name_Id := N + 454;\r
 776    Name_Array                          : constant Name_Id := N + 455;\r
 777    Name_At                             : constant Name_Id := N + 456;\r
 778    Name_Begin                          : constant Name_Id := N + 457;\r
 779    Name_Body                           : constant Name_Id := N + 458;\r
 780    Name_Case                           : constant Name_Id := N + 459;\r
 781    Name_Constant                       : constant Name_Id := N + 460;\r
 782    Name_Declare                        : constant Name_Id := N + 461;\r
 783    Name_Delay                          : constant Name_Id := N + 462;\r
 784    Name_Do                             : constant Name_Id := N + 463;\r
 785    Name_Else                           : constant Name_Id := N + 464;\r
 786    Name_Elsif                          : constant Name_Id := N + 465;\r
 787    Name_End                            : constant Name_Id := N + 466;\r
 788    Name_Entry                          : constant Name_Id := N + 467;\r
 789    Name_Exception                      : constant Name_Id := N + 468;\r
 790    Name_Exit                           : constant Name_Id := N + 469;\r
 791    Name_For                            : constant Name_Id := N + 470;\r
 792    Name_Function                       : constant Name_Id := N + 471;\r
 793    Name_Generic                        : constant Name_Id := N + 472;\r
 794    Name_Goto                           : constant Name_Id := N + 473;\r
 795    Name_If                             : constant Name_Id := N + 474;\r
 796    Name_In                             : constant Name_Id := N + 475;\r
 797    Name_Is                             : constant Name_Id := N + 476;\r
 798    Name_Limited                        : constant Name_Id := N + 477;\r
 799    Name_Loop                           : constant Name_Id := N + 478;\r
 800    Name_Mod                            : constant Name_Id := N + 479;\r
 801    Name_New                            : constant Name_Id := N + 480;\r
 802    Name_Not                            : constant Name_Id := N + 481;\r
 803    Name_Null                           : constant Name_Id := N + 482;\r
 804    Name_Of                             : constant Name_Id := N + 483;\r
 805    Name_Or                             : constant Name_Id := N + 484;\r
 806    Name_Others                         : constant Name_Id := N + 485;\r
 807    Name_Out                            : constant Name_Id := N + 486;\r
 808    Name_Package                        : constant Name_Id := N + 487;\r
 809    Name_Pragma                         : constant Name_Id := N + 488;\r
 810    Name_Private                        : constant Name_Id := N + 489;\r
 811    Name_Procedure                      : constant Name_Id := N + 490;\r
 812    Name_Raise                          : constant Name_Id := N + 491;\r
 813    Name_Record                         : constant Name_Id := N + 492;\r
 814    Name_Rem                            : constant Name_Id := N + 493;\r
 815    Name_Renames                        : constant Name_Id := N + 494;\r
 816    Name_Return                         : constant Name_Id := N + 495;\r
 817    Name_Reverse                        : constant Name_Id := N + 496;\r
 818    Name_Select                         : constant Name_Id := N + 497;\r
 819    Name_Separate                       : constant Name_Id := N + 498;\r
 820    Name_Subtype                        : constant Name_Id := N + 499;\r
 821    Name_Task                           : constant Name_Id := N + 500;\r
 822    Name_Terminate                      : constant Name_Id := N + 501;\r
 823    Name_Then                           : constant Name_Id := N + 502;\r
 824    Name_Type                           : constant Name_Id := N + 503;\r
 825    Name_Use                            : constant Name_Id := N + 504;\r
 826    Name_When                           : constant Name_Id := N + 505;\r
 827    Name_While                          : constant Name_Id := N + 506;\r
 828    Name_With                           : constant Name_Id := N + 507;\r
 829    Name_Xor                            : constant Name_Id := N + 508;\r
 830 \r
 831    --  Names of intrinsic subprograms\r
 832 \r
 833    --  Note: Asm is missing from this list, since Asm is a legitimate\r
 834    --  convention name. So is To_Adress, which is a GNAT attribute.\r
 835 \r
 836    First_Intrinsic_Name                : constant Name_Id := N + 509;\r
 837    Name_Divide                         : constant Name_Id := N + 509;\r
 838    Name_Enclosing_Entity               : constant Name_Id := N + 510;\r
 839    Name_Exception_Information          : constant Name_Id := N + 511;\r
 840    Name_Exception_Message              : constant Name_Id := N + 512;\r
 841    Name_Exception_Name                 : constant Name_Id := N + 513;\r
 842    Name_File                           : constant Name_Id := N + 514;\r
 843    Name_Import_Address                 : constant Name_Id := N + 515;\r
 844    Name_Import_Largest_Value           : constant Name_Id := N + 516;\r
 845    Name_Import_Value                   : constant Name_Id := N + 517;\r
 846    Name_Is_Negative                    : constant Name_Id := N + 518;\r
 847    Name_Line                           : constant Name_Id := N + 519;\r
 848    Name_Rotate_Left                    : constant Name_Id := N + 520;\r
 849    Name_Rotate_Right                   : constant Name_Id := N + 521;\r
 850    Name_Shift_Left                     : constant Name_Id := N + 522;\r
 851    Name_Shift_Right                    : constant Name_Id := N + 523;\r
 852    Name_Shift_Right_Arithmetic         : constant Name_Id := N + 524;\r
 853    Name_Source_Location                : constant Name_Id := N + 525;\r
 854    Name_Unchecked_Conversion           : constant Name_Id := N + 526;\r
 855    Name_Unchecked_Deallocation         : constant Name_Id := N + 527;\r
 856    Name_To_Pointer                     : constant Name_Id := N + 528;\r
 857    Last_Intrinsic_Name                 : constant Name_Id := N + 528;\r
 858 \r
 859    --  Reserved words used only in Ada 95\r
 860 \r
 861    First_95_Reserved_Word              : constant Name_Id := N + 529;\r
 862    Name_Abstract                       : constant Name_Id := N + 529;\r
 863    Name_Aliased                        : constant Name_Id := N + 530;\r
 864    Name_Protected                      : constant Name_Id := N + 531;\r
 865    Name_Until                          : constant Name_Id := N + 532;\r
 866    Name_Requeue                        : constant Name_Id := N + 533;\r
 867    Name_Tagged                         : constant Name_Id := N + 534;\r
 868    Last_95_Reserved_Word               : constant Name_Id := N + 534;\r
 869 \r
 870    subtype Ada_95_Reserved_Words is\r
 871      Name_Id range First_95_Reserved_Word .. Last_95_Reserved_Word;\r
 872 \r
 873    --  Miscellaneous names used in semantic checking\r
 874 \r
 875    Name_Raise_Exception                : constant Name_Id := N + 535;\r
 876 \r
 877    --  Additional reserved words in GNAT Project Files\r
 878    --  Note that Name_External is already previously declared\r
 879 \r
 880    Name_Binder                         : constant Name_Id := N + 536;\r
 881    Name_Body_Suffix                    : constant Name_Id := N + 537;\r
 882    Name_Builder                        : constant Name_Id := N + 538;\r
 883    Name_Compiler                       : constant Name_Id := N + 539;\r
 884    Name_Cross_Reference                : constant Name_Id := N + 540;\r
 885    Name_Default_Switches               : constant Name_Id := N + 541;\r
 886    Name_Exec_Dir                       : constant Name_Id := N + 542;\r
 887    Name_Executable                     : constant Name_Id := N + 543;\r
 888    Name_Executable_Suffix              : constant Name_Id := N + 544;\r
 889    Name_Extends                        : constant Name_Id := N + 545;\r
 890    Name_Finder                         : constant Name_Id := N + 546;\r
 891    Name_Global_Configuration_Pragmas   : constant Name_Id := N + 547;\r
 892    Name_Gnatls                         : constant Name_Id := N + 548;\r
 893    Name_Gnatstub                       : constant Name_Id := N + 549;\r
 894    Name_Implementation                 : constant Name_Id := N + 550;\r
 895    Name_Implementation_Exceptions      : constant Name_Id := N + 551;\r
 896    Name_Implementation_Suffix          : constant Name_Id := N + 552;\r
 897    Name_Languages                      : constant Name_Id := N + 553;\r
 898    Name_Library_Dir                    : constant Name_Id := N + 554;\r
 899    Name_Library_Auto_Init              : constant Name_Id := N + 555;\r
 900    Name_Library_GCC                    : constant Name_Id := N + 556;\r
 901    Name_Library_Interface              : constant Name_Id := N + 557;\r
 902    Name_Library_Kind                   : constant Name_Id := N + 558;\r
 903    Name_Library_Name                   : constant Name_Id := N + 559;\r
 904    Name_Library_Options                : constant Name_Id := N + 560;\r
 905    Name_Library_Src_Dir                : constant Name_Id := N + 561;\r
 906    Name_Library_Symbol_File            : constant Name_Id := N + 562;\r
 907    Name_Library_Version                : constant Name_Id := N + 563;\r
 908    Name_Linker                         : constant Name_Id := N + 564;\r
 909    Name_Local_Configuration_Pragmas    : constant Name_Id := N + 565;\r
 910    Name_Locally_Removed_Files          : constant Name_Id := N + 566;\r
 911    Name_Naming                         : constant Name_Id := N + 567;\r
 912    Name_Object_Dir                     : constant Name_Id := N + 568;\r
 913    Name_Pretty_Printer                 : constant Name_Id := N + 569;\r
 914    Name_Project                        : constant Name_Id := N + 570;\r
 915    Name_Separate_Suffix                : constant Name_Id := N + 571;\r
 916    Name_Source_Dirs                    : constant Name_Id := N + 572;\r
 917    Name_Source_Files                   : constant Name_Id := N + 573;\r
 918    Name_Source_List_File               : constant Name_Id := N + 574;\r
 919    Name_Spec                           : constant Name_Id := N + 575;\r
 920    Name_Spec_Suffix                    : constant Name_Id := N + 576;\r
 921    Name_Specification                  : constant Name_Id := N + 577;\r
 922    Name_Specification_Exceptions       : constant Name_Id := N + 578;\r
 923    Name_Specification_Suffix           : constant Name_Id := N + 579;\r
 924    Name_Switches                       : constant Name_Id := N + 580;\r
 925    --  Other miscellaneous names used in front end\r
 926 \r
 927    Name_Unaligned_Valid                : constant Name_Id := N + 581;\r
 928 \r
 929    --  Mark last defined name for consistency check in Snames body\r
 930 \r
 931    Last_Predefined_Name                : constant Name_Id := N + 581;\r
 932 \r
 933    subtype Any_Operator_Name is Name_Id range\r
 934      First_Operator_Name .. Last_Operator_Name;\r
 935 \r
 936    ------------------------------\r
 937    -- Attribute ID Definitions --\r
 938    ------------------------------\r
 939 \r
 940    type Attribute_Id is (\r
 941       Attribute_Abort_Signal,\r
 942       Attribute_Access,\r
 943       Attribute_Address,\r
 944       Attribute_Address_Size,\r
 945       Attribute_Aft,\r
 946       Attribute_Alignment,\r
 947       Attribute_Asm_Input,\r
 948       Attribute_Asm_Output,\r
 949       Attribute_AST_Entry,\r
 950       Attribute_Bit,\r
 951       Attribute_Bit_Order,\r
 952       Attribute_Bit_Position,\r
 953       Attribute_Body_Version,\r
 954       Attribute_Callable,\r
 955       Attribute_Caller,\r
 956       Attribute_Code_Address,\r
 957       Attribute_Component_Size,\r
 958       Attribute_Compose,\r
 959       Attribute_Constrained,\r
 960       Attribute_Count,\r
 961       Attribute_Default_Bit_Order,\r
 962       Attribute_Definite,\r
 963       Attribute_Delta,\r
 964       Attribute_Denorm,\r
 965       Attribute_Digits,\r
 966       Attribute_Elaborated,\r
 967       Attribute_Emax,\r
 968       Attribute_Enum_Rep,\r
 969       Attribute_Epsilon,\r
 970       Attribute_Exponent,\r
 971       Attribute_External_Tag,\r
 972       Attribute_First,\r
 973       Attribute_First_Bit,\r
 974       Attribute_Fixed_Value,\r
 975       Attribute_Fore,\r
 976       Attribute_Has_Discriminants,\r
 977       Attribute_Identity,\r
 978       Attribute_Img,\r
 979       Attribute_Integer_Value,\r
 980       Attribute_Large,\r
 981       Attribute_Last,\r
 982       Attribute_Last_Bit,\r
 983       Attribute_Leading_Part,\r
 984       Attribute_Length,\r
 985       Attribute_Machine_Emax,\r
 986       Attribute_Machine_Emin,\r
 987       Attribute_Machine_Mantissa,\r
 988       Attribute_Machine_Overflows,\r
 989       Attribute_Machine_Radix,\r
 990       Attribute_Machine_Rounds,\r
 991       Attribute_Machine_Size,\r
 992       Attribute_Mantissa,\r
 993       Attribute_Max_Size_In_Storage_Elements,\r
 994       Attribute_Maximum_Alignment,\r
 995       Attribute_Mechanism_Code,\r
 996       Attribute_Model_Emin,\r
 997       Attribute_Model_Epsilon,\r
 998       Attribute_Model_Mantissa,\r
 999       Attribute_Model_Small,\r
1000       Attribute_Modulus,\r
1001       Attribute_Null_Parameter,\r
1002       Attribute_Object_Size,\r
1003       Attribute_Partition_ID,\r
1004       Attribute_Passed_By_Reference,\r
1005       Attribute_Pool_Address,\r
1006       Attribute_Pos,\r
1007       Attribute_Position,\r
1008       Attribute_Range,\r
1009       Attribute_Range_Length,\r
1010       Attribute_Round,\r
1011       Attribute_Safe_Emax,\r
1012       Attribute_Safe_First,\r
1013       Attribute_Safe_Large,\r
1014       Attribute_Safe_Last,\r
1015       Attribute_Safe_Small,\r
1016       Attribute_Scale,\r
1017       Attribute_Scaling,\r
1018       Attribute_Signed_Zeros,\r
1019       Attribute_Size,\r
1020       Attribute_Small,\r
1021       Attribute_Storage_Size,\r
1022       Attribute_Storage_Unit,\r
1023       Attribute_Tag,\r
1024       Attribute_Target_Name,\r
1025       Attribute_Terminated,\r
1026       Attribute_To_Address,\r
1027       Attribute_Type_Class,\r
1028       Attribute_UET_Address,\r
1029       Attribute_Unbiased_Rounding,\r
1030       Attribute_Unchecked_Access,\r
1031       Attribute_Unconstrained_Array,\r
1032       Attribute_Universal_Literal_String,\r
1033       Attribute_Unrestricted_Access,\r
1034       Attribute_VADS_Size,\r
1035       Attribute_Val,\r
1036       Attribute_Valid,\r
1037       Attribute_Value_Size,\r
1038       Attribute_Version,\r
1039       Attribute_Wchar_T_Size,\r
1040       Attribute_Wide_Width,\r
1041       Attribute_Width,\r
1042       Attribute_Word_Size,\r
1043 \r
1044       --  Attributes designating renamable functions\r
1045 \r
1046       Attribute_Adjacent,\r
1047       Attribute_Ceiling,\r
1048       Attribute_Copy_Sign,\r
1049       Attribute_Floor,\r
1050       Attribute_Fraction,\r
1051       Attribute_Image,\r
1052       Attribute_Input,\r
1053       Attribute_Machine,\r
1054       Attribute_Max,\r
1055       Attribute_Min,\r
1056       Attribute_Model,\r
1057       Attribute_Pred,\r
1058       Attribute_Remainder,\r
1059       Attribute_Rounding,\r
1060       Attribute_Succ,\r
1061       Attribute_Truncation,\r
1062       Attribute_Value,\r
1063       Attribute_Wide_Image,\r
1064       Attribute_Wide_Value,\r
1065 \r
1066       --  Attributes designating procedures\r
1067 \r
1068       Attribute_Output,\r
1069       Attribute_Read,\r
1070       Attribute_Write,\r
1071 \r
1072       --  Entity attributes (includes type attributes)\r
1073 \r
1074       Attribute_Elab_Body,\r
1075       Attribute_Elab_Spec,\r
1076       Attribute_Storage_Pool,\r
1077 \r
1078       --  Type attributes\r
1079 \r
1080       Attribute_Base,\r
1081       Attribute_Class);\r
1082 \r
1083    ------------------------------------\r
1084    -- Convention Name ID Definitions --\r
1085    ------------------------------------\r
1086 \r
1087    type Convention_Id is (\r
1088 \r
1089       --  The conventions that are defined by the RM come first\r
1090 \r
1091       Convention_Ada,\r
1092       Convention_Intrinsic,\r
1093       Convention_Entry,\r
1094       Convention_Protected,\r
1095 \r
1096       --  The remaining conventions are foreign language conventions\r
1097 \r
1098       Convention_Assembler,  --  also Asm, Assembly\r
1099       Convention_C,          --  also Default, External\r
1100       Convention_COBOL,\r
1101       Convention_CPP,\r
1102       Convention_Fortran,\r
1103       Convention_Java,\r
1104       Convention_Stdcall,    --  also DLL, Win32\r
1105       Convention_Stubbed);\r
1106 \r
1107       --  Note: Convention C_Pass_By_Copy is allowed only for record\r
1108       --  types (where it is treated like C except that the appropriate\r
1109       --  flag is set in the record type). Recognizion of this convention\r
1110       --  is specially handled in Sem_Prag.\r
1111 \r
1112    for Convention_Id'Size use 8;\r
1113    --  Plenty of space for expansion\r
1114 \r
1115    subtype Foreign_Convention is\r
1116      Convention_Id range Convention_Assembler .. Convention_Stdcall;\r
1117 \r
1118    -----------------------------------\r
1119    -- Locking Policy ID Definitions --\r
1120    -----------------------------------\r
1121 \r
1122    type Locking_Policy_Id is (\r
1123       Locking_Policy_Inheritance_Locking,\r
1124       Locking_Policy_Ceiling_Locking);\r
1125 \r
1126    ---------------------------\r
1127    -- Pragma ID Definitions --\r
1128    ---------------------------\r
1129 \r
1130    type Pragma_Id is (\r
1131 \r
1132       --  Configuration pragmas\r
1133 \r
1134       Pragma_Ada_83,\r
1135       Pragma_Ada_95,\r
1136       Pragma_C_Pass_By_Copy,\r
1137       Pragma_Compile_Time_Warning,\r
1138       Pragma_Component_Alignment,\r
1139       Pragma_Convention_Identifier,\r
1140       Pragma_Discard_Names,\r
1141       Pragma_Elaboration_Checks,\r
1142       Pragma_Eliminate,\r
1143       Pragma_Explicit_Overriding,\r
1144       Pragma_Extend_System,\r
1145       Pragma_Extensions_Allowed,\r
1146       Pragma_External_Name_Casing,\r
1147       Pragma_Float_Representation,\r
1148       Pragma_Initialize_Scalars,\r
1149       Pragma_Interrupt_State,\r
1150       Pragma_License,\r
1151       Pragma_Locking_Policy,\r
1152       Pragma_Long_Float,\r
1153       Pragma_No_Run_Time,\r
1154       Pragma_Normalize_Scalars,\r
1155       Pragma_Polling,\r
1156       Pragma_Persistent_Data,\r
1157       Pragma_Persistent_Object,\r
1158       Pragma_Propagate_Exceptions,\r
1159       Pragma_Queuing_Policy,\r
1160       Pragma_Ravenscar,\r
1161       Pragma_Restricted_Run_Time,\r
1162       Pragma_Restrictions,\r
1163       Pragma_Restriction_Warnings,\r
1164       Pragma_Reviewable,\r
1165       Pragma_Source_File_Name,\r
1166       Pragma_Source_File_Name_Project,\r
1167       Pragma_Style_Checks,\r
1168       Pragma_Suppress,\r
1169       Pragma_Suppress_Exception_Locations,\r
1170       Pragma_Task_Dispatching_Policy,\r
1171       Pragma_Universal_Data,\r
1172       Pragma_Unsuppress,\r
1173       Pragma_Use_VADS_Size,\r
1174       Pragma_Validity_Checks,\r
1175       Pragma_Warnings,\r
1176 \r
1177       --  Remaining (non-configuration) pragmas\r
1178 \r
1179       Pragma_Abort_Defer,\r
1180       Pragma_All_Calls_Remote,\r
1181       Pragma_Annotate,\r
1182       Pragma_Assert,\r
1183       Pragma_Asynchronous,\r
1184       Pragma_Atomic,\r
1185       Pragma_Atomic_Components,\r
1186       Pragma_Attach_Handler,\r
1187       Pragma_Comment,\r
1188       Pragma_Common_Object,\r
1189       Pragma_Complex_Representation,\r
1190       Pragma_Controlled,\r
1191       Pragma_Convention,\r
1192       Pragma_CPP_Class,\r
1193       Pragma_CPP_Constructor,\r
1194       Pragma_CPP_Virtual,\r
1195       Pragma_CPP_Vtable,\r
1196       Pragma_Debug,\r
1197       Pragma_Elaborate,\r
1198       Pragma_Elaborate_All,\r
1199       Pragma_Elaborate_Body,\r
1200       Pragma_Export,\r
1201       Pragma_Export_Exception,\r
1202       Pragma_Export_Function,\r
1203       Pragma_Export_Object,\r
1204       Pragma_Export_Procedure,\r
1205       Pragma_Export_Value,\r
1206       Pragma_Export_Valued_Procedure,\r
1207       Pragma_External,\r
1208       Pragma_Finalize_Storage_Only,\r
1209       Pragma_Ident,\r
1210       Pragma_Import,\r
1211       Pragma_Import_Exception,\r
1212       Pragma_Import_Function,\r
1213       Pragma_Import_Object,\r
1214       Pragma_Import_Procedure,\r
1215       Pragma_Import_Valued_Procedure,\r
1216       Pragma_Inline,\r
1217       Pragma_Inline_Always,\r
1218       Pragma_Inline_Generic,\r
1219       Pragma_Inspection_Point,\r
1220       Pragma_Interface,\r
1221       Pragma_Interface_Name,\r
1222       Pragma_Interrupt_Handler,\r
1223       Pragma_Interrupt_Priority,\r
1224       Pragma_Java_Constructor,\r
1225       Pragma_Java_Interface,\r
1226       Pragma_Keep_Names,\r
1227       Pragma_Link_With,\r
1228       Pragma_Linker_Alias,\r
1229       Pragma_Linker_Options,\r
1230       Pragma_Linker_Section,\r
1231       Pragma_List,\r
1232       Pragma_Machine_Attribute,\r
1233       Pragma_Main,\r
1234       Pragma_Main_Storage,\r
1235       Pragma_Memory_Size,\r
1236       Pragma_No_Return,\r
1237       Pragma_Obsolescent,\r
1238       Pragma_Optimize,\r
1239       Pragma_Optional_Overriding,\r
1240       Pragma_Overriding,\r
1241       Pragma_Pack,\r
1242       Pragma_Page,\r
1243       Pragma_Passive,\r
1244       Pragma_Preelaborate,\r
1245       Pragma_Priority,\r
1246       Pragma_Psect_Object,\r
1247       Pragma_Pure,\r
1248       Pragma_Pure_Function,\r
1249       Pragma_Remote_Call_Interface,\r
1250       Pragma_Remote_Types,\r
1251       Pragma_Share_Generic,\r
1252       Pragma_Shared,\r
1253       Pragma_Shared_Passive,\r
1254       Pragma_Source_Reference,\r
1255       Pragma_Stream_Convert,\r
1256       Pragma_Subtitle,\r
1257       Pragma_Suppress_All,\r
1258       Pragma_Suppress_Debug_Info,\r
1259       Pragma_Suppress_Initialization,\r
1260       Pragma_System_Name,\r
1261       Pragma_Task_Info,\r
1262       Pragma_Task_Name,\r
1263       Pragma_Task_Storage,\r
1264       Pragma_Thread_Body,\r
1265       Pragma_Time_Slice,\r
1266       Pragma_Title,\r
1267       Pragma_Unchecked_Union,\r
1268       Pragma_Unimplemented_Unit,\r
1269       Pragma_Unreferenced,\r
1270       Pragma_Unreserve_All_Interrupts,\r
1271       Pragma_Volatile,\r
1272       Pragma_Volatile_Components,\r
1273       Pragma_Weak_External,\r
1274 \r
1275       --  The following pragmas are on their own, out of order, because of\r
1276       --  the special processing required to deal with the fact that their\r
1277       --  names match existing attribute names.\r
1278 \r
1279       Pragma_AST_Entry,\r
1280       Pragma_Storage_Size,\r
1281       Pragma_Storage_Unit,\r
1282 \r
1283       --  The value to represent an unknown or unrecognized pragma\r
1284 \r
1285       Unknown_Pragma);\r
1286 \r
1287    -----------------------------------\r
1288    -- Queuing Policy ID definitions --\r
1289    -----------------------------------\r
1290 \r
1291    type Queuing_Policy_Id is (\r
1292       Queuing_Policy_FIFO_Queuing,\r
1293       Queuing_Policy_Priority_Queuing);\r
1294 \r
1295    --------------------------------------------\r
1296    -- Task Dispatching Policy ID definitions --\r
1297    --------------------------------------------\r
1298 \r
1299    type Task_Dispatching_Policy_Id is (\r
1300       Task_Dispatching_FIFO_Within_Priorities);\r
1301    --  Id values used to identify task dispatching policies\r
1302 \r
1303    -----------------\r
1304    -- Subprograms --\r
1305    -----------------\r
1306 \r
1307    procedure Initialize;\r
1308    --  Called to initialize the preset names in the names table.\r
1309 \r
1310    function Is_Attribute_Name (N : Name_Id) return Boolean;\r
1311    --  Test to see if the name N is the name of a recognized attribute\r
1312 \r
1313    function Is_Entity_Attribute_Name (N : Name_Id) return Boolean;\r
1314    --  Test to see if the name N is the name of a recognized entity attribute,\r
1315    --  i.e. an attribute reference that returns an entity.\r
1316 \r
1317    function Is_Procedure_Attribute_Name (N : Name_Id) return Boolean;\r
1318    --  Test to see if the name N is the name of a recognized attribute that\r
1319    --  designates a procedure (and can therefore appear as a statement).\r
1320 \r
1321    function Is_Function_Attribute_Name (N : Name_Id) return Boolean;\r
1322    --  Test to see if the name N is the name of a recognized attribute\r
1323    --  that designates a renameable function, and can therefore appear in\r
1324    --  a renaming statement. Note that not all attributes designating\r
1325    --  functions are renamable, in particular, thos returning a universal\r
1326    --  value cannot be renamed.\r
1327 \r
1328    function Is_Type_Attribute_Name (N : Name_Id) return Boolean;\r
1329    --  Test to see if the name N is the name of a recognized type attribute,\r
1330    --  i.e. an attribute reference that returns a type\r
1331 \r
1332    function Is_Check_Name (N : Name_Id) return Boolean;\r
1333    --  Test to see if the name N is the name of a recognized suppress check\r
1334    --  as required by pragma Suppress.\r
1335 \r
1336    function Is_Convention_Name (N : Name_Id) return Boolean;\r
1337    --  Test to see if the name N is the name of one of the recognized\r
1338    --  language conventions, as required by pragma Convention, Import,\r
1339    --  Export, Interface. Returns True if so. Also returns True for a\r
1340    --  name that has been specified by a Convention_Identifier pragma.\r
1341    --  If neither case holds, returns False.\r
1342 \r
1343    function Is_Locking_Policy_Name (N : Name_Id) return Boolean;\r
1344    --  Test to see if the name N is the name of a recognized locking policy\r
1345 \r
1346    function Is_Operator_Symbol_Name (N : Name_Id) return Boolean;\r
1347    --  Test to see if the name N is the name of an operator symbol\r
1348 \r
1349    function Is_Pragma_Name (N : Name_Id) return Boolean;\r
1350    --  Test to see if the name N is the name of a recognized pragma. Note\r
1351    --  that pragmas AST_Entry, Storage_Size, and Storage_Unit are recognized\r
1352    --  as pragmas by this function even though their names are separate from\r
1353    --  the other pragma names.\r
1354 \r
1355    function Is_Queuing_Policy_Name (N : Name_Id) return Boolean;\r
1356    --  Test to see if the name N is the name of a recognized queuing policy\r
1357 \r
1358    function Is_Task_Dispatching_Policy_Name (N : Name_Id) return Boolean;\r
1359    --  Test to see if the name N is the name of a recognized task\r
1360    --  dispatching policy.\r
1361 \r
1362    function Get_Attribute_Id (N : Name_Id) return Attribute_Id;\r
1363    --  Returns Id of attribute corresponding to given name. It is an error to\r
1364    --  call this function with a name that is not the name of a attribute.\r
1365 \r
1366    function Get_Convention_Id (N : Name_Id) return Convention_Id;\r
1367    --  Returns Id of language convention corresponding to given name. It is an\r
1368    --  to call this function with a name that is not the name of a convention,\r
1369    --  or one previously given in a call to Record_Convention_Identifier.\r
1370 \r
1371    function Get_Check_Id (N : Name_Id) return Check_Id;\r
1372    --  Returns Id of suppress check corresponding to given name. It is an error\r
1373    --  to call this function with a name that is not the name of a check.\r
1374 \r
1375    function Get_Locking_Policy_Id (N : Name_Id) return Locking_Policy_Id;\r
1376    --  Returns Id of locking policy corresponding to given name. It is an error\r
1377    --  to call this function with a name that is not the name of a check.\r
1378 \r
1379    function Get_Pragma_Id (N : Name_Id) return Pragma_Id;\r
1380    --  Returns Id of pragma corresponding to given name. Returns Unknown_Pragma\r
1381    --  if N is not a name of a known (Ada defined or GNAT-specific) pragma.\r
1382    --  Note that the function also works correctly for names of pragmas that\r
1383    --  are not in the main list of pragma Names (AST_Entry, Storage_Size, and\r
1384    --  Storage_Unit (e.g. Name_Storage_Size returns Pragma_Storage_Size).\r
1385 \r
1386    function Get_Queuing_Policy_Id (N : Name_Id) return Queuing_Policy_Id;\r
1387    --  Returns Id of queuing policy corresponding to given name. It is an error\r
1388    --  to call this function with a name that is not the name of a check.\r
1389 \r
1390    function Get_Task_Dispatching_Policy_Id\r
1391      (N    : Name_Id)\r
1392       return Task_Dispatching_Policy_Id;\r
1393    --  Returns Id of task dispatching policy corresponding to given name.\r
1394    --  It is an error to call this function with a name that is not the\r
1395    --  name of a check.\r
1396 \r
1397    procedure Record_Convention_Identifier\r
1398      (Id         : Name_Id;\r
1399       Convention : Convention_Id);\r
1400    --  A call to this procedure, resulting from an occurrence of a pragma\r
1401    --  Convention_Identifier, records that from now on an occurrence of\r
1402    --  Id will be recognized as a name for the specified convention.\r
1403 \r
1404 private\r
1405    pragma Inline (Is_Attribute_Name);\r
1406    pragma Inline (Is_Entity_Attribute_Name);\r
1407    pragma Inline (Is_Type_Attribute_Name);\r
1408    pragma Inline (Is_Check_Name);\r
1409    pragma Inline (Is_Locking_Policy_Name);\r
1410    pragma Inline (Is_Operator_Symbol_Name);\r
1411    pragma Inline (Is_Queuing_Policy_Name);\r
1412    pragma Inline (Is_Pragma_Name);\r
1413    pragma Inline (Is_Task_Dispatching_Policy_Name);\r
1414 \r
1415 end Snames;\r