Commit d9f3a593 by Robert Dewar Committed by Arnaud Charlet

g-comlin.adb: Minor reformatting

2008-08-20  Robert Dewar  <dewar@adacore.com>

	* g-comlin.adb: Minor reformatting

From-SVN: r139320
parent 76871f97
...@@ -1271,16 +1271,14 @@ package body Make is ...@@ -1271,16 +1271,14 @@ package body Make is
Source_File_Name => File_Name, Source_File_Name => File_Name,
Source_Index => Index, Source_Index => Index,
Naming => Project_Tree.Projects.Table Naming => Project_Tree.Projects.Table
(Main_Project).Naming, (Main_Project).Naming,
In_Package => The_Package, In_Package => The_Package,
Allow_ALI => Allow_ALI => Program = Binder or else Program = Linker);
Program = Binder or else Program = Linker);
if Switches.Kind = List then if Switches.Kind = List then
Program_Args := Program; Program_Args := Program;
Switch_List := Switches.Values; Switch_List := Switches.Values;
while Switch_List /= Nil_String loop while Switch_List /= Nil_String loop
Element := Project_Tree.String_Elements.Table (Switch_List); Element := Project_Tree.String_Elements.Table (Switch_List);
Get_Name_String (Element.Value); Get_Name_String (Element.Value);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment