diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-05 11:28:12 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 11:28:12 +0200 |
| commit | 33395f44ba7145d1a340cd76c638bda2a7c892e1 (patch) | |
| tree | 448ee1b05a04cf57cee454ca733939bf44fce327 /gcc/ada/make.adb | |
| parent | 05231b21e0d27a9969b3762de1e8363994a064b6 (diff) | |
| download | gcc-33395f44ba7145d1a340cd76c638bda2a7c892e1.zip gcc-33395f44ba7145d1a340cd76c638bda2a7c892e1.tar.gz gcc-33395f44ba7145d1a340cd76c638bda2a7c892e1.tar.bz2 | |
make.adb: Minor reformatting
2008-08-05 Robert Dewar <dewar@adacore.com>
* make.adb: Minor reformatting
From-SVN: r138686
Diffstat (limited to 'gcc/ada/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 53 |
1 files changed, 28 insertions, 25 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 6a5e8b9..1b5d712 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -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; |