mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 12:21:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting.

Browse Source 
From-SVN: r244149
This commit is contained in:
Arnaud Charlet 2017-01-06 13:06:54 +01:00
parent eae66578ce
commit 88456bc19d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/checks.adb
View File

@ -2412,7 +2412,7 @@ package body Checks is
begin
Prag :=
Make_Pragma (Loc,
Chars => Prag_Nam,
Chars => Prag_Nam,
Pragma_Argument_Associations => New_List (
Make_Pragma_Argument_Association (Loc,
Chars => Name_Check,

4
gcc/ada/scans.adb
View File

@ -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.
@ -160,7 +160,7 @@ package body Scans is
pragma Assert (Name (J) in 'A' .. 'Z');
Name (J) :=
Character'Val (Character'Pos (Name (J)) +
(Character'Pos ('a') - Character'Pos ('A')));
(Character'Pos ('a') - Character'Pos ('A')));
end loop;
return Name_Find (Name);