gcc/ada/mlib-tgt-specific-lynxos.adb

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --                    M L I B . T G T . S P E C I F I C                     --
   6 --                             (LynxOS Version)                             --
   7 --                                                                          --
   8 --                                 B o d y                                  --
   9 --                                                                          --
  10 --          Copyright (C) 2003-2008, Free Software Foundation, Inc.         --
  11 --                                                                          --
  12 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  13 -- terms of the  GNU General Public License as published  by the Free Soft- --
  14 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  15 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  16 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  17 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  18 -- for  more details.  You should have  received  a copy of the GNU General --
  19 -- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
  20 -- http://www.gnu.org/licenses for a complete copy of the license.          --
  21 --                                                                          --
  22 -- GNAT was originally developed  by the GNAT team at  New York University. --
  23 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  24 --                                                                          --
  25 ------------------------------------------------------------------------------
  26
  27 --  This is the LynxOS version of the body
  28
  29 package body MLib.Tgt.Specific is
  30
  31    --  Non default subprograms
  32
  33    procedure Build_Dynamic_Library
  34      (Ofiles       : Argument_List;
  35       Options      : Argument_List;
  36       Interfaces   : Argument_List;
  37       Lib_Filename : String;
  38       Lib_Dir      : String;
  39       Symbol_Data  : Symbol_Record;
  40       Driver_Name  : Name_Id := No_Name;
  41       Lib_Version  : String  := "";
  42       Auto_Init    : Boolean := False);
  43
  44    function DLL_Ext return String;
  45
  46    function Dynamic_Option return String;
  47
  48    function PIC_Option return String;
  49
  50    function Library_Major_Minor_Id_Supported return Boolean;
  51
  52    function Standalone_Library_Auto_Init_Is_Supported return Boolean;
  53
  54    function Support_For_Libraries return Library_Support;
  55
  56    ---------------------------
  57    -- Build_Dynamic_Library --
  58    ---------------------------
  59
  60    procedure Build_Dynamic_Library
  61      (Ofiles       : Argument_List;
  62       Options      : Argument_List;
  63       Interfaces   : Argument_List;
  64       Lib_Filename : String;
  65       Lib_Dir      : String;
  66       Symbol_Data  : Symbol_Record;
  67       Driver_Name  : Name_Id := No_Name;
  68       Lib_Version  : String  := "";
  69       Auto_Init    : Boolean := False)
  70    is
  71       pragma Unreferenced (Ofiles);
  72       pragma Unreferenced (Options);
  73       pragma Unreferenced (Interfaces);
  74       pragma Unreferenced (Lib_Filename);
  75       pragma Unreferenced (Lib_Dir);
  76       pragma Unreferenced (Symbol_Data);
  77       pragma Unreferenced (Driver_Name);
  78       pragma Unreferenced (Lib_Version);
  79       pragma Unreferenced (Auto_Init);
  80
  81    begin
  82       null;
  83    end Build_Dynamic_Library;
  84
  85    -------------
  86    -- DLL_Ext --
  87    -------------
  88
  89    function DLL_Ext return String is
  90    begin
  91       return "";
  92    end DLL_Ext;
  93
  94    --------------------
  95    -- Dynamic_Option --
  96    --------------------
  97
  98    function Dynamic_Option return String is
  99    begin
 100       return "";
 101    end Dynamic_Option;
 102
 103    --------------------------------------
 104    -- Library_Major_Minor_Id_Supported --
 105    --------------------------------------
 106
 107    function Library_Major_Minor_Id_Supported return Boolean is
 108    begin
 109       return False;
 110    end Library_Major_Minor_Id_Supported;
 111
 112    ----------------
 113    -- PIC_Option --
 114    ----------------
 115
 116    function PIC_Option return String is
 117    begin
 118       return "";
 119    end PIC_Option;
 120
 121    -----------------------------------------------
 122    -- Standalone_Library_Auto_Init_Is_Supported --
 123    -----------------------------------------------
 124
 125    function Standalone_Library_Auto_Init_Is_Supported return Boolean is
 126    begin
 127       return False;
 128    end Standalone_Library_Auto_Init_Is_Supported;
 129
 130    ---------------------------
 131    -- Support_For_Libraries --
 132    ---------------------------
 133
 134    function Support_For_Libraries return Library_Support is
 135    begin
 136       return Static_Only;
 137    end Support_For_Libraries;
 138
 139 begin
 140    Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
 141    DLL_Ext_Ptr := DLL_Ext'Access;
 142    Dynamic_Option_Ptr := Dynamic_Option'Access;
 143    Library_Major_Minor_Id_Supported_Ptr :=
 144                                 Library_Major_Minor_Id_Supported'Access;
 145    PIC_Option_Ptr := PIC_Option'Access;
 146    Standalone_Library_Auto_Init_Is_Supported_Ptr :=
 147      Standalone_Library_Auto_Init_Is_Supported'Access;
 148    Support_For_Libraries_Ptr := Support_For_Libraries'Access;
 149 end MLib.Tgt.Specific;