gcc/ada/mlib-tgt-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-2007, 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 2,  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 COPYING.  If not, write --
  20 -- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
  21 -- Boston, MA 02110-1301, USA.                                              --
  22 --                                                                          --
  23 -- GNAT was originally developed  by the GNAT team at  New York University. --
  24 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  25 --                                                                          --
  26 ------------------------------------------------------------------------------
  27
  28 --  This is the LynxOS version of the body
  29
  30 package body MLib.Tgt.Specific is
  31
  32    --  Non default subprograms
  33
  34    procedure Build_Dynamic_Library
  35      (Ofiles       : Argument_List;
  36       Foreign      : Argument_List;
  37       Afiles       : Argument_List;
  38       Options      : Argument_List;
  39       Options_2    : Argument_List;
  40       Interfaces   : Argument_List;
  41       Lib_Filename : String;
  42       Lib_Dir      : String;
  43       Symbol_Data  : Symbol_Record;
  44       Driver_Name  : Name_Id := No_Name;
  45       Lib_Version  : String  := "";
  46       Auto_Init    : Boolean := False);
  47
  48    function DLL_Ext return String;
  49
  50    function Dynamic_Option return String;
  51
  52    function PIC_Option return String;
  53
  54    function Standalone_Library_Auto_Init_Is_Supported return Boolean;
  55
  56    function Support_For_Libraries return Library_Support;
  57
  58    ---------------------------
  59    -- Build_Dynamic_Library --
  60    ---------------------------
  61
  62    procedure Build_Dynamic_Library
  63      (Ofiles       : Argument_List;
  64       Foreign      : Argument_List;
  65       Afiles       : Argument_List;
  66       Options      : Argument_List;
  67       Options_2    : Argument_List;
  68       Interfaces   : Argument_List;
  69       Lib_Filename : String;
  70       Lib_Dir      : String;
  71       Symbol_Data  : Symbol_Record;
  72       Driver_Name  : Name_Id := No_Name;
  73       Lib_Version  : String  := "";
  74       Auto_Init    : Boolean := False)
  75    is
  76       pragma Unreferenced (Ofiles);
  77       pragma Unreferenced (Foreign);
  78       pragma Unreferenced (Afiles);
  79       pragma Unreferenced (Options);
  80       pragma Unreferenced (Options_2);
  81       pragma Unreferenced (Interfaces);
  82       pragma Unreferenced (Lib_Filename);
  83       pragma Unreferenced (Lib_Dir);
  84       pragma Unreferenced (Symbol_Data);
  85       pragma Unreferenced (Driver_Name);
  86       pragma Unreferenced (Lib_Version);
  87       pragma Unreferenced (Auto_Init);
  88
  89    begin
  90       null;
  91    end Build_Dynamic_Library;
  92
  93    -------------
  94    -- DLL_Ext --
  95    -------------
  96
  97    function DLL_Ext return String is
  98    begin
  99       return "";
 100    end DLL_Ext;
 101
 102    --------------------
 103    -- Dynamic_Option --
 104    --------------------
 105
 106    function Dynamic_Option return String is
 107    begin
 108       return "";
 109    end Dynamic_Option;
 110
 111    ----------------
 112    -- PIC_Option --
 113    ----------------
 114
 115    function PIC_Option return String is
 116    begin
 117       return "";
 118    end PIC_Option;
 119
 120    -----------------------------------------------
 121    -- Standalone_Library_Auto_Init_Is_Supported --
 122    -----------------------------------------------
 123
 124    function Standalone_Library_Auto_Init_Is_Supported return Boolean is
 125    begin
 126       return False;
 127    end Standalone_Library_Auto_Init_Is_Supported;
 128
 129    ---------------------------
 130    -- Support_For_Libraries --
 131    ---------------------------
 132
 133    function Support_For_Libraries return Library_Support is
 134    begin
 135       return Static_Only;
 136    end Support_For_Libraries;
 137
 138 begin
 139    Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
 140    DLL_Ext_Ptr := DLL_Ext'Access;
 141    Dynamic_Option_Ptr := Dynamic_Option'Access;
 142    PIC_Option_Ptr := PIC_Option'Access;
 143    Standalone_Library_Auto_Init_Is_Supported_Ptr :=
 144      Standalone_Library_Auto_Init_Is_Supported'Access;
 145    Support_For_Libraries_Ptr := Support_For_Libraries'Access;
 146 end MLib.Tgt.Specific;