From c4e1d59df2492f54adde30ca9bd541d1787695dd Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 6 Feb 2013 10:02:17 +0000 Subject: sem_prag.adb, [...]: Minor reformatting. 2013-02-06 Robert Dewar * sem_prag.adb, sem_ch6.adb, prj-conf.adb, erroutc.adb: Minor reformatting. From-SVN: r195787 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/erroutc.adb | 15 +++++++++++---- gcc/ada/prj-conf.adb | 15 ++++++++------- gcc/ada/sem_ch6.adb | 3 +++ gcc/ada/sem_prag.adb | 4 +--- 5 files changed, 28 insertions(+), 14 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 708e807..f8a0188 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2013-02-06 Robert Dewar + + * sem_prag.adb, sem_ch6.adb, prj-conf.adb, erroutc.adb: Minor + reformatting. + 2013-02-06 Gary Dismukes * sem_ch6.adb (Check_For_Primitive_Subprogram): Test for diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index bb4995d..8a1050f 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -1276,19 +1276,26 @@ package body Erroutc is for J in Specific_Warnings.First .. Specific_Warnings.Last loop declare SWE : Specific_Warning_Entry renames Specific_Warnings.Table (J); + begin if not SWE.Config then + + -- Warn for unmatched Warnings (Off, ...) + if SWE.Open then Eproc.all ("?pragma Warnings Off with no matching Warnings On", SWE.Start); - -- Do not issue this warning for -Wxxx messages since the - -- back-end doesn't report the information. + -- Warn for ineffective Warnings (Off, ..) elsif not SWE.Used - and then not (SWE.Msg'Length > 2 - and then SWE.Msg (1 .. 2) = "-W") + + -- Do not issue this warning for -Wxxx messages since the + -- back-end doesn't report the information. + + and then not + (SWE.Msg'Length > 2 and then SWE.Msg (1 .. 2) = "-W") then Eproc.all ("?no warning suppressed by this pragma", SWE.Start); diff --git a/gcc/ada/prj-conf.adb b/gcc/ada/prj-conf.adb index 89e1831..42b9157 100644 --- a/gcc/ada/prj-conf.adb +++ b/gcc/ada/prj-conf.adb @@ -2,7 +2,7 @@ -- -- -- GNAT COMPILER COMPONENTS -- -- -- --- P R J . C O N F -- +-- P R J . C O N F -- -- -- -- B o d y -- -- -- @@ -567,9 +567,8 @@ package body Prj.Conf is OK := Target = "" - or else - (Tgt_Name /= No_Name - and then Target = Get_Name_String (Tgt_Name)); + or else (Tgt_Name /= No_Name + and then Target = Get_Name_String (Tgt_Name)); if not OK then if Autoconf_Specified then @@ -778,6 +777,7 @@ package body Prj.Conf is procedure Get_Project_Target is begin if Selected_Target'Length = 0 then + -- Check if attribute Target is specified in the main -- project, or in a project it extends. If it is, use this -- target to invoke gprconfig. @@ -1021,15 +1021,16 @@ package body Prj.Conf is else if Selected_Target'Length = 0 then if At_Least_One_Compiler_Command then - Args (4) := new String'("--target=all"); - + Args (4) := + new String'("--target=all"); else Args (4) := new String'("--target=" & Normalized_Hostname); end if; else - Args (4) := new String'("--target=" & Selected_Target.all); + Args (4) := + new String'("--target=" & Selected_Target.all); end if; Arg_Last := 4; diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index e75b00d..4e63afe 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -2909,6 +2909,9 @@ package body Sem_Ch6 is and then Serious_Errors_Detected = 0 and then Present (Spec_Id) and then Has_Pragma_Inline (Spec_Id) + + -- This test needs commenting ??? + and then In_Extended_Main_Code_Unit (N) then Check_And_Build_Body_To_Inline (N, Spec_Id, Body_Id); diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 935a26d..c7e340a 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -16026,9 +16026,7 @@ package body Sem_Prag is J := J + 1; C := Get_String_Char (Str, J); Chr := Get_Character (C); - if Chr = 'W' then - exit; - end if; + exit when Chr = 'W'; OK := False; -- Dot case -- cgit v1.1