Subversion Repositories openrisc_me

------------------------------------------------------------------------------

--                                                                          --

--                         GNAT COMPILER COMPONENTS                         --

--                                                                          --

--                    M L I B . T G T . S P E C I F I C                     --

--                            (VxWorks Version)                             --

--                                                                          --

--                                 B o d y                                  --

--                                                                          --

--          Copyright (C) 2003-2008, 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 VxWorks version of the body

with Sdefault;

package body MLib.Tgt.Specific is

   -----------------------

   -- Local Subprograms --

   -----------------------

   function Get_Target_Suffix return String;

   --  Returns the required suffix for some utilities

   --  (such as ar and ranlib) that depend on the real target.

   --  Non default subprograms

   function Archive_Builder return String;

   function Archive_Indexer return String;

   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 DLL_Ext return String;

   function Dynamic_Option return String;

   function Library_Major_Minor_Id_Supported return Boolean;

   function PIC_Option return String;

   function Standalone_Library_Auto_Init_Is_Supported return Boolean;

   function Support_For_Libraries return Library_Support;

   ---------------------

   -- Archive_Builder --

   ---------------------

   function Archive_Builder return String is

   begin

      return "ar" & Get_Target_Suffix;

   end Archive_Builder;

   ---------------------

   -- Archive_Indexer --

   ---------------------

   function Archive_Indexer return String is

   begin

      return "ranlib" & Get_Target_Suffix;

   end Archive_Indexer;

   ---------------------------

   -- 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 (Ofiles);

      pragma Unreferenced (Options);

      pragma Unreferenced (Interfaces);

      pragma Unreferenced (Lib_Filename);

      pragma Unreferenced (Lib_Dir);

      pragma Unreferenced (Symbol_Data);

      pragma Unreferenced (Driver_Name);

      pragma Unreferenced (Lib_Version);

      pragma Unreferenced (Auto_Init);

   begin

      null;

   end Build_Dynamic_Library;

   -------------

   -- DLL_Ext --

   -------------

   function DLL_Ext return String is

   begin

      return "";

   end DLL_Ext;

   --------------------

   -- Dynamic_Option --

   --------------------

   function Dynamic_Option return String is

   begin

      return "";

   end Dynamic_Option;

   -----------------------------

   -- Get_Target_Suffix --

   -----------------------------

   function Get_Target_Suffix return String is

      Target_Name : constant String := Sdefault.Target_Name.all;

      Index       : Positive   := Target_Name'First;

   begin

      while Index < Target_Name'Last

        and then Target_Name (Index + 1) /= '-'

      loop

         Index := Index + 1;

      end loop;

      if Target_Name (Target_Name'First .. Index) = "m68k" then

         return "68k";

      elsif Target_Name (Target_Name'First .. Index) = "mips" then

         return "mips";

      elsif Target_Name (Target_Name'First .. Index) = "powerpc" then

         return "ppc";

      elsif Target_Name (Target_Name'First .. Index) = "sparc" then

         return "sparc";

      elsif Target_Name (Target_Name'First .. Index) = "sparc64" then

         return "sparc64";

      elsif Target_Name (Target_Name'First .. Index) = "xscale" then

         return "arm";

      elsif Target_Name (Target_Name'First .. Index) = "i586" then

         return "pentium";

      else

         return "";

      end if;

   end Get_Target_Suffix;

   --------------------------------------

   -- Library_Major_Minor_Id_Supported --

   --------------------------------------

   function Library_Major_Minor_Id_Supported return Boolean is

   begin

      return False;

   end Library_Major_Minor_Id_Supported;

   ----------------

   -- PIC_Option --

   ----------------

   function PIC_Option return String is

   begin

      return "";

   end PIC_Option;

   -----------------------------------------------

   -- Standalone_Library_Auto_Init_Is_Supported --

   -----------------------------------------------

   function Standalone_Library_Auto_Init_Is_Supported return Boolean is

   begin

      return False;

   end Standalone_Library_Auto_Init_Is_Supported;

   ---------------------------

   -- Support_For_Libraries --

   ---------------------------

   function Support_For_Libraries return Library_Support is

   begin

      return Static_Only;

   end Support_For_Libraries;

begin

   Archive_Builder_Ptr := Archive_Builder'Access;

   Archive_Indexer_Ptr := Archive_Indexer'Access;

   Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;

   DLL_Ext_Ptr := DLL_Ext'Access;

   Dynamic_Option_Ptr := Dynamic_Option'Access;

   PIC_Option_Ptr := PIC_Option'Access;

   Library_Major_Minor_Id_Supported_Ptr :=

                                Library_Major_Minor_Id_Supported'Access;

   Standalone_Library_Auto_Init_Is_Supported_Ptr :=

     Standalone_Library_Auto_Init_Is_Supported'Access;

   Support_For_Libraries_Ptr := Support_For_Libraries'Access;

end MLib.Tgt.Specific;