procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sem_prag.adb, [...]: Minor reformatting.

Browse source 
2013-02-06  Robert Dewar  <dewar@adacore.com>

	* sem_prag.adb, sem_ch6.adb, prj-conf.adb, erroutc.adb: Minor
	reformatting.

From-SVN: r195787
This commit is contained in:
Robert Dewar 2013-02-06 10:02:17 +00:00 • committed by Arnaud Charlet
parent 1aee1fb38d
commit c4e1d59df2
5 changed files with 28 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -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

15
gcc/ada/erroutc.adb
View file

@ -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);

15
gcc/ada/prj-conf.adb
View file

@ -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;

3
gcc/ada/sem_ch6.adb
View file

@ -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);

4
gcc/ada/sem_prag.adb
View file

@ -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