2010-10-05 Ed Schonberg <schonberg@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / mlib-utl.ads

diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads
index ae0509d..f91eebf 100644 (file)
--- a/gcc/ada/mlib-utl.ads
+++ b/gcc/ada/mlib-utl.ads
@@ -51,11 +51,17 @@ package MLib.Utl is
    --  the path, run it also. Output_File is the path name of the archive to
    --  create. Objects is the list of the path names of the object files to be
    --  put in the archive. This procedure currently assumes that it is always
-   --  called in the context of gnatmake. If other executable start using this
+   --  called in the context of gnatmake. If other executables start using this
    --  procedure, an additional parameter would need to be added, and calls to
    --  Osint.Program_Name updated accordingly in the body.
 
    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;