Commit 88456bc1 by Arnaud Charlet

Minor reformatting.

From-SVN: r244149
parent eae66578
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment