Skip to content

R
riscv-gcc-1
Commit 628a4180 by Robert Dewar Committed by Arnaud Charlet
Options

prj-nmsc.adb: Minor reformatting 

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

	* prj-nmsc.adb: Minor reformatting

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