diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-11 13:23:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-11 13:23:39 +0000 |
| commit | c1381b7ac21712cc179c6c1c51bda51212a3016f (patch) | |
| tree | 679f0ea8228adb0e349f20c09b30aeddd244dc7b /gcc/ada/exp_attr.adb | |
| parent | cba2ae82b16bf383559d47de17d9c6941ab5be81 (diff) | |
| download | gcc-c1381b7ac21712cc179c6c1c51bda51212a3016f.tar.gz | |
2013-04-11 Robert Dewar <dewar@adacore.com>
* exp_attr.adb, sem_res.adb, sem_attr.adb: Minor reformatting.
2013-04-11 Robert Dewar <dewar@adacore.com>
* atree.adb, atree.ads (Node31): New function.
(Set_Node31): New procedure.
2013-04-11 Robert Dewar <dewar@adacore.com>
* errout.ads: Minor typo correction.
2013-04-11 Javier Miranda <miranda@adacore.com>
* einfo.ad[sb] (Thunk_Entity/Set_Thunk_Entity): New attribute.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@197792 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 55d45b706f1..a55a32ccd7b 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -1069,9 +1069,7 @@ package body Exp_Attr is begin Subp := Current_Scope; - while Ekind (Subp) = E_Loop - or else Ekind (Subp) = E_Block - loop + while Ekind_In (Subp, E_Loop, E_Block) loop Subp := Scope (Subp); end loop; @@ -1095,8 +1093,8 @@ package body Exp_Attr is Unchecked_Convert_To (Typ, Make_Attribute_Reference (Loc, Attribute_Name => Name_Unrestricted_Access, - Prefix => - New_Occurrence_Of (Formal, Loc)))); + Prefix => + New_Occurrence_Of (Formal, Loc)))); Analyze_And_Resolve (N); end if; end; |