diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-01 09:37:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 09:37:59 +0200 |
| commit | d9ed79938a5047c14068db3daf8532d48affb902 (patch) | |
| tree | 3bbd5b930e267731e45772ecf80fd323f10c63bc | |
| parent | a6f80cc4863e3a2286d783a23d0744ae3d55f481 (diff) | |
| download | gcc-d9ed79938a5047c14068db3daf8532d48affb902.zip gcc-d9ed79938a5047c14068db3daf8532d48affb902.tar.gz gcc-d9ed79938a5047c14068db3daf8532d48affb902.tar.bz2 | |
snames.ads: Minor comment fixes...
2008-08-01 Robert Dewar <dewar@adacore.com>
* snames.ads:
Minor comment fixes, some pragmas were not properly
categorized in the comments, documentation change only
From-SVN: r138458
| -rw-r--r-- | gcc/ada/snames.ads | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/snames.ads b/gcc/ada/snames.ads index 3a93bef..67f35d0 100644 --- a/gcc/ada/snames.ads +++ b/gcc/ada/snames.ads @@ -395,7 +395,7 @@ package Snames is Name_Suppress_Exception_Locations : constant Name_Id := N + 169; -- GNAT Name_Task_Dispatching_Policy : constant Name_Id := N + 170; Name_Universal_Data : constant Name_Id := N + 171; -- AAMP - Name_Unsuppress : constant Name_Id := N + 172; -- GNAT + Name_Unsuppress : constant Name_Id := N + 172; -- Ada 05 Name_Use_VADS_Size : constant Name_Id := N + 173; -- GNAT Name_Validity_Checks : constant Name_Id := N + 174; -- GNAT Name_Warnings : constant Name_Id := N + 175; -- GNAT @@ -456,6 +456,12 @@ package Snames is Name_Inline_Always : constant Name_Id := N + 219; -- GNAT Name_Inline_Generic : constant Name_Id := N + 220; -- GNAT Name_Inspection_Point : constant Name_Id := N + 221; + + -- Note: Interface is not in this list because its name matches -- GNAT + -- an Ada 2005 keyword. However it is included in the definition + -- of the type Attribute_Id, and the functions Get_Pragma_Id and + -- Is_Pragma_Id correctly recognize and process Name_Storage_Size. + Name_Interface_Name : constant Name_Id := N + 222; -- GNAT Name_Interrupt_Handler : constant Name_Id := N + 223; Name_Interrupt_Priority : constant Name_Id := N + 224; @@ -525,7 +531,7 @@ package Snames is Name_Task_Storage : constant Name_Id := N + 271; -- VMS Name_Time_Slice : constant Name_Id := N + 272; -- GNAT Name_Title : constant Name_Id := N + 273; -- GNAT - Name_Unchecked_Union : constant Name_Id := N + 274; -- GNAT + Name_Unchecked_Union : constant Name_Id := N + 274; -- Ada 05 Name_Unimplemented_Unit : constant Name_Id := N + 275; -- GNAT Name_Universal_Aliasing : constant Name_Id := N + 276; -- GNAT Name_Unmodified : constant Name_Id := N + 277; -- GNAT |