OSDN Git Service

2008-08-01 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 1 Aug 2008 09:03:11 +0000 (09:03 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 1 Aug 2008 09:03:11 +0000 (09:03 +0000)
commit3597f4f40042e48b50ac04e7b8e2d993d9323bef
tree3b3892690a3bc3eb18346284d50688d4c422777f
parent6dbe70cebfaf97a135aeec67cf8ffc324ba26f37
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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138488 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/mlib-utl.adb
gcc/ada/mlib-utl.ads