OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

prj-env.adb (Set_Ada_Paths.Add.Recursive_Add): Do not add the object directories of projects that have no Ada sources. 

2005-09-01  Vincent Celier  <celier@adacore.com>

	* prj-env.adb (Set_Ada_Paths.Add.Recursive_Add): Do not add the object
	directories of projects that have no Ada sources.

From-SVN: r103874
This commit is contained in:
Vincent Celier 2005-09-05 09:56:15 +02:00 committed by Arnaud Charlet
parent 6e18b0e511
commit 09245ac9a7
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/prj-env.adb
View File

@ -32,7 +32,6 @@ with Prj.Com; use Prj.Com;
with Tempdir;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.OS_Lib; use GNAT.OS_Lib;
package body Prj.Env is
@ -2138,9 +2137,15 @@ package body Prj.Env is
end if;
-- For a non-library project, add the object
-- directory, if it is not a virtual project.
-- directory, if it is not a virtual project, and
-- if there are Ada sources. If there are no Ada
-- sources, adding the object directory could
-- disrupt the order of the object dirs in the path.
elsif not Data.Virtual then
elsif not Data.Virtual
and then In_Tree.Projects.Table
(Project).Ada_Sources_Present
then
Add_To_Object_Path
(Data.Object_Directory, In_Tree);
end if;