diff options
| author | Vincent Celier <celier@adacore.com> | 2008-08-01 11:03:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:03:11 +0200 |
| commit | 8045c479546de9d456e1be06d8d8f1dbc922684f (patch) | |
| tree | 3b3892690a3bc3eb18346284d50688d4c422777f /gcc/ada/mlib-utl.ads | |
| parent | 434a280743e4edcda87589ac978dac9743556cfc (diff) | |
| download | gcc-8045c479546de9d456e1be06d8d8f1dbc922684f.zip gcc-8045c479546de9d456e1be06d8d8f1dbc922684f.tar.gz gcc-8045c479546de9d456e1be06d8d8f1dbc922684f.tar.bz2 | |
2008-08-01 Vincent Celier <celier@adacore.com>
* mlib-utl.adb:
(Adalib_Path): New variable to store the path of the adalib directory
when procedure Specify_Adalib_Dir is called.
(Lib_Directory): If Adalib_Path is not null, return its value
(Specify_Adalib_Dir): New procedure
* mlib-utl.ads (Specify_Adalib_Dir): New procedure
From-SVN: r138488
Diffstat (limited to 'gcc/ada/mlib-utl.ads')
| -rw-r--r-- | gcc/ada/mlib-utl.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index 237c678..f91eebf 100644 --- a/gcc/ada/mlib-utl.ads +++ b/gcc/ada/mlib-utl.ads @@ -58,4 +58,10 @@ package MLib.Utl is function Lib_Directory return String; -- Return the directory containing libgnat + procedure Specify_Adalib_Dir (Path : String); + -- Specify the path of the GNAT adalib directory, to be returned by + -- function Lib_Directory without looking for it. This is used only in + -- gprlib, because we cannot rely on the search in Lib_Directory, as the + -- GNAT version may be different for gprbuild/gprlib and the compiler. + end MLib.Utl; |