diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 12:49:31 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 12:49:31 +0100 |
commit | ee1a757231c05815f7e2f9e5e0ced98b380c0416 (patch) | |
tree | c5a05d81342446366f864e0be7b46fe5f6196617 /gcc/ada/prj-env.ads | |
parent | e8bd500e2dcdfdd5f798e403662942d0dc3d6a86 (diff) | |
download | gcc-ee1a757231c05815f7e2f9e5e0ced98b380c0416.zip gcc-ee1a757231c05815f7e2f9e5e0ced98b380c0416.tar.gz gcc-ee1a757231c05815f7e2f9e5e0ced98b380c0416.tar.bz2 |
[multiple changes]
2011-12-12 Thomas Quinot <quinot@adacore.com>
* exp_disp.adb: Minor reformatting.
2011-12-12 Tristan Gingold <gingold@adacore.com>
* gnatls.adb (Search_RTS): New procedure.
(Scan_Ls_Arg): Move code that search the RTS.
(Gnatls): search the RTS later.
* prj-env.ads, prj-env.adb (Get_Runtime_Path): New function.
2011-12-12 Ed Falis <falis@adacore.com>
* sysdep.c: Fix treatment of VxWorks task options so that run-times
built with __SPE__ get option VX_SPE_TASK while others get VX_FP_TASK.
2011-12-12 Bob Duff <duff@adacore.com>
* sem_type.adb, sem_type.ads, sem_ch4.adb, treepr.adb, treepr.ads:
Minor cleanup and fiddling with debug printouts.
2011-12-12 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Get_Directories): For a non extending project,
always get a declared object and/or exec directory if it already
exists, even when there are no sources, but do not create them.
2011-12-12 Bob Duff <duff@adacore.com>
* sem_res.adb (Resolve): Deal with the case where an abstract
operator is called with operands of type universal_integer.
2011-12-12 Thomas Quinot <quinot@adacore.com>
* par_sco.adb: Minor fix to dominance marker referencing WHILE
decision.
From-SVN: r182227
Diffstat (limited to 'gcc/ada/prj-env.ads')
-rw-r--r-- | gcc/ada/prj-env.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 79de646..0bdaafa 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -236,6 +236,13 @@ package Prj.Env is -- -- Returns No_Name if no such project was found + function Get_Runtime_Path (Self : Project_Search_Path; Name : String) + return String_Access; + -- Compute the full path for the project-based runtime name. It first + -- checks that name is not a simple name (must has a path separator in it), + -- and returns null in case of failure. This check might be removed in the + -- future. The name is simply searched on the project path. + private package Projects_Paths is new GNAT.Dynamic_HTables.Simple_HTable (Header_Num => Header_Num, |