diff options
| author | Robert Dewar <dewar@adacore.com> | 2012-07-16 10:49:46 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 12:49:46 +0200 |
| commit | b3408631f73de20a78f649af7da59b19580a0d8c (patch) | |
| tree | 59bf343805c5796867dd24861bcced22dd664c28 /gcc/ada/sem_util.adb | |
| parent | 8bae3cefebfc940f629c0353ca345252844c0865 (diff) | |
| download | gcc-b3408631f73de20a78f649af7da59b19580a0d8c.zip gcc-b3408631f73de20a78f649af7da59b19580a0d8c.tar.gz gcc-b3408631f73de20a78f649af7da59b19580a0d8c.tar.bz2 | |
exp_pakd.adb, [...]: Minor reformatting.
2012-07-16 Robert Dewar <dewar@adacore.com>
* exp_pakd.adb, freeze.adb, sem_util.adb, vms_data.ads: Minor
reformatting.
From-SVN: r189516
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 721f958..bd53144 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -6312,11 +6312,11 @@ package body Sem_Util is function In_Reverse_Storage_Order_Object (N : Node_Id) return Boolean is Pref : Node_Id; Btyp : Entity_Id := Empty; - begin - Pref := N; + begin -- Climb up indexed components + Pref := N; loop case Nkind (Pref) is when N_Selected_Component => @@ -6336,9 +6336,10 @@ package body Sem_Util is Btyp := Base_Type (Etype (Pref)); end if; - return Present (Btyp) - and then (Is_Record_Type (Btyp) or else Is_Array_Type (Btyp)) - and then Reverse_Storage_Order (Btyp); + return + Present (Btyp) + and then (Is_Record_Type (Btyp) or else Is_Array_Type (Btyp)) + and then Reverse_Storage_Order (Btyp); end In_Reverse_Storage_Order_Object; -------------------------------------- |