diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 42 |
1 files changed, 22 insertions, 20 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index ae7709f..6f18c81 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -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 |