diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-28 14:50:10 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-28 14:50:10 +0100 |
| commit | 69ba91edf437188d6fb6522153903144353c0f61 (patch) | |
| tree | c1b19f5264ff3f937e8799d40e5e8a7a215dfa70 /gcc/ada/exp_attr.adb | |
| parent | 5f3f175d79b2263927f1a4b84db71fb61a71d0e1 (diff) | |
| download | gcc-69ba91edf437188d6fb6522153903144353c0f61.zip gcc-69ba91edf437188d6fb6522153903144353c0f61.tar.gz gcc-69ba91edf437188d6fb6522153903144353c0f61.tar.bz2 | |
[multiple changes]
2009-10-28 Robert Dewar <dewar@adacore.com>
* exp_attr.adb, exp_ch9.adb, prj-nmsc.adb, tbuild.adb, ali.adb,
types.ads: Minor reformatting
2009-10-28 Tristan Gingold <gingold@adacore.com>
* init.c: Fix __gnat_error_handler for Darwin10 (Snow Leopard)
From-SVN: r153658
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 67babec..48bd566 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -661,12 +661,10 @@ package body Exp_Attr is if Is_Protected_Self_Reference (Pref) and then not - (Nkind_In (Parent (N), - N_Index_Or_Discriminant_Constraint, - N_Discriminant_Association) - and then - Nkind (Parent (Parent (Parent (Parent (N))))) - = N_Component_Definition) + (Nkind_In (Parent (N), N_Index_Or_Discriminant_Constraint, + N_Discriminant_Association) + and then Nkind (Parent (Parent (Parent (Parent (N))))) = + N_Component_Definition) then Rewrite (Pref, Concurrent_Ref (Pref)); Analyze (Pref); @@ -690,9 +688,9 @@ package body Exp_Attr is function Enclosing_Object (N : Node_Id) return Node_Id; -- If N denotes a compound name (selected component, indexed - -- component, or slice), returns the name of the outermost - -- such enclosing object. Otherwise returns N. If the object - -- is a renaming, then the renamed object is returned. + -- component, or slice), returns the name of the outermost such + -- enclosing object. Otherwise returns N. If the object is a + -- renaming, then the renamed object is returned. ---------------------- -- Enclosing_Object -- |