diff options
| author | Thomas Quinot <quinot@adacore.com> | 2011-09-01 13:10:40 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 15:10:40 +0200 |
| commit | 9d641fc0bb5b3ee8b898948aa890647060a415d3 (patch) | |
| tree | 77fc74711767b5e489e4e979b0a2838bdd973f76 /gcc | |
| parent | 4e71066d7ed30ff6582ba01d1cb319787bf1ac5a (diff) | |
| download | gcc-9d641fc0bb5b3ee8b898948aa890647060a415d3.zip gcc-9d641fc0bb5b3ee8b898948aa890647060a415d3.tar.gz gcc-9d641fc0bb5b3ee8b898948aa890647060a415d3.tar.bz2 | |
sem_aux.adb, [...]: Minor reformatting
2011-09-01 Thomas Quinot <quinot@adacore.com>
* sem_aux.adb, exp_ch4.adb: Minor reformatting
From-SVN: r178409
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 6 | ||||
| -rwxr-xr-x | gcc/ada/sem_aux.adb | 4 |
3 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a9f6b8b..6705964 100644 --- 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 --- 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 --- 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 |