[multiple changes]

2011-08-02  Robert Dewar  <dewar@adacore.com>

	* inline.adb, stand.ads, sem_ch6.adb, sem_ch8.adb: Minor reformatting.

2011-08-02  Yannick Moy  <moy@adacore.com>

	* sem_ch4.ads: minor formatting.

From-SVN: r177176

gcc/ada/ChangeLog

+2011-08-02  Robert Dewar  <dewar@adacore.com>
+
+	* inline.adb, stand.ads, sem_ch6.adb, sem_ch8.adb: Minor reformatting.
+
+2011-08-02  Yannick Moy  <moy@adacore.com>
+
+	* sem_ch4.ads: minor formatting.
+
 2011-08-02  Yannick Moy  <moy@adacore.com>
 
 	* sem_aggr.adb, err_vars.ads, sem_ch3.adb, sem_ch5.adb, sem_ch9.adb,

gcc/ada/sem_ch4.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2011, 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- --

gcc/ada/sem_ch6.adb

@@ -631,8 +631,7 @@ package body Sem_Ch6 is
          Analyze_And_Resolve (Expr, R_Type);
          Check_Limited_Return (Expr);
 
-         --  The only RETURN allowed in SPARK is as the last statement of the
-         --  function.
+         --  RETURN only allowed in SPARK is as the last statement function
 
          if Nkind (Parent (N)) /= N_Handled_Sequence_Of_Statements
            and then

gcc/ada/sem_ch8.adb

@@ -2442,7 +2442,6 @@ package body Sem_Ch8 is
 
             if CW_Actual then
                null;
-
             else
                Check_Mode_Conformant (New_S, Old_S);
             end if;

gcc/ada/stand.ads

@@ -313,7 +313,8 @@ package Stand is
    Boolean_Literals : array (Boolean) of Entity_Id;
    --  Entities for the two boolean literals, used by the expander
 
-   --  Standard types which are in ALFA are associated to True
+   --  Standard types which are in ALFA are associated set to True
+
    Standard_Type_Is_In_ALFA : array (S_Types) of Boolean :=
      (S_Boolean             => True,