diff options
| author | Emmanuel Briot <briot@adacore.com> | 2011-08-03 10:19:32 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 12:19:32 +0200 |
| commit | 40ecf2f5d19ba2b046c65168aa8acc80ad399a08 (patch) | |
| tree | b0a3d19077a30eaebc12a8b662cc50d870dcdb04 /gcc/ada/prj-env.ads | |
| parent | 9fde638da6523b717ec7aca4f11ce8bf4f44dde7 (diff) | |
| download | gcc-40ecf2f5d19ba2b046c65168aa8acc80ad399a08.zip gcc-40ecf2f5d19ba2b046c65168aa8acc80ad399a08.tar.gz gcc-40ecf2f5d19ba2b046c65168aa8acc80ad399a08.tar.bz2 | |
gnatcmd.adb, [...] (Shared_Project_Tree_Data): new type An aggregate project and its aggregated trees need to share the common...
2011-08-03 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, prj-proc.adb, prj-proc.ads, make.adb, mlib-prj.adb,
prj.adb, prj.ads, makeutl.adb, makeutl.ads, clean.adb, prj-nmsc.adb,
prj-util.adb, prj-util.ads, prj-conf.adb, prj-conf.ads, prj-env.adb,
prj-env.ads (Shared_Project_Tree_Data): new type
An aggregate project and its aggregated trees need to share the common
data structures used for lists of strings, packages,... This makes the
code simpler since otherwise we have to pass the root tree (also used
for the configuration file data) in addition to the current project
tree. This also avoids ambiguities as to which tree should be used.
And finally this saves a bit of memory.
(For_Every_Project_Imported): new parameter Tree.
Since aggregated projects are using a different tree, we need to let
the caller know which tree to use to manipulate the returned project.
From-SVN: r177261
Diffstat (limited to 'gcc/ada/prj-env.ads')
| -rw-r--r-- | gcc/ada/prj-env.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 99bd880..2be3cfe 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -88,6 +88,7 @@ package Prj.Env is function Ada_Objects_Path (Project : Project_Id; + In_Tree : Project_Tree_Ref; Including_Libraries : Boolean := True) return String_Access; -- Get the ADA_OBJECTS_PATH of a Project file. For the first call, compute -- it and cache it. When Including_Libraries is False, do not include the @@ -149,7 +150,9 @@ package Prj.Env is generic with procedure Action (Path : String); - procedure For_All_Object_Dirs (Project : Project_Id); + procedure For_All_Object_Dirs + (Project : Project_Id; + Tree : Project_Tree_Ref); -- Iterate through all the object directories of a project, including those -- of imported or modified projects. |