From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Fri, 6 Jan 2017 12:06:54 +0000 (+0100)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=88456bc19d4362b60fbe8e37f59d70a09675098f;p=gcc.git

Minor reformatting.

From-SVN: r244149
---

diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index f9cb0ba9553..10dbbaf75e9 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 461a3784b53..a4df868467f 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);