diff options
| author | Robert Dewar <dewar@adacore.com> | 2013-02-06 10:02:17 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-02-06 11:02:17 +0100 |
| commit | c4e1d59df2492f54adde30ca9bd541d1787695dd (patch) | |
| tree | b0e4899ea24a62874390bdafa91457cdb45b06d4 | |
| parent | 1aee1fb38d2776cb3fb336138e77da61aef8aab1 (diff) | |
| download | gcc-c4e1d59df2492f54adde30ca9bd541d1787695dd.zip gcc-c4e1d59df2492f54adde30ca9bd541d1787695dd.tar.gz gcc-c4e1d59df2492f54adde30ca9bd541d1787695dd.tar.bz2 | |
sem_prag.adb, [...]: Minor reformatting.
2013-02-06 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, sem_ch6.adb, prj-conf.adb, erroutc.adb: Minor
reformatting.
From-SVN: r195787
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/erroutc.adb | 15 | ||||
| -rw-r--r-- | gcc/ada/prj-conf.adb | 15 | ||||
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
5 files changed, 28 insertions, 14 deletions
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 <dewar@adacore.com> + + * sem_prag.adb, sem_ch6.adb, prj-conf.adb, erroutc.adb: Minor + reformatting. + 2013-02-06 Gary Dismukes <dismukes@adacore.com> * 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 |