OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

make.adb: Minor reformatting

Browse Source 
2008-08-05  Robert Dewar  <dewar@adacore.com>

	* make.adb: Minor reformatting

From-SVN: r138686
This commit is contained in:
Robert Dewar 2008-08-05 11:28:12 +02:00 committed by Arnaud Charlet
parent 05231b21e0
commit 33395f44ba
1 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
gcc/ada/make.adb
View File

@ -5110,39 +5110,42 @@ package body Make is
declare
Defaults : constant Variable_Value :=
Prj.Util.Value_Of
(Name => Name_Ada,
Index => 0,
Attribute_Or_Array_Name => Name_Default_Switches,
In_Package => Builder_Package,
In_Tree => Project_Tree);
Prj.Util.Value_Of
(Name => Name_Ada,
Index => 0,
Attribute_Or_Array_Name =>
Name_Default_Switches,
In_Package =>
Builder_Package,
In_Tree => Project_Tree);
Switches : constant Array_Element_Id :=
Prj.Util.Value_Of
(Name => Name_Switches,
In_Arrays =>
Project_Tree.Packages.Table
(Builder_Package).Decl.Arrays,
In_Tree => Project_Tree);
Prj.Util.Value_Of
(Name => Name_Switches,
In_Arrays =>
Project_Tree.Packages.Table
(Builder_Package).Decl.Arrays,
In_Tree => Project_Tree);
Other_Switches : constant Variable_Value :=
Prj.Util.Value_Of
(Name => All_Other_Names,
Index => 0,
Attribute_Or_Array_Name => Name_Switches,
In_Package => Builder_Package,
In_Tree => Project_Tree);
Prj.Util.Value_Of
(Name => All_Other_Names,
Index => 0,
Attribute_Or_Array_Name
=> Name_Switches,
In_Package => Builder_Package,
In_Tree => Project_Tree);
begin
if Other_Switches /= Nil_Variable_Value then
if not Quiet_Output
and then Switches /= No_Array_Element
and then Project_Tree.Array_Elements.Table
(Switches).Next /= No_Array_Element
(Switches).Next /= No_Array_Element
then
Write_Line
("Warning: using Builder'Switches(others), " &
"as there are several mains");
("Warning: using Builder'Switches(others), "
& "as there are several mains");
end if;
Add_Switches
@ -5156,8 +5159,8 @@ package body Make is
and then Switches /= No_Array_Element
then
Write_Line
("Warning: using Builder'Default_Switches" &
"(""Ada""), as there are several mains");
("Warning: using Builder'Default_Switches"
& "(""Ada""), as there are several mains");
end if;
Add_Switches
@ -5170,8 +5173,8 @@ package body Make is
and then Switches /= No_Array_Element
then
Write_Line
("Warning: using no switches from package " &
"Builder, as there are several mains");
("Warning: using no switches from package "
& "Builder, as there are several mains");
end if;
end;
end if;