From 43184ab7cd9ee60b3aa12eeed66f42076537548f Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Fri, 23 Oct 2015 12:50:16 +0000 Subject: [PATCH] a-exextr.adb, [...]: Minor reformatting. 2015-10-23 Hristian Kirtchev * a-exextr.adb, sem_ch6.adb, sem_ch13.adb: Minor reformatting. From-SVN: r229248 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/a-exextr.adb | 8 +++++--- gcc/ada/sem_ch13.adb | 3 ++- gcc/ada/sem_ch6.adb | 18 ++++++++---------- 4 files changed, 19 insertions(+), 14 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 94904273a64..161c024f381 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2015-10-23 Hristian Kirtchev + + * a-exextr.adb, sem_ch6.adb, sem_ch13.adb: Minor reformatting. + 2015-10-23 Arnaud Charlet * s-taskin.ads: Minor code clean up. diff --git a/gcc/ada/a-exextr.adb b/gcc/ada/a-exextr.adb index 1284efa6908..2a6f82b83df 100644 --- a/gcc/ada/a-exextr.adb +++ b/gcc/ada/a-exextr.adb @@ -85,9 +85,11 @@ package body Exception_Traces is if not Excep.Id.Not_Handled_By_Others and then (Exception_Trace = Every_Raise - or else (Is_Unhandled - and then (Exception_Trace = Unhandled_Raise - or else Exception_Trace = Unhandled_Raise_In_Main))) + or else + (Is_Unhandled + and then + (Exception_Trace = Unhandled_Raise + or else Exception_Trace = Unhandled_Raise_In_Main))) then -- Exception trace messages need to be protected when several tasks -- can issue them at the same time. diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index d54ef0ffd99..eb44653e1dd 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -4873,9 +4873,10 @@ package body Sem_Ch13 is then declare Init : constant Node_Id := - Expression (Declaration_Node (U_Ent)); + Expression (Declaration_Node (U_Ent)); begin Set_Overlays_Constant (U_Ent); + if Present (Init) and then Comes_From_Source (Init) then diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index af31c9f1a85..8b5a9fde918 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -620,8 +620,8 @@ package body Sem_Ch6 is -- Function result subtype procedure Check_Aggregate_Accessibility (Aggr : Node_Id); - -- Apply legality rule of 6.5 (8.2) to the access discriminants of - -- an aggregate in a return statement. + -- Apply legality rule of 6.5 (8.2) to the access discriminants of an + -- aggregate in a return statement. procedure Check_Limited_Return (Expr : Node_Id); -- Check the appropriate (Ada 95 or Ada 2005) rules for returning @@ -644,9 +644,7 @@ package body Sem_Ch6 is Obj : Node_Id; begin - if Is_Record_Type (Typ) - and then Has_Discriminants (Typ) - then + if Is_Record_Type (Typ) and then Has_Discriminants (Typ) then Discr := First_Discriminant (Typ); Assoc := First (Component_Associations (Aggr)); while Present (Discr) loop @@ -656,8 +654,8 @@ package body Sem_Ch6 is and then Attribute_Name (Expr) /= Name_Unrestricted_Access then Obj := Prefix (Expr); - while Nkind_In (Obj, - N_Selected_Component, N_Indexed_Component) + while Nkind_In (Obj, N_Indexed_Component, + N_Selected_Component) loop Obj := Prefix (Obj); end loop; @@ -669,11 +667,11 @@ package body Sem_Ch6 is null; elsif Object_Access_Level (Obj) > - Scope_Depth (Scope (Scope_Id)) + Scope_Depth (Scope (Scope_Id)) then Error_Msg_N - ("access discriminant in return aggregate " & - "will be a dangling reference", Obj); + ("access discriminant in return aggregate will be " + & "a dangling reference", Obj); end if; end if; end if;