diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-12 11:12:23 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-12 11:12:23 +0000 |
| commit | 798dec7378088af3e425af2123abc87aa2a813de (patch) | |
| tree | 9e351bc6156ff6bcc9756abc570ebfcbe3248371 /gcc/ada/exp_attr.adb | |
| parent | 8601108e72243dacb294eb29e17312183d43a7ea (diff) | |
| download | gcc-798dec7378088af3e425af2123abc87aa2a813de.tar.gz | |
2015-11-12 Hristian Kirtchev <kirtchev@adacore.com>
* exp_attr.adb, freeze.adb, sem_util.adb, sem_ch13.adb: Minor
reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230235 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index aaa3c728751..8c0224705bc 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -634,11 +634,10 @@ package body Exp_Attr is Arr : Entity_Id; Check : Boolean) is - C_Type : constant Entity_Id := Base_Type (Component_Type (Arr)); - Curr : constant Entity_Id := Current_Scope; - - Install : Boolean := False; - Scop : Entity_Id := Scope (Arr); + C_Type : constant Entity_Id := Base_Type (Component_Type (Arr)); + Curr : constant Entity_Id := Current_Scope; + Install : Boolean := False; + Scop : Entity_Id := Scope (Arr); begin if Is_Hidden (Arr) @@ -646,10 +645,10 @@ package body Exp_Attr is and then Ekind (Scop) = E_Package then Install := True; - else - -- The component type may be private, in which case we install - -- its full view to compile the subprogram. + else + -- The component type may be private, in which case we install its + -- full view to compile the subprogram. Scop := Scope (C_Type); @@ -665,9 +664,7 @@ package body Exp_Attr is -- If we are within an instance body, then all visibility has been -- established already and there is no need to install the package. - if Install - and then not In_Instance_Body - then + if Install and then not In_Instance_Body then Push_Scope (Scop); Install_Visible_Declarations (Scop); Install_Private_Declarations (Scop); |