2008-08-01 Vincent Celier <celier@adacore.com>
authorVincent Celier <celier@adacore.com>
Fri, 1 Aug 2008 09:03:11 +0000 (11:03 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 1 Aug 2008 09:03:11 +0000 (11:03 +0200)
commit8045c479546de9d456e1be06d8d8f1dbc922684f
tree3b3892690a3bc3eb18346284d50688d4c422777f
parent434a280743e4edcda87589ac978dac9743556cfc
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
gcc/ada/mlib-utl.adb
gcc/ada/mlib-utl.ads