diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-04 13:28:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-04 13:28:39 +0000 |
| commit | e4089178d8ceb97d6b8dee57d1b96eb237617e8d (patch) | |
| tree | 225dcf0a73f36e94043f1f0f435ff2a3189bd7a5 /gcc/ada/mlib-utl.ads | |
| parent | 5bf98b4037522bfeea9941b94a0c03c69c4e0ca3 (diff) | |
| download | gcc-e4089178d8ceb97d6b8dee57d1b96eb237617e8d.tar.gz | |
2005-07-04 Vincent Celier <celier@adacore.com>
* mlib-prj.adb (Auto_Initialize): New constant String
(SALs_Use_Constructors): New Boolean function
(Build_Library): Call gnatbind with Auto_Initialize switch when
SALs_Use_Constructors returns True.
* mlib-tgt.ads: Minor reformatting
* mlib-utl.ads: Minor reformatting
* opt.ads: (Use_Pragma_Linker_Constructor): New Boolean flag
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101582 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/mlib-utl.ads')
| -rw-r--r-- | gcc/ada/mlib-utl.ads | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index 1de69996486..bbc895d7e69 100644 --- a/gcc/ada/mlib-utl.ads +++ b/gcc/ada/mlib-utl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2004, Ada Core Technologies, Inc -- +-- Copyright (C) 2001-2005, 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- -- @@ -29,9 +29,6 @@ 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 -- Why is this different from the standard OS_Lib routine??? @@ -43,18 +40,18 @@ package MLib.Utl is Options_2 : Argument_List; Driver_Name : Name_Id := No_Name); -- Driver_Name indicates the "driver" to invoke; by default, the "driver" - -- is gcc. - -- This procedure invokes the driver to create a shared library. + -- 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. + -- 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 ??? + -- Run ar to move all the binaries inside the archive. If ranlib is on 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. function Lib_Directory return String; -- Return the directory containing libgnat |