diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-07 14:16:34 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-07 14:16:34 +0000 |
| commit | e2aa7314de5939148a7e7b3d0546c9b52bb31bea (patch) | |
| tree | 9781ebfdbcccd836481f22c031cc751e46380720 /gcc/ada/snames.ads | |
| parent | f6f6e3fbf5d0880bf069027374e9100901c6a137 (diff) | |
| download | gcc-e2aa7314de5939148a7e7b3d0546c9b52bb31bea.tar.gz | |
2004-06-07 Robert Dewar <dewar@gnat.com>
* a-direct.ads, einfo.ads: Minor comment updates
* s-taprop-lynxos.adb, s-taprop-tru64.adb, s-taprop-irix.adb,
s-taprop-irix-athread.adb, s-taprop-hpux-dce.adb, s-taprop-linux.adb,
s-taprop-dummy.adb, s-taprop-os2.adb, s-taprop-solaris.adb,
s-taprop-vms.adb, s-taprop-mingw.adb, s-taprop-vxworks.adb,
s-taprop-posix.adb, s-taprop.ads, exp_dbug.adb: Minor reformatting.
* s-interr-sigaction.adb: Remove unreferenced variable
(Attached_Interrupts). Minor reformatting.
Avoid use of variable I (replace by J).
* par-ch10.adb: Fix text of one error message
* checks.adb, checks.ads, cstand.adb, vms_data.ads, errout.ads,
exp_aggr.adb, exp_ch3.adb, exp_ch3.ads, exp_ch5.adb, exp_ch6.adb,
exp_ch9.adb, exp_code.adb, gnat1drv.adb, lib-load.adb, lib-writ.adb,
opt.adb, par.adb, opt.ads, par-ch11.adb, par-ch3.adb, par-ch4.adb,
par-ch5.adb, par-ch6.adb, par-ch8.adb, par-ch9.adb, par-prag.adb,
par-util.adb, scng.adb, sem_aggr.adb, sem_attr.adb, sem_cat.adb,
sem_ch10.adb, sem_ch10.adb, sem_ch11.adb, sem_ch12.adb, sem_ch2.adb,
sem_ch3.adb, sem_ch3.ads, sem_ch4.adb, sem_ch5.adb, sem_ch6.adb,
sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, sem_eval.adb, sem_prag.adb,
sem_res.adb, sem_type.adb, sem_util.adb, sinfo.ads, snames.adb,
snames.ads, snames.h, sprint.adb, switch-c.adb: Modifications for Ada
2005 support.
2004-06-07 Doug Rupp <rupp@gnat.com>
* mlib-tgt-vms.adb: Rename mlib-tgt-vms.adb mlib-tgt-vms-alpha.adb
* s-vaflop-vms.adb: Rename s-vaflop-vms.adb to s-vaflop-vms-alpha.adb
* mlib-tgt-vms-ia64.adb: New file.
* Makefile.in: Rename mlib-tgt-vms.adb to mlib-tgt-vms-alpha.adb
Add mlib-tgt-vms-ia64.adb
Rename s-vaflop-vms.adb to s-vaflop-vms-alpha.adb.
Move to alpha specific ifeq section.
Add VMS specific versions of symbols.adb
Renaming of 5q vms files.
* 5qsystem.ads renamed to system-vms_64.ads.
2004-06-07 Vincent Celier <celier@gnat.com>
* a-calend.ads: Add a GNAT Note comment after function Time_Of to
explain that when a time of day corresponding to the non existing hour
on the day switching to DST is specified, Split may return a different
value for Seconds.
* gnatcmd.adb: Add processing of GNAT METRIC (for gnatmetric), similar
to GNAT PRETTY.
* g-os_lib.adb (OpenVMS): New Boolean value imported from System.
(Normalize_Pathname): Only resolve VMS logical names when on VMS.
* mlib-prj.adb (Build_Library): New flag Gtrasymobj_Needed, initialize
to False.
If Gtrasymobj_Needed is True, add the full path of g-trasym.obj to
the linking options.
(Build_Library.Check_Libs): On VMS, if there is a dependency on
g-trasym.ads, set Gtrasymobj_Needed to True.
* prj-attr.adb: Add new package Metrics for gnatmetric
* prj-nmsc.adb (Record_Other_Sources): Put source file names in
canonical case to take into account files with upper case characters on
Windows.
(Ada_Check): Load the reference symbol file name in the name buffer to
check it, not the symbol file name.
* snames.ads, snames.adb: Add standard name Metrics (name of project
file package for gnatmetric).
* vms_conv.ads: Add Metric to Comment_Type
* vms_conv.adb (Initialize): Add component dor Metric in Command_List
* vms_data.ads: Add qualifiers for GNAT METRIC
* makegpr.adb (Link_Executables): Take into account the switches
specified in package Linker of the main project.
2004-06-07 Thomas Quinot <quinot@act-europe.fr>
* bindgen.adb (Set_Unit_Number): Units is an instance of Table, and so
the index of the last element is Units.Last, not Units.Table'Last
(which is usually not a valid index within the actually allocated
storage for the table).
* exp_ch4.adb (Insert_Dereference_Action): Change predicate that
determines whether to generate a call to a checked storage pool
Dereference action.
Generate such a call only for a dereference that either comes from
source, or is the result of rewriting a dereference that comes from
source.
2004-06-07 Romain Berrendonner <berrendo@act-europe.fr>
* bindgen.adb (Gen_Output_File): Add support for GAP builds.
2004-06-07 Eric Botcazou <ebotcazou@act-europe.fr>
(gnat_to_gnu_entity) <E_Array_Subtype>: For multi-dimensional arrays at
file level, elaborate the stride for inner dimensions in alignment
units, not bytes.
* exp_ch5.adb: Correct wrong reference to Component_May_Be_Bit_Aligned
in a comment.
2004-06-07 Javier Miranda <miranda@gnat.com>
* exp_ch6.adb: Correct wrong modification in previous patch
2004-06-07 Vasiliy Fofanov <fofanov@act-europe.fr>
* g-trasym.ads: Corrected comment to properly reflect level of support
on VMS.
2004-06-07 Hristian Kirtchev <kirtchev@gnat.com>
* lib-xref.adb (Generate_Reference): Add nested function Is_On_LHS. It
includes case of a variable referenced on the left hand side of an
assignment, therefore remove redundant code. Variables and prefixes of
indexed or selected components are now marked as referenced on left
hand side. Warnings are now properly emitted when variables or prefixes
are assigned but not read.
* sem_warn.adb (Output_Unreferenced_Messages): Add additional checks to
left hand side referenced variables. Private access types do not
produce the warning "variable ... is assigned but never read".
Add also additional checks to left hand side referenced variables.
Aliased, renamed objects and access types do not produce the warning
"variable ... is assigned but never read" since other entities may read
the memory location.
2004-06-07 Jerome Guitton <guitton@act-europe.fr>
* Makefile.in: In the powerpc/vxworks-specific section, restore
EXTRA_GNATRTL_NONTASKING_OBJS and EXTRA_GNATRTL_TASKING_OBJS (removed
by mistake).
2004-06-07 Ed Schonberg <schonberg@gnat.com>
* sem_ch4.adb (Remove_Abstract_Operations): Refine the removal of
predefined operators.
Removes spurious type errors from g-trasym-vms.adb.
* sem_res.adb (Rewrite_Renamed_Operator): If intrinsic operator is
distinct from the operator appearing in the source, call appropriate
routine to insert conversions when needed, and complete resolution of
node.
(Resolve_Intrinsic_Operator): Fix cut-and-paste bug on transfer of
interpretations for rewritten right operand.
(Set_Mixed_Mode_Operand): Handle properly a universal real operand when
the other operand is overloaded and the context is a type conversion.
2004-06-07 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* ada-tree.def (BLOCK_STMT): Now has two operands.
(BREAK_STMT): New.
* ada-tree.h: (BLOCK_STMT_BLOCK): New macro.
* gigi.h: (gnat_poplevel): Now returns a tree.
* trans.c (end_block_stmt): Add arg; all callers changed.
(tree_transform, case N_Case_Statement): Make a BLOCK_STMT for a WHEN.
(start_block_stmt): Clear BLOCK_STMT_BLOCK.
(add_stmt): Set TREE_TYPE.
(gnat_expand_stmt, case BLOCK_STMT): Handle BLOCK_STMT_BLOCK.
(gnat_expand_stmt, case BREAK_STMT): New case.
* utils.c (gnat_poplevel): Return a BLOCK, if we made one.
2004-06-07 Jose Ruiz <ruiz@act-europe.fr>
* s-stchop.adsm s-stchop.adb, s-stchop-vxworks.adb: Remove the
procedure Set_Stack_Size that is not needed.
2004-06-07 Sergey Rybin <rybin@act-europe.fr>
* gnat_ugn.texi: Clarify the case when non-standard naming scheme is
used for gnatpp input file and for the files upon which it depends
2004-06-07 Ben Brosgol <brosgol@gnat.com>
* gnat_ugn.texi: Wordsmithing of "GNAT and Libraries" chapter
2004-06-07 Arnaud Charlet <charlet@act-europe.fr>
* gnatvsn.ads: Bump version numbers appropriately.
Add new build type.
2004-06-07 Pascal Obry <obry@gnat.com>
* gnat_ugn.texi: Improve comments about imported names and link names
on Windows. Add a note about the requirement to use -k gnatdll's option
when working with a DLL which has stripped stdcall symbols (no @nn
suffix).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82691 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/snames.ads')
| -rw-r--r-- | gcc/ada/snames.ads | 1059 |
1 files changed, 531 insertions, 528 deletions
diff --git a/gcc/ada/snames.ads b/gcc/ada/snames.ads index d4a5ad4dc12..ceaa7239fb8 100644 --- a/gcc/ada/snames.ads +++ b/gcc/ada/snames.ads @@ -318,55 +318,56 @@ package Snames is Name_Ada_83 : constant Name_Id := N + 107; -- GNAT Name_Ada_95 : constant Name_Id := N + 108; -- GNAT - Name_C_Pass_By_Copy : constant Name_Id := N + 109; -- GNAT - Name_Compile_Time_Warning : constant Name_Id := N + 110; -- GNAT - Name_Component_Alignment : constant Name_Id := N + 111; -- GNAT - Name_Convention_Identifier : constant Name_Id := N + 112; -- GNAT - Name_Discard_Names : constant Name_Id := N + 113; - Name_Elaboration_Checks : constant Name_Id := N + 114; -- GNAT - Name_Eliminate : constant Name_Id := N + 115; -- GNAT - Name_Explicit_Overriding : constant Name_Id := N + 116; - Name_Extend_System : constant Name_Id := N + 117; -- GNAT - Name_Extensions_Allowed : constant Name_Id := N + 118; -- GNAT - Name_External_Name_Casing : constant Name_Id := N + 119; -- GNAT - Name_Float_Representation : constant Name_Id := N + 120; -- GNAT - Name_Initialize_Scalars : constant Name_Id := N + 121; -- GNAT - Name_Interrupt_State : constant Name_Id := N + 122; -- GNAT - Name_License : constant Name_Id := N + 123; -- GNAT - Name_Locking_Policy : constant Name_Id := N + 124; - Name_Long_Float : constant Name_Id := N + 125; -- VMS - Name_No_Run_Time : constant Name_Id := N + 126; -- GNAT - Name_No_Strict_Aliasing : constant Name_Id := N + 127; -- GNAT - Name_Normalize_Scalars : constant Name_Id := N + 128; - Name_Polling : constant Name_Id := N + 129; -- GNAT - Name_Persistent_Data : constant Name_Id := N + 130; -- GNAT - Name_Persistent_Object : constant Name_Id := N + 131; -- GNAT - Name_Profile : constant Name_Id := N + 132; -- Ada0Y - Name_Propagate_Exceptions : constant Name_Id := N + 133; -- GNAT - Name_Queuing_Policy : constant Name_Id := N + 134; - Name_Ravenscar : constant Name_Id := N + 135; - Name_Restricted_Run_Time : constant Name_Id := N + 136; - Name_Restrictions : constant Name_Id := N + 137; - Name_Restriction_Warnings : constant Name_Id := N + 138; -- GNAT - Name_Reviewable : constant Name_Id := N + 139; - Name_Source_File_Name : constant Name_Id := N + 140; -- GNAT - Name_Source_File_Name_Project : constant Name_Id := N + 141; -- GNAT - Name_Style_Checks : constant Name_Id := N + 142; -- GNAT - Name_Suppress : constant Name_Id := N + 143; - Name_Suppress_Exception_Locations : constant Name_Id := N + 144; -- GNAT - Name_Task_Dispatching_Policy : constant Name_Id := N + 145; - Name_Universal_Data : constant Name_Id := N + 146; -- AAMP - Name_Unsuppress : constant Name_Id := N + 147; -- GNAT - Name_Use_VADS_Size : constant Name_Id := N + 148; -- GNAT - Name_Validity_Checks : constant Name_Id := N + 149; -- GNAT - Name_Warnings : constant Name_Id := N + 150; -- GNAT - Last_Configuration_Pragma_Name : constant Name_Id := N + 150; + Name_Ada_05 : constant Name_Id := N + 109; -- GNAT + Name_C_Pass_By_Copy : constant Name_Id := N + 110; -- GNAT + Name_Compile_Time_Warning : constant Name_Id := N + 111; -- GNAT + Name_Component_Alignment : constant Name_Id := N + 112; -- GNAT + Name_Convention_Identifier : constant Name_Id := N + 113; -- GNAT + Name_Discard_Names : constant Name_Id := N + 114; + Name_Elaboration_Checks : constant Name_Id := N + 115; -- GNAT + Name_Eliminate : constant Name_Id := N + 116; -- GNAT + Name_Explicit_Overriding : constant Name_Id := N + 117; + Name_Extend_System : constant Name_Id := N + 118; -- GNAT + Name_Extensions_Allowed : constant Name_Id := N + 119; -- GNAT + Name_External_Name_Casing : constant Name_Id := N + 120; -- GNAT + Name_Float_Representation : constant Name_Id := N + 121; -- GNAT + Name_Initialize_Scalars : constant Name_Id := N + 122; -- GNAT + Name_Interrupt_State : constant Name_Id := N + 123; -- GNAT + Name_License : constant Name_Id := N + 124; -- GNAT + Name_Locking_Policy : constant Name_Id := N + 125; + Name_Long_Float : constant Name_Id := N + 126; -- VMS + Name_No_Run_Time : constant Name_Id := N + 127; -- GNAT + Name_No_Strict_Aliasing : constant Name_Id := N + 128; -- GNAT + Name_Normalize_Scalars : constant Name_Id := N + 129; + Name_Polling : constant Name_Id := N + 130; -- GNAT + Name_Persistent_Data : constant Name_Id := N + 131; -- GNAT + Name_Persistent_Object : constant Name_Id := N + 132; -- GNAT + Name_Profile : constant Name_Id := N + 133; -- Ada0Y + Name_Propagate_Exceptions : constant Name_Id := N + 134; -- GNAT + Name_Queuing_Policy : constant Name_Id := N + 135; + Name_Ravenscar : constant Name_Id := N + 136; + Name_Restricted_Run_Time : constant Name_Id := N + 137; + Name_Restrictions : constant Name_Id := N + 138; + Name_Restriction_Warnings : constant Name_Id := N + 139; -- GNAT + Name_Reviewable : constant Name_Id := N + 140; + Name_Source_File_Name : constant Name_Id := N + 141; -- GNAT + Name_Source_File_Name_Project : constant Name_Id := N + 142; -- GNAT + Name_Style_Checks : constant Name_Id := N + 143; -- GNAT + Name_Suppress : constant Name_Id := N + 144; + Name_Suppress_Exception_Locations : constant Name_Id := N + 145; -- GNAT + Name_Task_Dispatching_Policy : constant Name_Id := N + 146; + Name_Universal_Data : constant Name_Id := N + 147; -- AAMP + Name_Unsuppress : constant Name_Id := N + 148; -- GNAT + Name_Use_VADS_Size : constant Name_Id := N + 149; -- GNAT + Name_Validity_Checks : constant Name_Id := N + 150; -- GNAT + Name_Warnings : constant Name_Id := N + 151; -- GNAT + Last_Configuration_Pragma_Name : constant Name_Id := N + 151; -- Remaining pragma names - Name_Abort_Defer : constant Name_Id := N + 151; -- GNAT - Name_All_Calls_Remote : constant Name_Id := N + 152; - Name_Annotate : constant Name_Id := N + 153; -- GNAT + Name_Abort_Defer : constant Name_Id := N + 152; -- GNAT + Name_All_Calls_Remote : constant Name_Id := N + 153; + Name_Annotate : constant Name_Id := N + 154; -- GNAT -- Note: AST_Entry is not in this list because its name matches the -- name of the corresponding attribute. However, it is included in the @@ -374,78 +375,78 @@ package Snames is -- and Check_Pragma_Id correctly recognize and process Name_AST_Entry. -- AST_Entry is a VMS specific pragma. - Name_Assert : constant Name_Id := N + 154; -- GNAT - Name_Asynchronous : constant Name_Id := N + 155; - Name_Atomic : constant Name_Id := N + 156; - Name_Atomic_Components : constant Name_Id := N + 157; - Name_Attach_Handler : constant Name_Id := N + 158; - Name_Comment : constant Name_Id := N + 159; -- GNAT - Name_Common_Object : constant Name_Id := N + 160; -- GNAT - Name_Complex_Representation : constant Name_Id := N + 161; -- GNAT - Name_Controlled : constant Name_Id := N + 162; - Name_Convention : constant Name_Id := N + 163; - Name_CPP_Class : constant Name_Id := N + 164; -- GNAT - Name_CPP_Constructor : constant Name_Id := N + 165; -- GNAT - Name_CPP_Virtual : constant Name_Id := N + 166; -- GNAT - Name_CPP_Vtable : constant Name_Id := N + 167; -- GNAT - Name_Debug : constant Name_Id := N + 168; -- GNAT - Name_Elaborate : constant Name_Id := N + 169; -- Ada 83 - Name_Elaborate_All : constant Name_Id := N + 170; - Name_Elaborate_Body : constant Name_Id := N + 171; - Name_Export : constant Name_Id := N + 172; - Name_Export_Exception : constant Name_Id := N + 173; -- VMS - Name_Export_Function : constant Name_Id := N + 174; -- GNAT - Name_Export_Object : constant Name_Id := N + 175; -- GNAT - Name_Export_Procedure : constant Name_Id := N + 176; -- GNAT - Name_Export_Value : constant Name_Id := N + 177; -- GNAT - Name_Export_Valued_Procedure : constant Name_Id := N + 178; -- GNAT - Name_External : constant Name_Id := N + 179; -- GNAT - Name_Finalize_Storage_Only : constant Name_Id := N + 180; -- GNAT - Name_Ident : constant Name_Id := N + 181; -- VMS - Name_Import : constant Name_Id := N + 182; - Name_Import_Exception : constant Name_Id := N + 183; -- VMS - Name_Import_Function : constant Name_Id := N + 184; -- GNAT - Name_Import_Object : constant Name_Id := N + 185; -- GNAT - Name_Import_Procedure : constant Name_Id := N + 186; -- GNAT - Name_Import_Valued_Procedure : constant Name_Id := N + 187; -- GNAT - Name_Inline : constant Name_Id := N + 188; - Name_Inline_Always : constant Name_Id := N + 189; -- GNAT - Name_Inline_Generic : constant Name_Id := N + 190; -- GNAT - Name_Inspection_Point : constant Name_Id := N + 191; - Name_Interface : constant Name_Id := N + 192; -- Ada 83 - Name_Interface_Name : constant Name_Id := N + 193; -- GNAT - Name_Interrupt_Handler : constant Name_Id := N + 194; - Name_Interrupt_Priority : constant Name_Id := N + 195; - Name_Java_Constructor : constant Name_Id := N + 196; -- GNAT - Name_Java_Interface : constant Name_Id := N + 197; -- GNAT - Name_Keep_Names : constant Name_Id := N + 198; -- GNAT - Name_Link_With : constant Name_Id := N + 199; -- GNAT - Name_Linker_Alias : constant Name_Id := N + 200; -- GNAT - Name_Linker_Options : constant Name_Id := N + 201; - Name_Linker_Section : constant Name_Id := N + 202; -- GNAT - Name_List : constant Name_Id := N + 203; - Name_Machine_Attribute : constant Name_Id := N + 204; -- GNAT - Name_Main : constant Name_Id := N + 205; -- GNAT - Name_Main_Storage : constant Name_Id := N + 206; -- GNAT - Name_Memory_Size : constant Name_Id := N + 207; -- Ada 83 - Name_No_Return : constant Name_Id := N + 208; -- GNAT - Name_Obsolescent : constant Name_Id := N + 209; -- GNAT - Name_Optimize : constant Name_Id := N + 210; - Name_Optional_Overriding : constant Name_Id := N + 211; - Name_Overriding : constant Name_Id := N + 212; - Name_Pack : constant Name_Id := N + 213; - Name_Page : constant Name_Id := N + 214; - Name_Passive : constant Name_Id := N + 215; -- GNAT - Name_Preelaborate : constant Name_Id := N + 216; - Name_Priority : constant Name_Id := N + 217; - Name_Psect_Object : constant Name_Id := N + 218; -- VMS - Name_Pure : constant Name_Id := N + 219; - Name_Pure_Function : constant Name_Id := N + 220; -- GNAT - Name_Remote_Call_Interface : constant Name_Id := N + 221; - Name_Remote_Types : constant Name_Id := N + 222; - Name_Share_Generic : constant Name_Id := N + 223; -- GNAT - Name_Shared : constant Name_Id := N + 224; -- Ada 83 - Name_Shared_Passive : constant Name_Id := N + 225; + Name_Assert : constant Name_Id := N + 155; -- GNAT + Name_Asynchronous : constant Name_Id := N + 156; + Name_Atomic : constant Name_Id := N + 157; + Name_Atomic_Components : constant Name_Id := N + 158; + Name_Attach_Handler : constant Name_Id := N + 159; + Name_Comment : constant Name_Id := N + 160; -- GNAT + Name_Common_Object : constant Name_Id := N + 161; -- GNAT + Name_Complex_Representation : constant Name_Id := N + 162; -- GNAT + Name_Controlled : constant Name_Id := N + 163; + Name_Convention : constant Name_Id := N + 164; + Name_CPP_Class : constant Name_Id := N + 165; -- GNAT + Name_CPP_Constructor : constant Name_Id := N + 166; -- GNAT + Name_CPP_Virtual : constant Name_Id := N + 167; -- GNAT + Name_CPP_Vtable : constant Name_Id := N + 168; -- GNAT + Name_Debug : constant Name_Id := N + 169; -- GNAT + Name_Elaborate : constant Name_Id := N + 170; -- Ada 83 + Name_Elaborate_All : constant Name_Id := N + 171; + Name_Elaborate_Body : constant Name_Id := N + 172; + Name_Export : constant Name_Id := N + 173; + Name_Export_Exception : constant Name_Id := N + 174; -- VMS + Name_Export_Function : constant Name_Id := N + 175; -- GNAT + Name_Export_Object : constant Name_Id := N + 176; -- GNAT + Name_Export_Procedure : constant Name_Id := N + 177; -- GNAT + Name_Export_Value : constant Name_Id := N + 178; -- GNAT + Name_Export_Valued_Procedure : constant Name_Id := N + 179; -- GNAT + Name_External : constant Name_Id := N + 180; -- GNAT + Name_Finalize_Storage_Only : constant Name_Id := N + 181; -- GNAT + Name_Ident : constant Name_Id := N + 182; -- VMS + Name_Import : constant Name_Id := N + 183; + Name_Import_Exception : constant Name_Id := N + 184; -- VMS + Name_Import_Function : constant Name_Id := N + 185; -- GNAT + Name_Import_Object : constant Name_Id := N + 186; -- GNAT + Name_Import_Procedure : constant Name_Id := N + 187; -- GNAT + Name_Import_Valued_Procedure : constant Name_Id := N + 188; -- GNAT + Name_Inline : constant Name_Id := N + 189; + Name_Inline_Always : constant Name_Id := N + 190; -- GNAT + Name_Inline_Generic : constant Name_Id := N + 191; -- GNAT + Name_Inspection_Point : constant Name_Id := N + 192; + Name_Interface : constant Name_Id := N + 193; -- Ada 83 + Name_Interface_Name : constant Name_Id := N + 194; -- GNAT + Name_Interrupt_Handler : constant Name_Id := N + 195; + Name_Interrupt_Priority : constant Name_Id := N + 196; + Name_Java_Constructor : constant Name_Id := N + 197; -- GNAT + Name_Java_Interface : constant Name_Id := N + 198; -- GNAT + Name_Keep_Names : constant Name_Id := N + 199; -- GNAT + Name_Link_With : constant Name_Id := N + 200; -- GNAT + Name_Linker_Alias : constant Name_Id := N + 201; -- GNAT + Name_Linker_Options : constant Name_Id := N + 202; + Name_Linker_Section : constant Name_Id := N + 203; -- GNAT + Name_List : constant Name_Id := N + 204; + Name_Machine_Attribute : constant Name_Id := N + 205; -- GNAT + Name_Main : constant Name_Id := N + 206; -- GNAT + Name_Main_Storage : constant Name_Id := N + 207; -- GNAT + Name_Memory_Size : constant Name_Id := N + 208; -- Ada 83 + Name_No_Return : constant Name_Id := N + 209; -- GNAT + Name_Obsolescent : constant Name_Id := N + 210; -- GNAT + Name_Optimize : constant Name_Id := N + 211; + Name_Optional_Overriding : constant Name_Id := N + 212; + Name_Overriding : constant Name_Id := N + 213; + Name_Pack : constant Name_Id := N + 214; + Name_Page : constant Name_Id := N + 215; + Name_Passive : constant Name_Id := N + 216; -- GNAT + Name_Preelaborate : constant Name_Id := N + 217; + Name_Priority : constant Name_Id := N + 218; + Name_Psect_Object : constant Name_Id := N + 219; -- VMS + Name_Pure : constant Name_Id := N + 220; + Name_Pure_Function : constant Name_Id := N + 221; -- GNAT + Name_Remote_Call_Interface : constant Name_Id := N + 222; + Name_Remote_Types : constant Name_Id := N + 223; + Name_Share_Generic : constant Name_Id := N + 224; -- GNAT + Name_Shared : constant Name_Id := N + 225; -- Ada 83 + Name_Shared_Passive : constant Name_Id := N + 226; -- Note: Storage_Size is not in this list because its name matches the -- name of the corresponding attribute. However, it is included in the @@ -455,27 +456,27 @@ package Snames is -- Note: Storage_Unit is also omitted from the list because of a clash -- with an attribute name, and is treated similarly. - Name_Source_Reference : constant Name_Id := N + 226; -- GNAT - Name_Stream_Convert : constant Name_Id := N + 227; -- GNAT - Name_Subtitle : constant Name_Id := N + 228; -- GNAT - Name_Suppress_All : constant Name_Id := N + 229; -- GNAT - Name_Suppress_Debug_Info : constant Name_Id := N + 230; -- GNAT - Name_Suppress_Initialization : constant Name_Id := N + 231; -- GNAT - Name_System_Name : constant Name_Id := N + 232; -- Ada 83 - Name_Task_Info : constant Name_Id := N + 233; -- GNAT - Name_Task_Name : constant Name_Id := N + 234; -- GNAT - Name_Task_Storage : constant Name_Id := N + 235; -- VMS - Name_Thread_Body : constant Name_Id := N + 236; -- GNAT - Name_Time_Slice : constant Name_Id := N + 237; -- GNAT - Name_Title : constant Name_Id := N + 238; -- GNAT - Name_Unchecked_Union : constant Name_Id := N + 239; -- GNAT - Name_Unimplemented_Unit : constant Name_Id := N + 240; -- GNAT - Name_Unreferenced : constant Name_Id := N + 241; -- GNAT - Name_Unreserve_All_Interrupts : constant Name_Id := N + 242; -- GNAT - Name_Volatile : constant Name_Id := N + 243; - Name_Volatile_Components : constant Name_Id := N + 244; - Name_Weak_External : constant Name_Id := N + 245; -- GNAT - Last_Pragma_Name : constant Name_Id := N + 245; + Name_Source_Reference : constant Name_Id := N + 227; -- GNAT + Name_Stream_Convert : constant Name_Id := N + 228; -- GNAT + Name_Subtitle : constant Name_Id := N + 229; -- GNAT + Name_Suppress_All : constant Name_Id := N + 230; -- GNAT + Name_Suppress_Debug_Info : constant Name_Id := N + 231; -- GNAT + Name_Suppress_Initialization : constant Name_Id := N + 232; -- GNAT + Name_System_Name : constant Name_Id := N + 233; -- Ada 83 + Name_Task_Info : constant Name_Id := N + 234; -- GNAT + Name_Task_Name : constant Name_Id := N + 235; -- GNAT + Name_Task_Storage : constant Name_Id := N + 236; -- VMS + Name_Thread_Body : constant Name_Id := N + 237; -- GNAT + Name_Time_Slice : constant Name_Id := N + 238; -- GNAT + Name_Title : constant Name_Id := N + 239; -- GNAT + Name_Unchecked_Union : constant Name_Id := N + 240; -- GNAT + Name_Unimplemented_Unit : constant Name_Id := N + 241; -- GNAT + Name_Unreferenced : constant Name_Id := N + 242; -- GNAT + Name_Unreserve_All_Interrupts : constant Name_Id := N + 243; -- GNAT + Name_Volatile : constant Name_Id := N + 244; + Name_Volatile_Components : constant Name_Id := N + 245; + Name_Weak_External : constant Name_Id := N + 246; -- GNAT + Last_Pragma_Name : constant Name_Id := N + 246; -- Language convention names for pragma Convention/Export/Import/Interface -- Note that Name_C is not included in this list, since it was already @@ -486,105 +487,105 @@ package Snames is -- Entry and Protected, this is because these conventions cannot be -- specified by a pragma. - First_Convention_Name : constant Name_Id := N + 246; - Name_Ada : constant Name_Id := N + 246; - Name_Assembler : constant Name_Id := N + 247; - Name_COBOL : constant Name_Id := N + 248; - Name_CPP : constant Name_Id := N + 249; - Name_Fortran : constant Name_Id := N + 250; - Name_Intrinsic : constant Name_Id := N + 251; - Name_Java : constant Name_Id := N + 252; - Name_Stdcall : constant Name_Id := N + 253; - Name_Stubbed : constant Name_Id := N + 254; - Last_Convention_Name : constant Name_Id := N + 254; + First_Convention_Name : constant Name_Id := N + 247; + Name_Ada : constant Name_Id := N + 247; + Name_Assembler : constant Name_Id := N + 248; + Name_COBOL : constant Name_Id := N + 249; + Name_CPP : constant Name_Id := N + 250; + Name_Fortran : constant Name_Id := N + 251; + Name_Intrinsic : constant Name_Id := N + 252; + Name_Java : constant Name_Id := N + 253; + Name_Stdcall : constant Name_Id := N + 254; + Name_Stubbed : constant Name_Id := N + 255; + Last_Convention_Name : constant Name_Id := N + 255; -- The following names are preset as synonyms for Assembler - Name_Asm : constant Name_Id := N + 255; - Name_Assembly : constant Name_Id := N + 256; + Name_Asm : constant Name_Id := N + 256; + Name_Assembly : constant Name_Id := N + 257; -- The following names are preset as synonyms for C - Name_Default : constant Name_Id := N + 257; + Name_Default : constant Name_Id := N + 258; -- Name_Exernal (previously defined as pragma) -- The following names are present as synonyms for Stdcall - Name_DLL : constant Name_Id := N + 258; - Name_Win32 : constant Name_Id := N + 259; + Name_DLL : constant Name_Id := N + 259; + Name_Win32 : constant Name_Id := N + 260; -- Other special names used in processing pragmas - Name_As_Is : constant Name_Id := N + 260; - Name_Body_File_Name : constant Name_Id := N + 261; - Name_Boolean_Entry_Barriers : constant Name_Id := N + 262; - Name_Casing : constant Name_Id := N + 263; - Name_Code : constant Name_Id := N + 264; - Name_Component : constant Name_Id := N + 265; - Name_Component_Size_4 : constant Name_Id := N + 266; - Name_Copy : constant Name_Id := N + 267; - Name_D_Float : constant Name_Id := N + 268; - Name_Descriptor : constant Name_Id := N + 269; - Name_Dot_Replacement : constant Name_Id := N + 270; - Name_Dynamic : constant Name_Id := N + 271; - Name_Entity : constant Name_Id := N + 272; - Name_External_Name : constant Name_Id := N + 273; - Name_First_Optional_Parameter : constant Name_Id := N + 274; - Name_Form : constant Name_Id := N + 275; - Name_G_Float : constant Name_Id := N + 276; - Name_Gcc : constant Name_Id := N + 277; - Name_Gnat : constant Name_Id := N + 278; - Name_GPL : constant Name_Id := N + 279; - Name_IEEE_Float : constant Name_Id := N + 280; - Name_Internal : constant Name_Id := N + 281; - Name_Link_Name : constant Name_Id := N + 282; - Name_Lowercase : constant Name_Id := N + 283; - Name_Max_Entry_Queue_Depth : constant Name_Id := N + 284; - Name_Max_Entry_Queue_Length : constant Name_Id := N + 285; - Name_Max_Size : constant Name_Id := N + 286; - Name_Mechanism : constant Name_Id := N + 287; - Name_Mixedcase : constant Name_Id := N + 288; - Name_Modified_GPL : constant Name_Id := N + 289; - Name_Name : constant Name_Id := N + 290; - Name_NCA : constant Name_Id := N + 291; - Name_No : constant Name_Id := N + 292; - Name_On : constant Name_Id := N + 293; - Name_Parameter_Types : constant Name_Id := N + 294; - Name_Reference : constant Name_Id := N + 295; - Name_No_Dynamic_Attachment : constant Name_Id := N + 296; - Name_No_Dynamic_Interrupts : constant Name_Id := N + 297; - Name_No_Requeue : constant Name_Id := N + 298; - Name_No_Requeue_Statements : constant Name_Id := N + 299; - Name_No_Task_Attributes : constant Name_Id := N + 300; - Name_No_Task_Attributes_Package : constant Name_Id := N + 301; - Name_Restricted : constant Name_Id := N + 302; - Name_Result_Mechanism : constant Name_Id := N + 303; - Name_Result_Type : constant Name_Id := N + 304; - Name_Runtime : constant Name_Id := N + 305; - Name_SB : constant Name_Id := N + 306; - Name_Secondary_Stack_Size : constant Name_Id := N + 307; - Name_Section : constant Name_Id := N + 308; - Name_Semaphore : constant Name_Id := N + 309; - Name_Simple_Barriers : constant Name_Id := N + 310; - Name_Spec_File_Name : constant Name_Id := N + 311; - Name_Static : constant Name_Id := N + 312; - Name_Stack_Size : constant Name_Id := N + 313; - Name_Subunit_File_Name : constant Name_Id := N + 314; - Name_Task_Stack_Size_Default : constant Name_Id := N + 315; - Name_Task_Type : constant Name_Id := N + 316; - Name_Time_Slicing_Enabled : constant Name_Id := N + 317; - Name_Top_Guard : constant Name_Id := N + 318; - Name_UBA : constant Name_Id := N + 319; - Name_UBS : constant Name_Id := N + 320; - Name_UBSB : constant Name_Id := N + 321; - Name_Unit_Name : constant Name_Id := N + 322; - Name_Unknown : constant Name_Id := N + 323; - Name_Unrestricted : constant Name_Id := N + 324; - Name_Uppercase : constant Name_Id := N + 325; - Name_User : constant Name_Id := N + 326; - Name_VAX_Float : constant Name_Id := N + 327; - Name_VMS : constant Name_Id := N + 328; - Name_Working_Storage : constant Name_Id := N + 329; + Name_As_Is : constant Name_Id := N + 261; + Name_Body_File_Name : constant Name_Id := N + 262; + Name_Boolean_Entry_Barriers : constant Name_Id := N + 263; + Name_Casing : constant Name_Id := N + 264; + Name_Code : constant Name_Id := N + 265; + Name_Component : constant Name_Id := N + 266; + Name_Component_Size_4 : constant Name_Id := N + 267; + Name_Copy : constant Name_Id := N + 268; + Name_D_Float : constant Name_Id := N + 269; + Name_Descriptor : constant Name_Id := N + 270; + Name_Dot_Replacement : constant Name_Id := N + 271; + Name_Dynamic : constant Name_Id := N + 272; + Name_Entity : constant Name_Id := N + 273; + Name_External_Name : constant Name_Id := N + 274; + Name_First_Optional_Parameter : constant Name_Id := N + 275; + Name_Form : constant Name_Id := N + 276; + Name_G_Float : constant Name_Id := N + 277; + Name_Gcc : constant Name_Id := N + 278; + Name_Gnat : constant Name_Id := N + 279; + Name_GPL : constant Name_Id := N + 280; + Name_IEEE_Float : constant Name_Id := N + 281; + Name_Internal : constant Name_Id := N + 282; + Name_Link_Name : constant Name_Id := N + 283; + Name_Lowercase : constant Name_Id := N + 284; + Name_Max_Entry_Queue_Depth : constant Name_Id := N + 285; + Name_Max_Entry_Queue_Length : constant Name_Id := N + 286; + Name_Max_Size : constant Name_Id := N + 287; + Name_Mechanism : constant Name_Id := N + 288; + Name_Mixedcase : constant Name_Id := N + 289; + Name_Modified_GPL : constant Name_Id := N + 290; + Name_Name : constant Name_Id := N + 291; + Name_NCA : constant Name_Id := N + 292; + Name_No : constant Name_Id := N + 293; + Name_On : constant Name_Id := N + 294; + Name_Parameter_Types : constant Name_Id := N + 295; + Name_Reference : constant Name_Id := N + 296; + Name_No_Dynamic_Attachment : constant Name_Id := N + 297; + Name_No_Dynamic_Interrupts : constant Name_Id := N + 298; + Name_No_Requeue : constant Name_Id := N + 299; + Name_No_Requeue_Statements : constant Name_Id := N + 300; + Name_No_Task_Attributes : constant Name_Id := N + 301; + Name_No_Task_Attributes_Package : constant Name_Id := N + 302; + Name_Restricted : constant Name_Id := N + 303; + Name_Result_Mechanism : constant Name_Id := N + 304; + Name_Result_Type : constant Name_Id := N + 305; + Name_Runtime : constant Name_Id := N + 306; + Name_SB : constant Name_Id := N + 307; + Name_Secondary_Stack_Size : constant Name_Id := N + 308; + Name_Section : constant Name_Id := N + 309; + Name_Semaphore : constant Name_Id := N + 310; + Name_Simple_Barriers : constant Name_Id := N + 311; + Name_Spec_File_Name : constant Name_Id := N + 312; + Name_Static : constant Name_Id := N + 313; + Name_Stack_Size : constant Name_Id := N + 314; + Name_Subunit_File_Name : constant Name_Id := N + 315; + Name_Task_Stack_Size_Default : constant Name_Id := N + 316; + Name_Task_Type : constant Name_Id := N + 317; + Name_Time_Slicing_Enabled : constant Name_Id := N + 318; + Name_Top_Guard : constant Name_Id := N + 319; + Name_UBA : constant Name_Id := N + 320; + Name_UBS : constant Name_Id := N + 321; + Name_UBSB : constant Name_Id := N + 322; + Name_Unit_Name : constant Name_Id := N + 323; + Name_Unknown : constant Name_Id := N + 324; + Name_Unrestricted : constant Name_Id := N + 325; + Name_Uppercase : constant Name_Id := N + 326; + Name_User : constant Name_Id := N + 327; + Name_VAX_Float : constant Name_Id := N + 328; + Name_VMS : constant Name_Id := N + 329; + Name_Working_Storage : constant Name_Id := N + 330; -- Names of recognized attributes. The entries with the comment "Ada 83" -- are attributes that are defined in Ada 83, but not in Ada 95. These @@ -598,158 +599,158 @@ package Snames is -- The entries marked VMS are recognized only in OpenVMS implementations -- of GNAT, and are treated as illegal in all other contexts. - First_Attribute_Name : constant Name_Id := N + 330; - Name_Abort_Signal : constant Name_Id := N + 330; -- GNAT - Name_Access : constant Name_Id := N + 331; - Name_Address : constant Name_Id := N + 332; - Name_Address_Size : constant Name_Id := N + 333; -- GNAT - Name_Aft : constant Name_Id := N + 334; - Name_Alignment : constant Name_Id := N + 335; - Name_Asm_Input : constant Name_Id := N + 336; -- GNAT - Name_Asm_Output : constant Name_Id := N + 337; -- GNAT - Name_AST_Entry : constant Name_Id := N + 338; -- VMS - Name_Bit : constant Name_Id := N + 339; -- GNAT - Name_Bit_Order : constant Name_Id := N + 340; - Name_Bit_Position : constant Name_Id := N + 341; -- GNAT - Name_Body_Version : constant Name_Id := N + 342; - Name_Callable : constant Name_Id := N + 343; - Name_Caller : constant Name_Id := N + 344; - Name_Code_Address : constant Name_Id := N + 345; -- GNAT - Name_Component_Size : constant Name_Id := N + 346; - Name_Compose : constant Name_Id := N + 347; - Name_Constrained : constant Name_Id := N + 348; - Name_Count : constant Name_Id := N + 349; - Name_Default_Bit_Order : constant Name_Id := N + 350; -- GNAT - Name_Definite : constant Name_Id := N + 351; - Name_Delta : constant Name_Id := N + 352; - Name_Denorm : constant Name_Id := N + 353; - Name_Digits : constant Name_Id := N + 354; - Name_Elaborated : constant Name_Id := N + 355; -- GNAT - Name_Emax : constant Name_Id := N + 356; -- Ada 83 - Name_Enum_Rep : constant Name_Id := N + 357; -- GNAT - Name_Epsilon : constant Name_Id := N + 358; -- Ada 83 - Name_Exponent : constant Name_Id := N + 359; - Name_External_Tag : constant Name_Id := N + 360; - Name_First : constant Name_Id := N + 361; - Name_First_Bit : constant Name_Id := N + 362; - Name_Fixed_Value : constant Name_Id := N + 363; -- GNAT - Name_Fore : constant Name_Id := N + 364; - Name_Has_Discriminants : constant Name_Id := N + 365; -- GNAT - Name_Identity : constant Name_Id := N + 366; - Name_Img : constant Name_Id := N + 367; -- GNAT - Name_Integer_Value : constant Name_Id := N + 368; -- GNAT - Name_Large : constant Name_Id := N + 369; -- Ada 83 - Name_Last : constant Name_Id := N + 370; - Name_Last_Bit : constant Name_Id := N + 371; - Name_Leading_Part : constant Name_Id := N + 372; - Name_Length : constant Name_Id := N + 373; - Name_Machine_Emax : constant Name_Id := N + 374; - Name_Machine_Emin : constant Name_Id := N + 375; - Name_Machine_Mantissa : constant Name_Id := N + 376; - Name_Machine_Overflows : constant Name_Id := N + 377; - Name_Machine_Radix : constant Name_Id := N + 378; - Name_Machine_Rounds : constant Name_Id := N + 379; - Name_Machine_Size : constant Name_Id := N + 380; -- GNAT - Name_Mantissa : constant Name_Id := N + 381; -- Ada 83 - Name_Max_Size_In_Storage_Elements : constant Name_Id := N + 382; - Name_Maximum_Alignment : constant Name_Id := N + 383; -- GNAT - Name_Mechanism_Code : constant Name_Id := N + 384; -- GNAT - Name_Model_Emin : constant Name_Id := N + 385; - Name_Model_Epsilon : constant Name_Id := N + 386; - Name_Model_Mantissa : constant Name_Id := N + 387; - Name_Model_Small : constant Name_Id := N + 388; - Name_Modulus : constant Name_Id := N + 389; - Name_Null_Parameter : constant Name_Id := N + 390; -- GNAT - Name_Object_Size : constant Name_Id := N + 391; -- GNAT - Name_Partition_ID : constant Name_Id := N + 392; - Name_Passed_By_Reference : constant Name_Id := N + 393; -- GNAT - Name_Pool_Address : constant Name_Id := N + 394; - Name_Pos : constant Name_Id := N + 395; - Name_Position : constant Name_Id := N + 396; - Name_Range : constant Name_Id := N + 397; - Name_Range_Length : constant Name_Id := N + 398; -- GNAT - Name_Round : constant Name_Id := N + 399; - Name_Safe_Emax : constant Name_Id := N + 400; -- Ada 83 - Name_Safe_First : constant Name_Id := N + 401; - Name_Safe_Large : constant Name_Id := N + 402; -- Ada 83 - Name_Safe_Last : constant Name_Id := N + 403; - Name_Safe_Small : constant Name_Id := N + 404; -- Ada 83 - Name_Scale : constant Name_Id := N + 405; - Name_Scaling : constant Name_Id := N + 406; - Name_Signed_Zeros : constant Name_Id := N + 407; - Name_Size : constant Name_Id := N + 408; - Name_Small : constant Name_Id := N + 409; - Name_Storage_Size : constant Name_Id := N + 410; - Name_Storage_Unit : constant Name_Id := N + 411; -- GNAT - Name_Tag : constant Name_Id := N + 412; - Name_Target_Name : constant Name_Id := N + 413; -- GNAT - Name_Terminated : constant Name_Id := N + 414; - Name_To_Address : constant Name_Id := N + 415; -- GNAT - Name_Type_Class : constant Name_Id := N + 416; -- GNAT - Name_UET_Address : constant Name_Id := N + 417; -- GNAT - Name_Unbiased_Rounding : constant Name_Id := N + 418; - Name_Unchecked_Access : constant Name_Id := N + 419; - Name_Unconstrained_Array : constant Name_Id := N + 420; - Name_Universal_Literal_String : constant Name_Id := N + 421; -- GNAT - Name_Unrestricted_Access : constant Name_Id := N + 422; -- GNAT - Name_VADS_Size : constant Name_Id := N + 423; -- GNAT - Name_Val : constant Name_Id := N + 424; - Name_Valid : constant Name_Id := N + 425; - Name_Value_Size : constant Name_Id := N + 426; -- GNAT - Name_Version : constant Name_Id := N + 427; - Name_Wchar_T_Size : constant Name_Id := N + 428; -- GNAT - Name_Wide_Width : constant Name_Id := N + 429; - Name_Width : constant Name_Id := N + 430; - Name_Word_Size : constant Name_Id := N + 431; -- GNAT + First_Attribute_Name : constant Name_Id := N + 331; + Name_Abort_Signal : constant Name_Id := N + 331; -- GNAT + Name_Access : constant Name_Id := N + 332; + Name_Address : constant Name_Id := N + 333; + Name_Address_Size : constant Name_Id := N + 334; -- GNAT + Name_Aft : constant Name_Id := N + 335; + Name_Alignment : constant Name_Id := N + 336; + Name_Asm_Input : constant Name_Id := N + 337; -- GNAT + Name_Asm_Output : constant Name_Id := N + 338; -- GNAT + Name_AST_Entry : constant Name_Id := N + 339; -- VMS + Name_Bit : constant Name_Id := N + 340; -- GNAT + Name_Bit_Order : constant Name_Id := N + 341; + Name_Bit_Position : constant Name_Id := N + 342; -- GNAT + Name_Body_Version : constant Name_Id := N + 343; + Name_Callable : constant Name_Id := N + 344; + Name_Caller : constant Name_Id := N + 345; + Name_Code_Address : constant Name_Id := N + 346; -- GNAT + Name_Component_Size : constant Name_Id := N + 347; + Name_Compose : constant Name_Id := N + 348; + Name_Constrained : constant Name_Id := N + 349; + Name_Count : constant Name_Id := N + 350; + Name_Default_Bit_Order : constant Name_Id := N + 351; -- GNAT + Name_Definite : constant Name_Id := N + 352; + Name_Delta : constant Name_Id := N + 353; + Name_Denorm : constant Name_Id := N + 354; + Name_Digits : constant Name_Id := N + 355; + Name_Elaborated : constant Name_Id := N + 356; -- GNAT + Name_Emax : constant Name_Id := N + 357; -- Ada 83 + Name_Enum_Rep : constant Name_Id := N + 358; -- GNAT + Name_Epsilon : constant Name_Id := N + 359; -- Ada 83 + Name_Exponent : constant Name_Id := N + 360; + Name_External_Tag : constant Name_Id := N + 361; + Name_First : constant Name_Id := N + 362; + Name_First_Bit : constant Name_Id := N + 363; + Name_Fixed_Value : constant Name_Id := N + 364; -- GNAT + Name_Fore : constant Name_Id := N + 365; + Name_Has_Discriminants : constant Name_Id := N + 366; -- GNAT + Name_Identity : constant Name_Id := N + 367; + Name_Img : constant Name_Id := N + 368; -- GNAT + Name_Integer_Value : constant Name_Id := N + 369; -- GNAT + Name_Large : constant Name_Id := N + 370; -- Ada 83 + Name_Last : constant Name_Id := N + 371; + Name_Last_Bit : constant Name_Id := N + 372; + Name_Leading_Part : constant Name_Id := N + 373; + Name_Length : constant Name_Id := N + 374; + Name_Machine_Emax : constant Name_Id := N + 375; + Name_Machine_Emin : constant Name_Id := N + 376; + Name_Machine_Mantissa : constant Name_Id := N + 377; + Name_Machine_Overflows : constant Name_Id := N + 378; + Name_Machine_Radix : constant Name_Id := N + 379; + Name_Machine_Rounds : constant Name_Id := N + 380; + Name_Machine_Size : constant Name_Id := N + 381; -- GNAT + Name_Mantissa : constant Name_Id := N + 382; -- Ada 83 + Name_Max_Size_In_Storage_Elements : constant Name_Id := N + 383; + Name_Maximum_Alignment : constant Name_Id := N + 384; -- GNAT + Name_Mechanism_Code : constant Name_Id := N + 385; -- GNAT + Name_Model_Emin : constant Name_Id := N + 386; + Name_Model_Epsilon : constant Name_Id := N + 387; + Name_Model_Mantissa : constant Name_Id := N + 388; + Name_Model_Small : constant Name_Id := N + 389; + Name_Modulus : constant Name_Id := N + 390; + Name_Null_Parameter : constant Name_Id := N + 391; -- GNAT + Name_Object_Size : constant Name_Id := N + 392; -- GNAT + Name_Partition_ID : constant Name_Id := N + 393; + Name_Passed_By_Reference : constant Name_Id := N + 394; -- GNAT + Name_Pool_Address : constant Name_Id := N + 395; + Name_Pos : constant Name_Id := N + 396; + Name_Position : constant Name_Id := N + 397; + Name_Range : constant Name_Id := N + 398; + Name_Range_Length : constant Name_Id := N + 399; -- GNAT + Name_Round : constant Name_Id := N + 400; + Name_Safe_Emax : constant Name_Id := N + 401; -- Ada 83 + Name_Safe_First : constant Name_Id := N + 402; + Name_Safe_Large : constant Name_Id := N + 403; -- Ada 83 + Name_Safe_Last : constant Name_Id := N + 404; + Name_Safe_Small : constant Name_Id := N + 405; -- Ada 83 + Name_Scale : constant Name_Id := N + 406; + Name_Scaling : constant Name_Id := N + 407; + Name_Signed_Zeros : constant Name_Id := N + 408; + Name_Size : constant Name_Id := N + 409; + Name_Small : constant Name_Id := N + 410; + Name_Storage_Size : constant Name_Id := N + 411; + Name_Storage_Unit : constant Name_Id := N + 412; -- GNAT + Name_Tag : constant Name_Id := N + 413; + Name_Target_Name : constant Name_Id := N + 414; -- GNAT + Name_Terminated : constant Name_Id := N + 415; + Name_To_Address : constant Name_Id := N + 416; -- GNAT + Name_Type_Class : constant Name_Id := N + 417; -- GNAT + Name_UET_Address : constant Name_Id := N + 418; -- GNAT + Name_Unbiased_Rounding : constant Name_Id := N + 419; + Name_Unchecked_Access : constant Name_Id := N + 420; + Name_Unconstrained_Array : constant Name_Id := N + 421; + Name_Universal_Literal_String : constant Name_Id := N + 422; -- GNAT + Name_Unrestricted_Access : constant Name_Id := N + 423; -- GNAT + Name_VADS_Size : constant Name_Id := N + 424; -- GNAT + Name_Val : constant Name_Id := N + 425; + Name_Valid : constant Name_Id := N + 426; + Name_Value_Size : constant Name_Id := N + 427; -- GNAT + Name_Version : constant Name_Id := N + 428; + Name_Wchar_T_Size : constant Name_Id := N + 429; -- GNAT + Name_Wide_Width : constant Name_Id := N + 430; + Name_Width : constant Name_Id := N + 431; + Name_Word_Size : constant Name_Id := N + 432; -- GNAT -- Attributes that designate attributes returning renamable functions, -- i.e. functions that return other than a universal value. - First_Renamable_Function_Attribute : constant Name_Id := N + 432; - Name_Adjacent : constant Name_Id := N + 432; - Name_Ceiling : constant Name_Id := N + 433; - Name_Copy_Sign : constant Name_Id := N + 434; - Name_Floor : constant Name_Id := N + 435; - Name_Fraction : constant Name_Id := N + 436; - Name_Image : constant Name_Id := N + 437; - Name_Input : constant Name_Id := N + 438; - Name_Machine : constant Name_Id := N + 439; - Name_Max : constant Name_Id := N + 440; - Name_Min : constant Name_Id := N + 441; - Name_Model : constant Name_Id := N + 442; - Name_Pred : constant Name_Id := N + 443; - Name_Remainder : constant Name_Id := N + 444; - Name_Rounding : constant Name_Id := N + 445; - Name_Succ : constant Name_Id := N + 446; - Name_Truncation : constant Name_Id := N + 447; - Name_Value : constant Name_Id := N + 448; - Name_Wide_Image : constant Name_Id := N + 449; - Name_Wide_Value : constant Name_Id := N + 450; - Last_Renamable_Function_Attribute : constant Name_Id := N + 450; + First_Renamable_Function_Attribute : constant Name_Id := N + 433; + Name_Adjacent : constant Name_Id := N + 433; + Name_Ceiling : constant Name_Id := N + 434; + Name_Copy_Sign : constant Name_Id := N + 435; + Name_Floor : constant Name_Id := N + 436; + Name_Fraction : constant Name_Id := N + 437; + Name_Image : constant Name_Id := N + 438; + Name_Input : constant Name_Id := N + 439; + Name_Machine : constant Name_Id := N + 440; + Name_Max : constant Name_Id := N + 441; + Name_Min : constant Name_Id := N + 442; + Name_Model : constant Name_Id := N + 443; + Name_Pred : constant Name_Id := N + 444; + Name_Remainder : constant Name_Id := N + 445; + Name_Rounding : constant Name_Id := N + 446; + Name_Succ : constant Name_Id := N + 447; + Name_Truncation : constant Name_Id := N + 448; + Name_Value : constant Name_Id := N + 449; + Name_Wide_Image : constant Name_Id := N + 450; + Name_Wide_Value : constant Name_Id := N + 451; + Last_Renamable_Function_Attribute : constant Name_Id := N + 451; -- Attributes that designate procedures - First_Procedure_Attribute : constant Name_Id := N + 451; - Name_Output : constant Name_Id := N + 451; - Name_Read : constant Name_Id := N + 452; - Name_Write : constant Name_Id := N + 453; - Last_Procedure_Attribute : constant Name_Id := N + 453; + First_Procedure_Attribute : constant Name_Id := N + 452; + Name_Output : constant Name_Id := N + 452; + Name_Read : constant Name_Id := N + 453; + Name_Write : constant Name_Id := N + 454; + Last_Procedure_Attribute : constant Name_Id := N + 454; -- Remaining attributes are ones that return entities - First_Entity_Attribute_Name : constant Name_Id := N + 454; - Name_Elab_Body : constant Name_Id := N + 454; -- GNAT - Name_Elab_Spec : constant Name_Id := N + 455; -- GNAT - Name_Storage_Pool : constant Name_Id := N + 456; + First_Entity_Attribute_Name : constant Name_Id := N + 455; + Name_Elab_Body : constant Name_Id := N + 455; -- GNAT + Name_Elab_Spec : constant Name_Id := N + 456; -- GNAT + Name_Storage_Pool : constant Name_Id := N + 457; -- These attributes are the ones that return types - First_Type_Attribute_Name : constant Name_Id := N + 457; - Name_Base : constant Name_Id := N + 457; - Name_Class : constant Name_Id := N + 458; - Last_Type_Attribute_Name : constant Name_Id := N + 458; - Last_Entity_Attribute_Name : constant Name_Id := N + 458; - Last_Attribute_Name : constant Name_Id := N + 458; + First_Type_Attribute_Name : constant Name_Id := N + 458; + Name_Base : constant Name_Id := N + 458; + Name_Class : constant Name_Id := N + 459; + Last_Type_Attribute_Name : constant Name_Id := N + 459; + Last_Entity_Attribute_Name : constant Name_Id := N + 459; + Last_Attribute_Name : constant Name_Id := N + 459; -- Names of recognized locking policy identifiers @@ -757,10 +758,10 @@ package Snames is -- name (e.g. C for Ceiling_Locking). If new policy names are added, -- the first character must be distinct. - First_Locking_Policy_Name : constant Name_Id := N + 459; - Name_Ceiling_Locking : constant Name_Id := N + 459; - Name_Inheritance_Locking : constant Name_Id := N + 460; - Last_Locking_Policy_Name : constant Name_Id := N + 460; + First_Locking_Policy_Name : constant Name_Id := N + 460; + Name_Ceiling_Locking : constant Name_Id := N + 460; + Name_Inheritance_Locking : constant Name_Id := N + 461; + Last_Locking_Policy_Name : constant Name_Id := N + 461; -- Names of recognized queuing policy identifiers. @@ -768,10 +769,10 @@ package Snames is -- name (e.g. F for FIFO_Queuing). If new policy names are added, -- the first character must be distinct. - First_Queuing_Policy_Name : constant Name_Id := N + 461; - Name_FIFO_Queuing : constant Name_Id := N + 461; - Name_Priority_Queuing : constant Name_Id := N + 462; - Last_Queuing_Policy_Name : constant Name_Id := N + 462; + First_Queuing_Policy_Name : constant Name_Id := N + 462; + Name_FIFO_Queuing : constant Name_Id := N + 462; + Name_Priority_Queuing : constant Name_Id := N + 463; + Last_Queuing_Policy_Name : constant Name_Id := N + 463; -- Names of recognized task dispatching policy identifiers @@ -779,193 +780,194 @@ package Snames is -- name (e.g. F for FIFO_WIthinn_Priorities). If new policy names -- are added, the first character must be distinct. - First_Task_Dispatching_Policy_Name : constant Name_Id := N + 463; - Name_FIFO_Within_Priorities : constant Name_Id := N + 463; - Last_Task_Dispatching_Policy_Name : constant Name_Id := N + 463; + First_Task_Dispatching_Policy_Name : constant Name_Id := N + 464; + Name_FIFO_Within_Priorities : constant Name_Id := N + 464; + Last_Task_Dispatching_Policy_Name : constant Name_Id := N + 464; -- Names of recognized checks for pragma Suppress - First_Check_Name : constant Name_Id := N + 464; - Name_Access_Check : constant Name_Id := N + 464; - Name_Accessibility_Check : constant Name_Id := N + 465; - Name_Discriminant_Check : constant Name_Id := N + 466; - Name_Division_Check : constant Name_Id := N + 467; - Name_Elaboration_Check : constant Name_Id := N + 468; - Name_Index_Check : constant Name_Id := N + 469; - Name_Length_Check : constant Name_Id := N + 470; - Name_Overflow_Check : constant Name_Id := N + 471; - Name_Range_Check : constant Name_Id := N + 472; - Name_Storage_Check : constant Name_Id := N + 473; - Name_Tag_Check : constant Name_Id := N + 474; - Name_All_Checks : constant Name_Id := N + 475; - Last_Check_Name : constant Name_Id := N + 475; + First_Check_Name : constant Name_Id := N + 465; + Name_Access_Check : constant Name_Id := N + 465; + Name_Accessibility_Check : constant Name_Id := N + 466; + Name_Discriminant_Check : constant Name_Id := N + 467; + Name_Division_Check : constant Name_Id := N + 468; + Name_Elaboration_Check : constant Name_Id := N + 469; + Name_Index_Check : constant Name_Id := N + 470; + Name_Length_Check : constant Name_Id := N + 471; + Name_Overflow_Check : constant Name_Id := N + 472; + Name_Range_Check : constant Name_Id := N + 473; + Name_Storage_Check : constant Name_Id := N + 474; + Name_Tag_Check : constant Name_Id := N + 475; + Name_All_Checks : constant Name_Id := N + 476; + Last_Check_Name : constant Name_Id := N + 476; -- Names corresponding to reserved keywords, excluding those already -- declared in the attribute list (Access, Delta, Digits, Range). - Name_Abort : constant Name_Id := N + 476; - Name_Abs : constant Name_Id := N + 477; - Name_Accept : constant Name_Id := N + 478; - Name_And : constant Name_Id := N + 479; - Name_All : constant Name_Id := N + 480; - Name_Array : constant Name_Id := N + 481; - Name_At : constant Name_Id := N + 482; - Name_Begin : constant Name_Id := N + 483; - Name_Body : constant Name_Id := N + 484; - Name_Case : constant Name_Id := N + 485; - Name_Constant : constant Name_Id := N + 486; - Name_Declare : constant Name_Id := N + 487; - Name_Delay : constant Name_Id := N + 488; - Name_Do : constant Name_Id := N + 489; - Name_Else : constant Name_Id := N + 490; - Name_Elsif : constant Name_Id := N + 491; - Name_End : constant Name_Id := N + 492; - Name_Entry : constant Name_Id := N + 493; - Name_Exception : constant Name_Id := N + 494; - Name_Exit : constant Name_Id := N + 495; - Name_For : constant Name_Id := N + 496; - Name_Function : constant Name_Id := N + 497; - Name_Generic : constant Name_Id := N + 498; - Name_Goto : constant Name_Id := N + 499; - Name_If : constant Name_Id := N + 500; - Name_In : constant Name_Id := N + 501; - Name_Is : constant Name_Id := N + 502; - Name_Limited : constant Name_Id := N + 503; - Name_Loop : constant Name_Id := N + 504; - Name_Mod : constant Name_Id := N + 505; - Name_New : constant Name_Id := N + 506; - Name_Not : constant Name_Id := N + 507; - Name_Null : constant Name_Id := N + 508; - Name_Of : constant Name_Id := N + 509; - Name_Or : constant Name_Id := N + 510; - Name_Others : constant Name_Id := N + 511; - Name_Out : constant Name_Id := N + 512; - Name_Package : constant Name_Id := N + 513; - Name_Pragma : constant Name_Id := N + 514; - Name_Private : constant Name_Id := N + 515; - Name_Procedure : constant Name_Id := N + 516; - Name_Raise : constant Name_Id := N + 517; - Name_Record : constant Name_Id := N + 518; - Name_Rem : constant Name_Id := N + 519; - Name_Renames : constant Name_Id := N + 520; - Name_Return : constant Name_Id := N + 521; - Name_Reverse : constant Name_Id := N + 522; - Name_Select : constant Name_Id := N + 523; - Name_Separate : constant Name_Id := N + 524; - Name_Subtype : constant Name_Id := N + 525; - Name_Task : constant Name_Id := N + 526; - Name_Terminate : constant Name_Id := N + 527; - Name_Then : constant Name_Id := N + 528; - Name_Type : constant Name_Id := N + 529; - Name_Use : constant Name_Id := N + 530; - Name_When : constant Name_Id := N + 531; - Name_While : constant Name_Id := N + 532; - Name_With : constant Name_Id := N + 533; - Name_Xor : constant Name_Id := N + 534; + Name_Abort : constant Name_Id := N + 477; + Name_Abs : constant Name_Id := N + 478; + Name_Accept : constant Name_Id := N + 479; + Name_And : constant Name_Id := N + 480; + Name_All : constant Name_Id := N + 481; + Name_Array : constant Name_Id := N + 482; + Name_At : constant Name_Id := N + 483; + Name_Begin : constant Name_Id := N + 484; + Name_Body : constant Name_Id := N + 485; + Name_Case : constant Name_Id := N + 486; + Name_Constant : constant Name_Id := N + 487; + Name_Declare : constant Name_Id := N + 488; + Name_Delay : constant Name_Id := N + 489; + Name_Do : constant Name_Id := N + 490; + Name_Else : constant Name_Id := N + 491; + Name_Elsif : constant Name_Id := N + 492; + Name_End : constant Name_Id := N + 493; + Name_Entry : constant Name_Id := N + 494; + Name_Exception : constant Name_Id := N + 495; + Name_Exit : constant Name_Id := N + 496; + Name_For : constant Name_Id := N + 497; + Name_Function : constant Name_Id := N + 498; + Name_Generic : constant Name_Id := N + 499; + Name_Goto : constant Name_Id := N + 500; + Name_If : constant Name_Id := N + 501; + Name_In : constant Name_Id := N + 502; + Name_Is : constant Name_Id := N + 503; + Name_Limited : constant Name_Id := N + 504; + Name_Loop : constant Name_Id := N + 505; + Name_Mod : constant Name_Id := N + 506; + Name_New : constant Name_Id := N + 507; + Name_Not : constant Name_Id := N + 508; + Name_Null : constant Name_Id := N + 509; + Name_Of : constant Name_Id := N + 510; + Name_Or : constant Name_Id := N + 511; + Name_Others : constant Name_Id := N + 512; + Name_Out : constant Name_Id := N + 513; + Name_Package : constant Name_Id := N + 514; + Name_Pragma : constant Name_Id := N + 515; + Name_Private : constant Name_Id := N + 516; + Name_Procedure : constant Name_Id := N + 517; + Name_Raise : constant Name_Id := N + 518; + Name_Record : constant Name_Id := N + 519; + Name_Rem : constant Name_Id := N + 520; + Name_Renames : constant Name_Id := N + 521; + Name_Return : constant Name_Id := N + 522; + Name_Reverse : constant Name_Id := N + 523; + Name_Select : constant Name_Id := N + 524; + Name_Separate : constant Name_Id := N + 525; + Name_Subtype : constant Name_Id := N + 526; + Name_Task : constant Name_Id := N + 527; + Name_Terminate : constant Name_Id := N + 528; + Name_Then : constant Name_Id := N + 529; + Name_Type : constant Name_Id := N + 530; + Name_Use : constant Name_Id := N + 531; + Name_When : constant Name_Id := N + 532; + Name_While : constant Name_Id := N + 533; + Name_With : constant Name_Id := N + 534; + Name_Xor : constant Name_Id := N + 535; -- Names of intrinsic subprograms -- Note: Asm is missing from this list, since Asm is a legitimate -- convention name. So is To_Adress, which is a GNAT attribute. - First_Intrinsic_Name : constant Name_Id := N + 535; - Name_Divide : constant Name_Id := N + 535; - Name_Enclosing_Entity : constant Name_Id := N + 536; - Name_Exception_Information : constant Name_Id := N + 537; - Name_Exception_Message : constant Name_Id := N + 538; - Name_Exception_Name : constant Name_Id := N + 539; - Name_File : constant Name_Id := N + 540; - Name_Import_Address : constant Name_Id := N + 541; - Name_Import_Largest_Value : constant Name_Id := N + 542; - Name_Import_Value : constant Name_Id := N + 543; - Name_Is_Negative : constant Name_Id := N + 544; - Name_Line : constant Name_Id := N + 545; - Name_Rotate_Left : constant Name_Id := N + 546; - Name_Rotate_Right : constant Name_Id := N + 547; - Name_Shift_Left : constant Name_Id := N + 548; - Name_Shift_Right : constant Name_Id := N + 549; - Name_Shift_Right_Arithmetic : constant Name_Id := N + 550; - Name_Source_Location : constant Name_Id := N + 551; - Name_Unchecked_Conversion : constant Name_Id := N + 552; - Name_Unchecked_Deallocation : constant Name_Id := N + 553; - Name_To_Pointer : constant Name_Id := N + 554; - Last_Intrinsic_Name : constant Name_Id := N + 554; + First_Intrinsic_Name : constant Name_Id := N + 536; + Name_Divide : constant Name_Id := N + 536; + Name_Enclosing_Entity : constant Name_Id := N + 537; + Name_Exception_Information : constant Name_Id := N + 538; + Name_Exception_Message : constant Name_Id := N + 539; + Name_Exception_Name : constant Name_Id := N + 540; + Name_File : constant Name_Id := N + 541; + Name_Import_Address : constant Name_Id := N + 542; + Name_Import_Largest_Value : constant Name_Id := N + 543; + Name_Import_Value : constant Name_Id := N + 544; + Name_Is_Negative : constant Name_Id := N + 545; + Name_Line : constant Name_Id := N + 546; + Name_Rotate_Left : constant Name_Id := N + 547; + Name_Rotate_Right : constant Name_Id := N + 548; + Name_Shift_Left : constant Name_Id := N + 549; + Name_Shift_Right : constant Name_Id := N + 550; + Name_Shift_Right_Arithmetic : constant Name_Id := N + 551; + Name_Source_Location : constant Name_Id := N + 552; + Name_Unchecked_Conversion : constant Name_Id := N + 553; + Name_Unchecked_Deallocation : constant Name_Id := N + 554; + Name_To_Pointer : constant Name_Id := N + 555; + Last_Intrinsic_Name : constant Name_Id := N + 555; -- Reserved words used only in Ada 95 - First_95_Reserved_Word : constant Name_Id := N + 555; - Name_Abstract : constant Name_Id := N + 555; - Name_Aliased : constant Name_Id := N + 556; - Name_Protected : constant Name_Id := N + 557; - Name_Until : constant Name_Id := N + 558; - Name_Requeue : constant Name_Id := N + 559; - Name_Tagged : constant Name_Id := N + 560; - Last_95_Reserved_Word : constant Name_Id := N + 560; + First_95_Reserved_Word : constant Name_Id := N + 556; + Name_Abstract : constant Name_Id := N + 556; + Name_Aliased : constant Name_Id := N + 557; + Name_Protected : constant Name_Id := N + 558; + Name_Until : constant Name_Id := N + 559; + Name_Requeue : constant Name_Id := N + 560; + Name_Tagged : constant Name_Id := N + 561; + Last_95_Reserved_Word : constant Name_Id := N + 561; subtype Ada_95_Reserved_Words is Name_Id range First_95_Reserved_Word .. Last_95_Reserved_Word; -- Miscellaneous names used in semantic checking - Name_Raise_Exception : constant Name_Id := N + 561; + Name_Raise_Exception : constant Name_Id := N + 562; -- Additional reserved words in GNAT Project Files -- Note that Name_External is already previously declared - Name_Binder : constant Name_Id := N + 562; - Name_Body_Suffix : constant Name_Id := N + 563; - Name_Builder : constant Name_Id := N + 564; - Name_Compiler : constant Name_Id := N + 565; - Name_Cross_Reference : constant Name_Id := N + 566; - Name_Default_Switches : constant Name_Id := N + 567; - Name_Exec_Dir : constant Name_Id := N + 568; - Name_Executable : constant Name_Id := N + 569; - Name_Executable_Suffix : constant Name_Id := N + 570; - Name_Extends : constant Name_Id := N + 571; - Name_Finder : constant Name_Id := N + 572; - Name_Global_Configuration_Pragmas : constant Name_Id := N + 573; - Name_Gnatls : constant Name_Id := N + 574; - Name_Gnatstub : constant Name_Id := N + 575; - Name_Implementation : constant Name_Id := N + 576; - Name_Implementation_Exceptions : constant Name_Id := N + 577; - Name_Implementation_Suffix : constant Name_Id := N + 578; - Name_Languages : constant Name_Id := N + 579; - Name_Library_Dir : constant Name_Id := N + 580; - Name_Library_Auto_Init : constant Name_Id := N + 581; - Name_Library_GCC : constant Name_Id := N + 582; - Name_Library_Interface : constant Name_Id := N + 583; - Name_Library_Kind : constant Name_Id := N + 584; - Name_Library_Name : constant Name_Id := N + 585; - Name_Library_Options : constant Name_Id := N + 586; - Name_Library_Reference_Symbol_File : constant Name_Id := N + 587; - Name_Library_Src_Dir : constant Name_Id := N + 588; - Name_Library_Symbol_File : constant Name_Id := N + 589; - Name_Library_Symbol_Policy : constant Name_Id := N + 590; - Name_Library_Version : constant Name_Id := N + 591; - Name_Linker : constant Name_Id := N + 592; - Name_Local_Configuration_Pragmas : constant Name_Id := N + 593; - Name_Locally_Removed_Files : constant Name_Id := N + 594; - Name_Naming : constant Name_Id := N + 595; - Name_Object_Dir : constant Name_Id := N + 596; - Name_Pretty_Printer : constant Name_Id := N + 597; - Name_Project : constant Name_Id := N + 598; - Name_Separate_Suffix : constant Name_Id := N + 599; - Name_Source_Dirs : constant Name_Id := N + 600; - Name_Source_Files : constant Name_Id := N + 601; - Name_Source_List_File : constant Name_Id := N + 602; - Name_Spec : constant Name_Id := N + 603; - Name_Spec_Suffix : constant Name_Id := N + 604; - Name_Specification : constant Name_Id := N + 605; - Name_Specification_Exceptions : constant Name_Id := N + 606; - Name_Specification_Suffix : constant Name_Id := N + 607; - Name_Switches : constant Name_Id := N + 608; + Name_Binder : constant Name_Id := N + 563; + Name_Body_Suffix : constant Name_Id := N + 564; + Name_Builder : constant Name_Id := N + 565; + Name_Compiler : constant Name_Id := N + 566; + Name_Cross_Reference : constant Name_Id := N + 567; + Name_Default_Switches : constant Name_Id := N + 568; + Name_Exec_Dir : constant Name_Id := N + 569; + Name_Executable : constant Name_Id := N + 570; + Name_Executable_Suffix : constant Name_Id := N + 571; + Name_Extends : constant Name_Id := N + 572; + Name_Finder : constant Name_Id := N + 573; + Name_Global_Configuration_Pragmas : constant Name_Id := N + 574; + Name_Gnatls : constant Name_Id := N + 575; + Name_Gnatstub : constant Name_Id := N + 576; + Name_Implementation : constant Name_Id := N + 577; + Name_Implementation_Exceptions : constant Name_Id := N + 578; + Name_Implementation_Suffix : constant Name_Id := N + 579; + Name_Languages : constant Name_Id := N + 580; + Name_Library_Dir : constant Name_Id := N + 581; + Name_Library_Auto_Init : constant Name_Id := N + 582; + Name_Library_GCC : constant Name_Id := N + 583; + Name_Library_Interface : constant Name_Id := N + 584; + Name_Library_Kind : constant Name_Id := N + 585; + Name_Library_Name : constant Name_Id := N + 586; + Name_Library_Options : constant Name_Id := N + 587; + Name_Library_Reference_Symbol_File : constant Name_Id := N + 588; + Name_Library_Src_Dir : constant Name_Id := N + 589; + Name_Library_Symbol_File : constant Name_Id := N + 590; + Name_Library_Symbol_Policy : constant Name_Id := N + 591; + Name_Library_Version : constant Name_Id := N + 592; + Name_Linker : constant Name_Id := N + 593; + Name_Local_Configuration_Pragmas : constant Name_Id := N + 594; + Name_Locally_Removed_Files : constant Name_Id := N + 595; + Name_Metrics : constant Name_Id := N + 596; + Name_Naming : constant Name_Id := N + 597; + Name_Object_Dir : constant Name_Id := N + 598; + Name_Pretty_Printer : constant Name_Id := N + 599; + Name_Project : constant Name_Id := N + 600; + Name_Separate_Suffix : constant Name_Id := N + 601; + Name_Source_Dirs : constant Name_Id := N + 602; + Name_Source_Files : constant Name_Id := N + 603; + Name_Source_List_File : constant Name_Id := N + 604; + Name_Spec : constant Name_Id := N + 605; + Name_Spec_Suffix : constant Name_Id := N + 606; + Name_Specification : constant Name_Id := N + 607; + Name_Specification_Exceptions : constant Name_Id := N + 608; + Name_Specification_Suffix : constant Name_Id := N + 609; + Name_Switches : constant Name_Id := N + 610; -- Other miscellaneous names used in front end - Name_Unaligned_Valid : constant Name_Id := N + 609; + Name_Unaligned_Valid : constant Name_Id := N + 611; -- Mark last defined name for consistency check in Snames body - Last_Predefined_Name : constant Name_Id := N + 609; + Last_Predefined_Name : constant Name_Id := N + 611; subtype Any_Operator_Name is Name_Id range First_Operator_Name .. Last_Operator_Name; @@ -1170,6 +1172,7 @@ package Snames is Pragma_Ada_83, Pragma_Ada_95, + Pragma_Ada_05, Pragma_C_Pass_By_Copy, Pragma_Compile_Time_Warning, Pragma_Component_Alignment, |