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.adb | |
| parent | c9b9ec14ece5acf23bf0817633914e28c43c0678 (diff) | |
| download | gcc-2cd44f5a448ad1e160edae120cc7b945ca1a5db3.tar.gz | |
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.adb')
| -rw-r--r-- | gcc/ada/mlib-tgt-vms.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/mlib-tgt-vms.adb b/gcc/ada/mlib-tgt-vms.adb index b01ea9d899f..4fb787c1275 100644 --- a/gcc/ada/mlib-tgt-vms.adb +++ b/gcc/ada/mlib-tgt-vms.adb @@ -44,6 +44,8 @@ package body MLib.Tgt.VMS is function Object_Ext return String; + function Library_Major_Minor_Id_Supported return Boolean; + function PIC_Option return String; ----------------- @@ -110,6 +112,15 @@ package body MLib.Tgt.VMS is end if; end Libgnat; + -------------------------------------- + -- Library_Major_Minor_Id_Supported -- + -------------------------------------- + + function Library_Major_Minor_Id_Supported return Boolean is + begin + return False; + end Library_Major_Minor_Id_Supported; + ---------------- -- Object_Ext -- ---------------- @@ -139,4 +150,7 @@ begin Libgnat_Ptr := Libgnat'Access; Object_Ext_Ptr := Object_Ext'Access; PIC_Option_Ptr := PIC_Option'Access; + Library_Major_Minor_Id_Supported_Ptr := + Library_Major_Minor_Id_Supported'Access; + end MLib.Tgt.VMS; |