diff options
| author | Vincent Celier <celier@adacore.com> | 2007-08-14 10:43:34 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-14 10:43:34 +0200 |
| commit | 2cd44f5a448ad1e160edae120cc7b945ca1a5db3 (patch) | |
| tree | 5875d0102588a0bdaf32f61cb26f856f87ff7ec6 /gcc/ada/mlib-tgt-vms-ia64.adb | |
| parent | c9b9ec14ece5acf23bf0817633914e28c43c0678 (diff) | |
| download | gcc-2cd44f5a448ad1e160edae120cc7b945ca1a5db3.zip gcc-2cd44f5a448ad1e160edae120cc7b945ca1a5db3.tar.gz gcc-2cd44f5a448ad1e160edae120cc7b945ca1a5db3.tar.bz2 | |
clean.adb, [...] (Create_Sym_Links): New procedure.
2007-08-14 Vincent Celier <celier@adacore.com>
* clean.adb, fmap.adb, sinput-p.adb, sinput-p.ads, gnatcmd.adb,
gnatname.adb, makeutl.ads, makeutl.adb, makegpr.adb, mlib-tgt-vms.adb
mlib-tgt-darwin.adb, mlib-tgt-lynxos.adb, mlib-prj.adb, mlib-tgt.adb,
mlib-tgt.ads, mlib-tgt-irix.adb mlib-tgt-hpux.adb, mlib-tgt-linux.adb,
mlib-tgt-solaris.adb, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb,
mlib-tgt-mingw.adb, mlib-tgt-vxworks.adb, mlib-tgt-aix.adb,
mlib-tgt-tru64.adb, mlib.ads, mlib.adb (Create_Sym_Links): New
procedure.
(Major_Id_Name): New function.
mlib-tgt.ads/mlib.tgt.adb:
(Library_Major_Minor_Id_Supported): New function, default returns True
Most mlib-tgt-*.adb that support shared libraries and symbolic links:
(Build_Dynamic_Library): Add support for major/minor ids for shared libs
Other mlib-tgt-*.adb (aix, mingw, vms, vxworks, xi):
Implementation of Library_Major_Minor_Id_Supported returns False
clean.adb:
(Clean_Library_Directory): If major/minor ids are supported, clean all
library files.
Major update of the Project Manager and of the project aware tools,
including gprmake, so that the same sources in the GNAT repository
can be used by gprbuild.
From-SVN: r127432
Diffstat (limited to 'gcc/ada/mlib-tgt-vms-ia64.adb')
| -rw-r--r-- | gcc/ada/mlib-tgt-vms-ia64.adb | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/gcc/ada/mlib-tgt-vms-ia64.adb b/gcc/ada/mlib-tgt-vms-ia64.adb index 9aad7b8..404b905 100644 --- a/gcc/ada/mlib-tgt-vms-ia64.adb +++ b/gcc/ada/mlib-tgt-vms-ia64.adb @@ -36,8 +36,8 @@ with MLib.Tgt.VMS; pragma Warnings (Off, MLib.Tgt.VMS); -- MLib.Tgt.VMS is with'ed only for elaboration purposes -with Opt; use Opt; -with Output; use Output; +with Opt; use Opt; +with Output; use Output; with GNAT.Directory_Operations; use GNAT.Directory_Operations; @@ -47,14 +47,11 @@ with System.CRTL; use System.CRTL; package body MLib.Tgt.Specific is - -- Non default subprogram. See comment in mlib-tgt.ads + -- Non default subprogram. See comment in mlib-tgt.ads. procedure Build_Dynamic_Library (Ofiles : Argument_List; - Foreign : Argument_List; - Afiles : Argument_List; Options : Argument_List; - Options_2 : Argument_List; Interfaces : Argument_List; Lib_Filename : String; Lib_Dir : String; @@ -95,10 +92,7 @@ package body MLib.Tgt.Specific is procedure Build_Dynamic_Library (Ofiles : Argument_List; - Foreign : Argument_List; - Afiles : Argument_List; Options : Argument_List; - Options_2 : Argument_List; Interfaces : Argument_List; Lib_Filename : String; Lib_Dir : String; @@ -107,8 +101,6 @@ package body MLib.Tgt.Specific is Lib_Version : String := ""; Auto_Init : Boolean := False) is - pragma Unreferenced (Foreign); - pragma Unreferenced (Afiles); Lib_File : constant String := Lib_Dir & Directory_Separator & "lib" & @@ -171,7 +163,7 @@ package body MLib.Tgt.Specific is function Option_File_Name return String is begin - if Symbol_Data.Symbol_File = No_Name then + if Symbol_Data.Symbol_File = No_Path then return "symvec.opt"; else Get_Name_String (Symbol_Data.Symbol_File); @@ -420,7 +412,7 @@ package body MLib.Tgt.Specific is -- Reference Symbol File - if Symbol_Data.Reference /= No_Name then + if Symbol_Data.Reference /= No_Path then Last_Argument := Last_Argument + 1; Arguments (Last_Argument) := new String'("-r"); Last_Argument := Last_Argument + 1; @@ -510,7 +502,7 @@ package body MLib.Tgt.Specific is Options => VMS_Options, Options_2 => Shared_Libgcc_Switch & Opts (Opts'First .. Last_Opt) & - Opts2 (Opts2'First .. Last_Opt2) & Options_2, + Opts2 (Opts2'First .. Last_Opt2), Driver_Name => Driver_Name); -- The auto-init object file need to be deleted, so that it will not |