From 9d641fc0bb5b3ee8b898948aa890647060a415d3 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Thu, 1 Sep 2011 13:10:40 +0000 Subject: [PATCH] sem_aux.adb, [...]: Minor reformatting 2011-09-01 Thomas Quinot * sem_aux.adb, exp_ch4.adb: Minor reformatting From-SVN: r178409 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_ch4.adb | 6 ++++-- gcc/ada/sem_aux.adb | 4 +--- 3 files changed, 9 insertions(+), 5 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a9f6b8b7a61..6705964c822 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-09-01 Thomas Quinot + + * sem_aux.adb, exp_ch4.adb: Minor reformatting + 2011-09-01 Pascal Obry * 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 218c94dfd42..f040f4f3f43 100644 --- 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 8c54517c236..974ff1d9712 100755 --- 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 -- 2.30.2