mirror of git://gcc.gnu.org/git/gcc.git
parent
eae66578ce
commit
88456bc19d
|
|
@ -140,7 +140,6 @@ package body Scans is
|
|||
-- Ada 2012 reserved words
|
||||
|
||||
Set_Reserved (Name_Some, Tok_Some);
|
||||
|
||||
end Initialize_Ada_Keywords;
|
||||
|
||||
------------------
|
||||
|
|
@ -151,6 +150,7 @@ package body Scans is
|
|||
Tok : String := Token'Img;
|
||||
pragma Assert (Tok (1 .. 4) = "TOK_");
|
||||
Name : String renames Tok (5 .. Tok'Last);
|
||||
|
||||
begin
|
||||
-- Convert to lower case. We don't want to add a dependence on a
|
||||
-- general-purpose To_Lower routine, so we convert "by hand" here.
|
||||
|
|
|
|||
Loading…
Reference in New Issue