[multiple changes]

2016-04-18  Hristian Kirtchev  <kirtchev@adacore.com>

	* stringt.adb, exp_ch6.adb, sem_ch13.adb: Minor reformatting.

2016-04-18  Gary Dismukes  <dismukes@adacore.com>

	* par-ch4.adb, sem_prag.adb: Minor reformatting.

From-SVN: r235127

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1fc22a7e12ab51f3cab776f163d92a6d20abb60d..b5ed10086ff58830460d60d4c81c6559b4d5763c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2016-04-18  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * stringt.adb, exp_ch6.adb, sem_ch13.adb: Minor reformatting.
+
+2016-04-18  Gary Dismukes  <dismukes@adacore.com>
+
+       * par-ch4.adb, sem_prag.adb: Minor reformatting.
+
 2016-04-18  Bob Duff  <duff@adacore.com>
 
        * sinput.ads, sinput.adb (Build_Location_String): Take a

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index a72bbe18d0ae9c863ebcb17060bd1b1c441219e2..982317222581c29b265992deb51c33f8bf33d006 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3905,8 +3905,8 @@ package body Exp_Ch6 is
             --  perform the inlining.
 
             if In_Instance
-               and then Comes_From_Source (Subp)
-               and then Optimization_Level > 0
+              and then Comes_From_Source (Subp)
+              and then Optimization_Level > 0
             then
                declare
                   Inst : Entity_Id;

diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb
index 071853a01ac3d1b0da772d64596debd33d72e512..c61a76602a505d9ee9e1156c4ed8007480f0a559 100644 (file)
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2014, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2015, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -461,7 +461,7 @@ package body Ch4 is
 
                         loop
                            Discard_Junk_Node (P_Expression_If_OK);
-                           exit when not  Comma_Present;
+                           exit when not Comma_Present;
                         end loop;
 
                         T_Right_Paren;

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index cb7eb8f16f5324fa4c721c6c39bbfbbba5ea0772..b168a9e1010c1e5e6e5a5951592837b485c065f1 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -3769,10 +3769,10 @@ package body Sem_Ch13 is
            (Subp   : Entity_Id;
             Report : Boolean := False) return Boolean
          is
-            F              : Entity_Id;
-            Is_Function    : constant Boolean := (TSS_Nam = TSS_Stream_Input);
             Expected_Ekind : constant array (Boolean) of Entity_Kind :=
                                (False => E_Procedure, True => E_Function);
+            Is_Function    : constant Boolean := (TSS_Nam = TSS_Stream_Input);
+            F              : Entity_Id;
             Typ            : Entity_Id;
 
          begin
@@ -3785,7 +3785,7 @@ package body Sem_Ch13 is
             if No (F)
               or else Ekind (Etype (F)) /= E_Anonymous_Access_Type
               or else Designated_Type (Etype (F)) /=
-                               Class_Wide_Type (RTE (RE_Root_Stream_Type))
+                        Class_Wide_Type (RTE (RE_Root_Stream_Type))
             then
                return False;
             end if;
@@ -3835,8 +3835,7 @@ package body Sem_Ch13 is
                return False;
             end if;
 
-            if Present ((Next_Formal (F)))
-            then
+            if Present (Next_Formal (F)) then
                return False;
 
             elsif not Is_Scalar_Type (Typ)
@@ -3932,8 +3931,8 @@ package body Sem_Ch13 is
                              (Unit_Declaration_Node (Ultimate_Alias (Subp)))))
             then
                Error_Msg_N
-                 ("stream subprogram for interface type "
-                  & "must be null procedure", Expr);
+                 ("stream subprogram for interface type must be null "
+                  & "procedure", Expr);
             end if;
 
             Set_Entity (Expr, Subp);

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index c753e6114a86e986ccc0f8c4aae9a258d2a7f96c..aae3d7ce4660d85d14dbb0216a05473d784b0866 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -2869,7 +2869,7 @@ package body Sem_Prag is
                   then
                      --  The input cannot denote states or objects declared
                      --  within the related package (SPARK RM 7.1.5(4)). The
-                     --  only exception to this are generic formal parameters.
+                     --  only exceptions to this are generic formal parameters.
 
                      if not Ekind_In (Input_Id, E_Generic_In_Out_Parameter,
                                                 E_Generic_In_Parameter)

diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb
index b4d85629908a8a279b45afc1b1c5cf0f1c4fc95c..e59881a219e129e43a0a90dad258bb1acb22af58 100644 (file)
--- a/gcc/ada/stringt.adb
+++ b/gcc/ada/stringt.adb
@@ -307,7 +307,8 @@ package body Stringt is
    -----------------------------
 
    function String_From_Name_Buffer
-     (Buf : Bounded_String := Global_Name_Buffer) return String_Id is
+     (Buf : Bounded_String := Global_Name_Buffer) return String_Id
+   is
    begin
       Start_String;
       Store_String_Chars (+Buf);