diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 13:06:54 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 13:06:54 +0100 |
| commit | 88456bc19d4362b60fbe8e37f59d70a09675098f (patch) | |
| tree | d764f2432b0bebeb707d6c3aeac31ffd6aa19411 /gcc | |
| parent | eae66578ceb7a6d07dd58f18ee8bba5c31de468d (diff) | |
| download | gcc-88456bc19d4362b60fbe8e37f59d70a09675098f.zip gcc-88456bc19d4362b60fbe8e37f59d70a09675098f.tar.gz gcc-88456bc19d4362b60fbe8e37f59d70a09675098f.tar.bz2 | |
Minor reformatting.
From-SVN: r244149
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/checks.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/scans.adb | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index f9cb0ba..10dbbaf 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -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, diff --git a/gcc/ada/scans.adb b/gcc/ada/scans.adb index 461a378..a4df868 100644 --- a/gcc/ada/scans.adb +++ b/gcc/ada/scans.adb @@ -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); |