diff options
Diffstat (limited to 'gcc/ada/mlib-utl.ads')
| -rw-r--r-- | gcc/ada/mlib-utl.ads | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index 41bf3de3c15..b2d8da85892 100644 --- a/gcc/ada/mlib-utl.ads +++ b/gcc/ada/mlib-utl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2002, Ada Core Technologies, Inc -- +-- Copyright (C) 2001-2003, Ada Core Technologies, Inc -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -20,7 +20,7 @@ -- MA 02111-1307, USA. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ @@ -29,22 +29,34 @@ package MLib.Utl is + No_Argument_List : constant Argument_List := (1 .. 0 => null); + -- Comment needed ??? + procedure Delete_File (Filename : in String); - -- Delete the file Filename. + -- Delete the file Filename + -- Why is this different from the standard OS_Lib routine??? procedure Gcc (Output_File : String; Objects : Argument_List; - Options : Argument_List); - -- Invoke gcc to create a library. + Options : Argument_List; + Driver_Name : Name_Id := No_Name; + Options_2 : Argument_List := No_Argument_List); + -- Driver_Name indicates the "driver" to invoke; by default, the "driver" + -- is gcc. + -- This procedure invokes the driver to create a shared library. + -- Options are passed to gcc before the objects, Options_2 after. + -- Output_File is the name of the library file to create. + -- Objects are the names of the object files to put in the library. procedure Ar (Output_File : String; Objects : Argument_List); -- Run ar to move all the binaries inside the archive. -- If ranlib is on the path, run it also. + -- Arguments need documenting ??? function Lib_Directory return String; - -- Return the directory containing libgnat. + -- Return the directory containing libgnat end MLib.Utl; |