diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:20:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:20:46 +0000 |
| commit | 752dfce02cb1f476da04979af06ce8fcc725f58f (patch) | |
| tree | ae03bdbfe289108787eb641985de0ebd31ac819d /gcc/ada/exp_ch6.adb | |
| parent | 56a41191a9e5f7d6a10aebe012b625ce38b09bf1 (diff) | |
| download | gcc-752dfce02cb1f476da04979af06ce8fcc725f58f.tar.gz | |
2010-10-11 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb, freeze.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165297 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 1fe1eca0000..cc9852a63a4 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2033,8 +2033,9 @@ package body Exp_Ch6 is and then RTE_Available (RE_Raise_Exception_Always) then declare - FA : constant Node_Id := Original_Node - (First_Actual (Call_Node)); + FA : constant Node_Id := + Original_Node (First_Actual (Call_Node)); + begin -- The case we catch is where the first argument is obtained -- using the Identity attribute (which must always be @@ -2063,10 +2064,10 @@ package body Exp_Ch6 is and then Nkind (Call_Node) = N_Procedure_Call_Statement and then ((Nkind (Parent (Call_Node)) = N_Triggering_Alternative - and then Triggering_Statement (Parent (Call_Node)) = Call_Node) + and then Triggering_Statement (Parent (Call_Node)) = Call_Node) or else (Nkind (Parent (Call_Node)) = N_Entry_Call_Alternative - and then Entry_Call_Statement (Parent (Call_Node)) = Call_Node)) + and then Entry_Call_Statement (Parent (Call_Node)) = Call_Node)) then declare Ren_Decl : Node_Id; @@ -2607,14 +2608,14 @@ package body Exp_Ch6 is Ass := Parent (Call_Node); elsif Nkind (Parent (Call_Node)) = N_Qualified_Expression - and then Nkind (Parent (Parent (Call_Node))) - = N_Assignment_Statement + and then Nkind (Parent (Parent (Call_Node))) = + N_Assignment_Statement then Ass := Parent (Parent (Call_Node)); elsif Nkind (Parent (Call_Node)) = N_Explicit_Dereference - and then Nkind (Parent (Parent (Call_Node))) - = N_Assignment_Statement + and then Nkind (Parent (Parent (Call_Node))) = + N_Assignment_Statement then Ass := Parent (Parent (Call_Node)); end if; @@ -2629,7 +2630,7 @@ package body Exp_Ch6 is Error_Msg_NE ("tag-indeterminate expression " & " must have designated type& (RM 5.2 (6))", - Call_Node, Root_Type (Etype (Name (Ass)))); + Call_Node, Root_Type (Etype (Name (Ass)))); else Propagate_Tag (Name (Ass), Call_Node); end if; |