diff options
| author | Pascal Obry <obry@adacore.com> | 2011-08-01 15:57:17 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 17:57:17 +0200 |
| commit | 1982d5a85436cb4798d3b58a6f306b33c996ff24 (patch) | |
| tree | 6924a2255be2eb95a5d6c5d398e92a5e2c5d0642 /gcc/ada/prj-conf.adb | |
| parent | 0d53d36b6e25fb2c306dc3d5a76b78e596795b6e (diff) | |
| download | gcc-1982d5a85436cb4798d3b58a6f306b33c996ff24.zip gcc-1982d5a85436cb4798d3b58a6f306b33c996ff24.tar.gz gcc-1982d5a85436cb4798d3b58a6f306b33c996ff24.tar.bz2 | |
prj-part.ads, [...] (Parse): Add Target_Name parameter.
2011-08-01 Pascal Obry <obry@adacore.com>
* prj-part.ads, prj-part.adb (Parse): Add Target_Name parameter. Pass
Target_Name to Get_Path call.
(Parse_Single_Project): Likewise.
(Post_Parse_Context_Clause): Likewise.
* prj-env.ads, prj-env.adb (Find_Project): Add Target_Name parameter.
Call Initialise_Project_Path with the proper Target_Name.
(Initialize_Project_Path): Add <gnat_root>/<target_name>/lib/gnat
search path.
(Get_Path): Add Target_Name parameter. Call Initialise_Project_Path
with the proper Target_Name.
* prj-conf.adb (Get_Or_Create_Configuration_File): Pass Target_Name to
Part.Parse routine.
(Parse_Project_And_Apply_Config): Likewise.
* prj-makr.adb (Initialize): Pass empty Target_Name to Parse routine.
This is fine as this part of the code is supporting only native
compilation.
* prj-pars.adb (Parse): Pass empty Target_Name to Parse routine. This
is fine as this part of the code is supporting only native compilation.
From-SVN: r177054
Diffstat (limited to 'gcc/ada/prj-conf.adb')
| -rw-r--r-- | gcc/ada/prj-conf.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/prj-conf.adb b/gcc/ada/prj-conf.adb index 921811e..b3827d2 100644 --- a/gcc/ada/prj-conf.adb +++ b/gcc/ada/prj-conf.adb @@ -1116,7 +1116,8 @@ package body Prj.Conf is Packages_To_Check => Packages_To_Check, Current_Directory => Current_Directory, Is_Config_File => True, - Flags => Flags); + Flags => Flags, + Target_Name => Target_Name); else -- Maybe the user will want to create his own configuration file Config_Project_Node := Empty_Node; @@ -1214,7 +1215,8 @@ package body Prj.Conf is Packages_To_Check => Packages_To_Check, Current_Directory => Current_Directory, Is_Config_File => False, - Flags => Flags); + Flags => Flags, + Target_Name => Target_Name); if User_Project_Node = Empty_Node then User_Project_Node := Empty_Node; |