Minor reformatting.

From-SVN: r244615

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 5e7a30015adf56260605d5b65425578255e33ec8..b9840e2d25c7bbdec953212590e3128688a24800 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -219,18 +219,18 @@ package body Exp_Ch6 is
    --  reference to the object itself, and the call becomes a call to the
    --  corresponding protected subprogram.
 
+   procedure Expand_Simple_Function_Return (N : Node_Id);
+   --  Expand simple return from function. In the case where we are returning
+   --  from a function body this is called by Expand_N_Simple_Return_Statement.
+
    function Expression_Of_Expression_Function
      (Subp : Entity_Id) return Node_Id;
-   --  Return the expression of the expression function Subp
+   --  Return the expression of expression function Subp
 
    function Has_Unconstrained_Access_Discriminants
      (Subtyp : Entity_Id) return Boolean;
-   --  Returns True if the given subtype is unconstrained and has one
-   --  or more access discriminants.
-
-   procedure Expand_Simple_Function_Return (N : Node_Id);
-   --  Expand simple return from function. In the case where we are returning
-   --  from a function body this is called by Expand_N_Simple_Return_Statement.
+   --  Returns True if the given subtype is unconstrained and has one or more
+   --  access discriminants.
 
    procedure Rewrite_Function_Call_For_C (N : Node_Id);
    --  When generating C code, replace a call to a function that returns an
@@ -3943,7 +3943,7 @@ package body Exp_Ch6 is
             null;
 
          --  Frontend inlining of expression functions (performed also when
-         --  backend inlining is enabled)
+         --  backend inlining is enabled).
 
          elsif Is_Inlinable_Expression_Function (Subp) then
             Rewrite (N, New_Copy (Expression_Of_Expression_Function (Subp)));
@@ -6982,13 +6982,13 @@ package body Exp_Ch6 is
    begin
       pragma Assert (Is_Expression_Function_Or_Completion (Subp));
 
-      if Nkind (Original_Node (Subprogram_Spec (Subp)))
-           = N_Expression_Function
+      if Nkind (Original_Node (Subprogram_Spec (Subp))) =
+           N_Expression_Function
       then
          Expr_Func := Original_Node (Subprogram_Spec (Subp));
 
-      elsif Nkind (Original_Node (Subprogram_Body (Subp)))
-              = N_Expression_Function
+      elsif Nkind (Original_Node (Subprogram_Body (Subp))) =
+              N_Expression_Function
       then
          Expr_Func := Original_Node (Subprogram_Body (Subp));
 
@@ -7331,7 +7331,8 @@ package body Exp_Ch6 is
    -- Is_Inlinable_Expression_Function --
    --------------------------------------
 
-   function Is_Inlinable_Expression_Function (Subp : Entity_Id) return Boolean
+   function Is_Inlinable_Expression_Function
+     (Subp : Entity_Id) return Boolean
    is
       Return_Expr : Node_Id;
 
@@ -7353,8 +7354,9 @@ package body Exp_Ch6 is
          --  nominal subtype must be statically compatible with the result
          --  subtype of the expression function.
 
-         return Nkind (Return_Expr) = N_Identifier
-           and then Etype (Return_Expr) = Etype (Subp);
+         return
+           Nkind (Return_Expr) = N_Identifier
+             and then Etype (Return_Expr) = Etype (Subp);
       end if;
 
       return False;

diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb
index f06f68457481bcb3154236d1f1de4c6c43c46942..18a0af75348459fba1a18406912ce04e7c806b55 100644 (file)
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -1498,9 +1498,10 @@ package body Sem is
              --  compiling a separate unit (this is to handle a situation
              --  where this new processing causes trouble).
 
-             or else ((Configurable_Run_Time_Mode or No_Run_Time_Mode)
-                       and not Debug_Flag_Dot_ZZ
-                       and Nkind (Unit (Cunit (Main_Unit))) /= N_Subunit));
+             or else
+               ((Configurable_Run_Time_Mode or No_Run_Time_Mode)
+                  and then not Debug_Flag_Dot_ZZ
+                  and then Nkind (Unit (Cunit (Main_Unit))) /= N_Subunit));
       end if;
 
       Full_Analysis      := True;