mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-23 21:31:54 +08:00
Code Issues Packages Projects Releases Wiki Activity

prj-nmsc.adb: Minor reformatting

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

	* prj-nmsc.adb: Minor reformatting

From-SVN: r138696
This commit is contained in:
Robert Dewar 2008-08-05 11:39:23 +02:00 committed by Arnaud Charlet
parent 45a9255f9e
commit 628a4180a3
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gcc/ada/prj-nmsc.adb
View File

@ -1296,6 +1296,7 @@ package body Prj.Nmsc is
Element := In_Tree.Array_Elements.Table (Element_Id);
if Element.Index /= All_Other_Names then
-- Get the name of the language
Get_Language_Index_Of (Element.Index);
@ -1408,6 +1409,7 @@ package body Prj.Nmsc is
Element := In_Tree.Array_Elements.Table (Element_Id);
if Element.Index /= All_Other_Names then
-- Get the name of the language
Get_Language_Index_Of (Element.Index);
@ -1419,11 +1421,11 @@ package body Prj.Nmsc is
-- Attribute Dependency_Switches (<language>)
if In_Tree.Languages_Data.Table
(Lang_Index).Config.Dependency_Kind = None
(Lang_Index).Config.Dependency_Kind = None
then
In_Tree.Languages_Data.Table
(Lang_Index).Config.Dependency_Kind :=
Makefile;
Makefile;
end if;
List := Element.Value.Values;
@ -1441,11 +1443,11 @@ package body Prj.Nmsc is
-- Attribute Dependency_Driver (<language>)
if In_Tree.Languages_Data.Table
(Lang_Index).Config.Dependency_Kind = None
(Lang_Index).Config.Dependency_Kind = None
then
In_Tree.Languages_Data.Table
(Lang_Index).Config.Dependency_Kind :=
Makefile;
Makefile;
end if;
List := Element.Value.Values;
@ -1492,7 +1494,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Include_Path_File :=
Element.Value.Value;
Element.Value.Value;
when Name_Driver =>
@ -1502,13 +1504,13 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Compiler_Driver :=
File_Name_Type (Element.Value.Value);
File_Name_Type (Element.Value.Value);
when Name_Required_Switches =>
Put (Into_List =>
In_Tree.Languages_Data.Table
(Lang_Index).Config.
Compiler_Required_Switches,
Compiler_Required_Switches,
From_List => Element.Value.Values,
In_Tree => In_Tree);
@ -1516,8 +1518,8 @@ package body Prj.Nmsc is
begin
In_Tree.Languages_Data.Table
(Lang_Index).Config.Path_Syntax :=
Path_Syntax_Kind'Value
(Get_Name_String (Element.Value.Value));
Path_Syntax_Kind'Value
(Get_Name_String (Element.Value.Value));
exception
when Constraint_Error =>
@ -1574,7 +1576,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Mapping_Spec_Suffix :=
File_Name_Type (Element.Value.Value);
File_Name_Type (Element.Value.Value);
when Name_Mapping_Body_Suffix =>
@ -1582,7 +1584,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Mapping_Body_Suffix :=
File_Name_Type (Element.Value.Value);
File_Name_Type (Element.Value.Value);
when Name_Config_File_Switches =>
@ -1599,8 +1601,8 @@ package body Prj.Nmsc is
end if;
Put (Into_List =>
In_Tree.Languages_Data.Table
(Lang_Index).Config.Config_File_Switches,
In_Tree.Languages_Data.Table
(Lang_Index).Config.Config_File_Switches,
From_List => List,
In_Tree => In_Tree);
@ -1610,7 +1612,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Objects_Path :=
Element.Value.Value;
Element.Value.Value;
when Name_Objects_Path_File =>
@ -1618,7 +1620,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Objects_Path_File :=
Element.Value.Value;
Element.Value.Value;
when Name_Config_Body_File_Name =>
@ -1626,7 +1628,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Config_Body :=
Element.Value.Value;
Element.Value.Value;
when Name_Config_Body_File_Name_Pattern =>
@ -1635,7 +1637,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Config_Body_Pattern :=
Element.Value.Value;
Element.Value.Value;
when Name_Config_Spec_File_Name =>
@ -1643,7 +1645,7 @@ package body Prj.Nmsc is
In_Tree.Languages_Data.Table
(Lang_Index).Config.Config_Spec :=
Element.Value.Value;
Element.Value.Value;
when Name_Config_Spec_File_Name_Pattern =>
@ -1661,8 +1663,8 @@ package body Prj.Nmsc is
begin
In_Tree.Languages_Data.Table
(Lang_Index).Config.Config_File_Unique :=
Boolean'Value
(Get_Name_String (Element.Value.Value));
Boolean'Value
(Get_Name_String (Element.Value.Value));
exception
when Constraint_Error =>
Error_Msg