sem_aux.adb, [...]: Minor reformatting

2011-09-01  Thomas Quinot  <quinot@adacore.com>

	* sem_aux.adb, exp_ch4.adb: Minor reformatting

From-SVN: r178409

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a9f6b8b..6705964 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-01  Thomas Quinot  <quinot@adacore.com>
+
+       * sem_aux.adb, exp_ch4.adb: Minor reformatting
+
 2011-09-01  Pascal Obry  <obry@adacore.com>
 
        * prj-proc.adb, prj.ads, sinput-p.adb: Minor reformatting.

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 218c94d..f040f4f 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -4183,8 +4183,8 @@ package body Exp_Ch4 is
 
          if Present (Actions) then
 
-            --  If we are not allowed to use Expression_With_Actions, just
-            --  skip the optimization, it is not critical for correctness.
+            --  If we are not allowed to use Expression_With_Actions, just skip
+            --  the optimization, it is not critical for correctness.
 
             if not Use_Expression_With_Actions then
                goto Skip_Optimization;
@@ -4454,6 +4454,8 @@ package body Exp_Ch4 is
          Temp_Decl : Node_Id;
          Temp_Id   : Node_Id;
 
+      --  Start of processing for Process_Transient_Object
+
       begin
          --  Step 1: Create the access type which provides a reference to the
          --  transient object.

diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb
index 8c54517..974ff1d 100755 (executable)
--- a/gcc/ada/sem_aux.adb
+++ b/gcc/ada/sem_aux.adb
@@ -445,9 +445,7 @@ package body Sem_Aux is
       Btype : constant Entity_Id := Base_Type (Ent);
 
    begin
-      if Error_Posted (Ent)
-        or else Error_Posted (Btype)
-      then
+      if Error_Posted (Ent) or else Error_Posted (Btype) then
          return False;
 
       elsif Is_Private_Type (Btype) then