diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 08:28:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 08:28:47 +0000 |
| commit | 700315b91cd7af93dfa463a671bb615a9cd9bfae (patch) | |
| tree | 654521d54854aa7c811d76cf7c5e45e9e3571f66 /gcc/ada/prj-pars.adb | |
| parent | e13474c869c67f5eb1687dc1df90817c00973c73 (diff) | |
| download | gcc-700315b91cd7af93dfa463a671bb615a9cd9bfae.tar.gz | |
2011-08-03 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, make.adb, prj-part.adb, prj-part.ads, prj-makr.adb,
clean.adb, prj-nmsc.adb, prj-pars.adb, prj-conf.adb, prj-env.adb,
prj-env.ads (Prj.Env.Initialize_Default_Project_Path,
Prj.Env.Initialize_Empty): new subprograms
(Get_Env, Find_Project): remove parameter Target_Name.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177241 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-pars.adb')
| -rw-r--r-- | gcc/ada/prj-pars.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index c25ff60e239..4811fc6c87f 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -28,6 +28,7 @@ with GNAT.Directory_Operations; use GNAT.Directory_Operations; with Output; use Output; with Prj.Conf; use Prj.Conf; +with Prj.Env; with Prj.Err; use Prj.Err; with Prj.Part; with Prj.Tree; use Prj.Tree; @@ -60,6 +61,8 @@ package body Prj.Pars is if Project_Node_Tree = null then Project_Node_Tree := new Project_Node_Tree_Data; Prj.Tree.Initialize (Project_Node_Tree); + Prj.Env.Initialize_Default_Project_Path + (Project_Node_Tree.Project_Path, Target_Name => ""); end if; -- Parse the main project file into a tree @@ -73,8 +76,7 @@ package body Prj.Pars is Packages_To_Check => Packages_To_Check, Current_Directory => Current_Dir, Flags => Flags, - Is_Config_File => False, - Target_Name => ""); + Is_Config_File => False); -- If there were no error, process the tree |