OSDN Git Service

Minor clean up.
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Apr 2009 13:22:14 +0000 (13:22 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Apr 2009 13:22:14 +0000 (13:22 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145899 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/snames.ads-tmpl

index 48001f6..fc7f992 100644 (file)
@@ -989,7 +989,7 @@ package Snames is
 
    --  Names used in processing intrinsic calls
 
-   Name_Free                             : constant Name_Id := N + 628;
+   Name_Free                             : constant Name_Id := N + $;
 
    --  Reserved words used only in Ada 95
 
@@ -1007,7 +1007,7 @@ package Snames is
 
    --  Miscellaneous names used in semantic checking
 
-   Name_Raise_Exception                  : constant Name_Id := N + 635;
+   Name_Raise_Exception                  : constant Name_Id := N + $;
 
    --  Additional reserved words and identifiers used in GNAT Project Files
    --  Note that Name_External is already previously declared