diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-19 16:24:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-19 16:24:17 +0000 |
| commit | 0cd59c118d696092aaead1d09db59591ce085e3b (patch) | |
| tree | a44749e3f074425c00c87c4a0ca9db1580651b37 /gcc/ada/prj-nmsc.adb | |
| parent | 3558902e0e9d43e1c4c6ecf6f9997e5784fb4d04 (diff) | |
| download | gcc-0cd59c118d696092aaead1d09db59591ce085e3b.tar.gz | |
2007-12-19 Vincent Celier <celier@adacore.com>
* prj-attr.adb (Package_Node_Id_Of): Returns Unknown_Package when
package is not known
* prj-attr.ads (Unknown_Package): New constant
Do not crash when an unknown package is in several projects
* prj-dect.adb (Parse_Package_Declaration): Mark an unknown package as
ignored
* prj-nmsc.adb (Check): Remove obsolete code related to no longer
existing package Language_Processing.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131078 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index f6a37b657dd..128913b8822 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -714,8 +714,6 @@ package body Prj.Nmsc is is Data : Project_Data := In_Tree.Projects.Table (Project); Extending : Boolean := False; - Lang_Proc_Pkg : Package_Id; - Linker_Name : Variable_Value; begin Nmsc.When_No_Sources := When_No_Sources; @@ -840,33 +838,6 @@ package body Prj.Nmsc is Get_Mains (Project, In_Tree, Data); - -- In multi-language mode, check if there is a linker specified - - if Get_Mode = Multi_Language then - Lang_Proc_Pkg := - Value_Of (Name_Language_Processing, Data.Decl.Packages, In_Tree); - - if Lang_Proc_Pkg /= No_Package then - Linker_Name := - Value_Of - (Variable_Name => Name_Linker, - In_Variables => - In_Tree.Packages.Table (Lang_Proc_Pkg).Decl.Attributes, - In_Tree => In_Tree); - - if Linker_Name /= Nil_Variable_Value then - Get_Name_String (Linker_Name.Value); - - if Name_Len > 0 then - -- A non empty linker name was specified - - Data.Linker_Name := File_Name_Type (Linker_Name.Value); - - end if; - end if; - end if; - end if; - -- Update the project data in the Projects table In_Tree.Projects.Table (Project) := Data; |