diff options
| author | Emmanuel Briot <briot@adacore.com> | 2011-08-03 10:01:51 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 12:01:51 +0200 |
| commit | ab29a348ebe1345e469cede91ea4b2ef7c72e1fe (patch) | |
| tree | f598a1cc49cea68a1f0ccdfe4a7e31f9cbdd9664 /gcc/ada/prj-env.ads | |
| parent | 9466892f26037f47b9406de56f8ec0f0ed8588a5 (diff) | |
| download | gcc-ab29a348ebe1345e469cede91ea4b2ef7c72e1fe.zip gcc-ab29a348ebe1345e469cede91ea4b2ef7c72e1fe.tar.gz gcc-ab29a348ebe1345e469cede91ea4b2ef7c72e1fe.tar.bz2 | |
[multiple changes]
2011-08-03 Yannick Moy <moy@adacore.com>
* alfa.ads Update format of ALFA section in ALI file in order to add a
mapping from bodies to specs when both are present
(ALFA_Scope_Record): add components for spec file/scope
* get_alfa.adb (Get_ALFA): read the new file/scope for spec when present
* lib-xref-alfa.adb
(Collect_ALFA): after all scopes have been collected, fill in the spec
information when relevant
* put_alfa.adb (Put_ALFA): write the new file/scope for spec when
present.
2011-08-03 Eric Botcazou <ebotcazou@adacore.com>
* inline.adb (Add_Inlined_Subprogram): Do not consider the enclosing
code unit to decide whether to add internally generated subprograms.
2011-08-03 Javier Miranda <miranda@adacore.com>
* sem_aux.ads, sem_aux.adb (Is_VM_By_Copy_Actual): New subprogram.
* exp_ch9.adb
(Build_Simple_Entry_Call): Handle actuals that must be handled by copy
in VM targets.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* make.adb, makeutl.adb, makeutl.ads (Make.Switches_Of): now shares
code with Makeutl.Get_Switches.
* prj-tree.adb: Update comment.
From-SVN: r177257
Diffstat (limited to 'gcc/ada/prj-env.ads')
| -rw-r--r-- | gcc/ada/prj-env.ads | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 61c0431..75f014a 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -162,6 +162,8 @@ package Prj.Env is -- to search for projects on the path (and caches the results to improve -- efficiency). + No_Project_Search_Path : constant Project_Search_Path; + procedure Initialize_Default_Project_Path (Self : in out Project_Search_Path; Target_Name : String); @@ -170,6 +172,9 @@ package Prj.Env is -- variables ADA_PROJECT_PATH and GPR_PROJECT_PATH). This does nothing if -- Self has already been initialized. + procedure Copy (From : Project_Search_Path; To : out Project_Search_Path); + -- Copy From into To + procedure Initialize_Empty (Self : in out Project_Search_Path); -- Initialize self with an empty list of directories. If Self had already -- been set, it is reset. @@ -234,4 +239,9 @@ private Cache : Projects_Paths.Instance; end record; + + No_Project_Search_Path : constant Project_Search_Path := + (Path => null, + Cache => Projects_Paths.Nil); + end Prj.Env; |