mlib-tgt-aix.adb, [...]: Renamed into...

2008-04-08  Vincent Celier  <celier@adacore.com>
	    Arnaud Charlet  <charlet@adacore.com>

	* mlib-tgt-aix.adb, mlib-tgt-darwin.adb, mlib-tgt-hpux.adb,
	mlib-tgt-irix.adb, mlib-tgt-linux.adb, mlib-tgt-lynxos.adb,
	mlib-tgt-solaris.adb, mlib-tgt-tru64.adb, mlib-tgt-vms.adb,
	mlib-tgt-vms.ads, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb,
	mlib-tgt-vxworks.adb, mlib-tgt-mingw.adb: Renamed into...

	* mlib-tgt-specific-aix.adb, mlib-tgt-specific-darwin.adb,
	mlib-tgt-specific-hpux.adb, mlib-tgt-specific-irix.adb,
	mlib-tgt-specific-linux.adb, mlib-tgt-specific-lynxos.adb,
	mlib-tgt-specific-solaris.adb, mlib-tgt-specific-tru64.adb,
	mlib-tgt-vms_common.adb, mlib-tgt-vms_common.ads,
	mlib-tgt-specific-vms-alpha.adb, mlib-tgt-specific-vms-ia64.adb,
	mlib-tgt-specific-vxworks.adb, mlib-tgt-specific-xi.adb,
	mlib-tgt-specific-mingw.adb: New names.

	* Makefile.in: 
	On VxWorks platforms use s-stchop-limit.ads for s-stchop.ads
	Get rid of gnatbl.
	(EXTRA_GNATRTL_NONTASKING_OBJS): Add s-win32.o
	Files mlib-tgt-*.adb have been renamed mlib-tgt-specific-*.adb
	Minor updates for VMS

From-SVN: r134007

1 files changed, 0 insertions, 148 deletions

diff --git a/gcc/ada/mlib-tgt-linux.adb b/gcc/ada/mlib-tgt-linux.adb
deleted file mode 100644
index 493d801..0000000
--- a/gcc/ada/mlib-tgt-linux.adb
+++ /dev/null
@@ -1,148 +0,0 @@
-------------------------------------------------------------------------------
---                                                                          --
---                         GNAT COMPILER COMPONENTS                         --
---                                                                          --
---                    M L I B . T G T . S P E C I F I C                     --
---                           (GNU/Linux Version)                            --
---                                                                          --
---                                 B o d y                                  --
---                                                                          --
---          Copyright (C) 2001-2007, Free Software Foundation, 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- --
--- ware  Foundation;  either version 3,  or (at your option) any later ver- --
--- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
--- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
--- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
--- for  more details.  You should have  received  a copy of the GNU General --
--- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
--- http://www.gnu.org/licenses for a complete copy of the license.          --
---                                                                          --
--- GNAT was originally developed  by the GNAT team at  New York University. --
--- Extensive contributions were provided by Ada Core Technologies Inc.      --
---                                                                          --
-------------------------------------------------------------------------------
-
---  This is the GNU/Linux version of the body
-
-with MLib.Fil;
-with MLib.Utl;
-with Opt;
-with Output; use Output;
-
-package body MLib.Tgt.Specific is
-
-   use MLib;
-
-   --  Non default subprograms
-
-   procedure Build_Dynamic_Library
-     (Ofiles       : Argument_List;
-      Options      : Argument_List;
-      Interfaces   : Argument_List;
-      Lib_Filename : String;
-      Lib_Dir      : String;
-      Symbol_Data  : Symbol_Record;
-      Driver_Name  : Name_Id := No_Name;
-      Lib_Version  : String  := "";
-      Auto_Init    : Boolean := False);
-
-   function Is_Archive_Ext (Ext : String) return Boolean;
-
-   ---------------------------
-   -- Build_Dynamic_Library --
-   ---------------------------
-
-   procedure Build_Dynamic_Library
-     (Ofiles       : Argument_List;
-      Options      : Argument_List;
-      Interfaces   : Argument_List;
-      Lib_Filename : String;
-      Lib_Dir      : String;
-      Symbol_Data  : Symbol_Record;
-      Driver_Name  : Name_Id := No_Name;
-      Lib_Version  : String  := "";
-      Auto_Init    : Boolean := False)
-   is
-      pragma Unreferenced (Interfaces);
-      pragma Unreferenced (Symbol_Data);
-      pragma Unreferenced (Auto_Init);
-      --  Initialization is done through the constructor mechanism
-
-      Lib_File : constant String :=
-                   "lib" & Fil.Append_To (Lib_Filename, DLL_Ext);
-
-      Lib_Path : constant String :=
-                   Lib_Dir & Directory_Separator & Lib_File;
-
-      Version_Arg          : String_Access;
-      Symbolic_Link_Needed : Boolean := False;
-
-   begin
-      if Opt.Verbose_Mode then
-         Write_Str ("building relocatable shared library ");
-         Write_Line (Lib_Path);
-      end if;
-
-      if Lib_Version = "" then
-         Utl.Gcc
-           (Output_File => Lib_Path,
-            Objects     => Ofiles,
-            Options     => Options,
-            Driver_Name => Driver_Name,
-            Options_2   => No_Argument_List);
-
-      else
-         declare
-            Maj_Version : constant String :=
-                            Major_Id_Name (Lib_File, Lib_Version);
-         begin
-            if Maj_Version'Length /= 0 then
-               Version_Arg := new String'("-Wl,-soname," & Maj_Version);
-
-            else
-               Version_Arg := new String'("-Wl,-soname," & Lib_Version);
-            end if;
-
-            if Is_Absolute_Path (Lib_Version) then
-               Utl.Gcc
-                 (Output_File => Lib_Version,
-                  Objects     => Ofiles,
-                  Options     => Options & Version_Arg,
-                  Driver_Name => Driver_Name,
-                  Options_2   => No_Argument_List);
-               Symbolic_Link_Needed := Lib_Version /= Lib_Path;
-
-            else
-               Utl.Gcc
-                 (Output_File => Lib_Dir & Directory_Separator & Lib_Version,
-                  Objects     => Ofiles,
-                  Options     => Options & Version_Arg,
-                  Driver_Name => Driver_Name,
-                  Options_2   => No_Argument_List);
-               Symbolic_Link_Needed :=
-                 Lib_Dir & Directory_Separator & Lib_Version /= Lib_Path;
-            end if;
-
-            if Symbolic_Link_Needed then
-               Create_Sym_Links
-                 (Lib_Path, Lib_Version, Lib_Dir, Maj_Version);
-            end if;
-         end;
-      end if;
-   end Build_Dynamic_Library;
-
-   --------------------
-   -- Is_Archive_Ext --
-   --------------------
-
-   function Is_Archive_Ext (Ext : String) return Boolean is
-   begin
-      return Ext = ".a" or else Ext = ".so";
-   end Is_Archive_Ext;
-
-begin
-   Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
-   Is_Archive_Ext_Ptr := Is_Archive_Ext'Access;
-end MLib.Tgt.Specific;