gcc/ada/mlib-tgt.adb

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --                             M L I B . T G T                              --
   6 --                            (Default Version)                             --
   7 --                                                                          --
   8 --                                 B o d y                                  --
   9 --                                                                          --
  10 --                            $Revision$
  11 --                                                                          --
  12 --              Copyright (C) 2001, Ada Core Technologies, Inc.             --
  13 --                                                                          --
  14 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  15 -- terms of the  GNU General Public License as published  by the Free Soft- --
  16 -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  17 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  18 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  19 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  20 -- for  more details.  You should have  received  a copy of the GNU General --
  21 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  22 -- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
  23 -- MA 02111-1307, USA.                                                      --
  24 --                                                                          --
  25 -- GNAT was originally developed  by the GNAT team at  New York University. --
  26 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
  27 --                                                                          --
  28 ------------------------------------------------------------------------------
  29
  30 --  This is the default version which does not support libraries.
  31 --  All subprograms are dummies, because they are never called,
  32 --  except Libraries_Are_Supported which returns False.
  33
  34 package body MLib.Tgt is
  35
  36    pragma Warnings (Off); -- stop warnings on unreferenced formals
  37
  38    -----------------
  39    -- Archive_Ext --
  40    -----------------
  41
  42    function Archive_Ext return  String is
  43    begin
  44       return  "";
  45    end Archive_Ext;
  46
  47    -----------------
  48    -- Base_Option --
  49    -----------------
  50
  51    function Base_Option return String is
  52    begin
  53       return "";
  54    end Base_Option;
  55
  56    ---------------------------
  57    -- Build_Dynamic_Library --
  58    ---------------------------
  59
  60    procedure Build_Dynamic_Library
  61      (Ofiles       : Argument_List;
  62       Foreign      : Argument_List;
  63       Afiles       : Argument_List;
  64       Options      : Argument_List;
  65       Lib_Filename : String;
  66       Lib_Dir      : String;
  67       Lib_Address  : String  := "";
  68       Lib_Version  : String  := "";
  69       Relocatable  : Boolean := False)
  70    is
  71    begin
  72       null;
  73    end Build_Dynamic_Library;
  74
  75    --------------------
  76    -- Copy_ALI_Files --
  77    --------------------
  78
  79    procedure Copy_ALI_Files
  80      (From : Name_Id;
  81       To   : Name_Id)
  82    is
  83    begin
  84       null;
  85    end Copy_ALI_Files;
  86
  87    -------------------------
  88    -- Default_DLL_Address --
  89    -------------------------
  90
  91    function Default_DLL_Address return String is
  92    begin
  93       return "";
  94    end Default_DLL_Address;
  95
  96    -------------
  97    -- DLL_Ext --
  98    -------------
  99
 100    function DLL_Ext return String is
 101    begin
 102       return  "";
 103    end DLL_Ext;
 104
 105    --------------------
 106    -- Dynamic_Option --
 107    --------------------
 108
 109    function Dynamic_Option return String is
 110    begin
 111       return  "";
 112    end Dynamic_Option;
 113
 114    -------------------
 115    -- Is_Object_Ext --
 116    -------------------
 117
 118    function Is_Object_Ext (Ext : String) return Boolean is
 119    begin
 120       return False;
 121    end Is_Object_Ext;
 122
 123    --------------
 124    -- Is_C_Ext --
 125    --------------
 126
 127    function Is_C_Ext (Ext : String) return Boolean is
 128    begin
 129       return False;
 130    end Is_C_Ext;
 131
 132    --------------------
 133    -- Is_Archive_Ext --
 134    --------------------
 135
 136    function Is_Archive_Ext (Ext : String) return Boolean is
 137    begin
 138       return False;
 139    end Is_Archive_Ext;
 140
 141    -------------
 142    -- Libgnat --
 143    -------------
 144
 145    function Libgnat return String is
 146    begin
 147       return "libgnat.a";
 148    end Libgnat;
 149
 150    -----------------------------
 151    -- Libraries_Are_Supported --
 152    -----------------------------
 153
 154    function Libraries_Are_Supported return Boolean is
 155    begin
 156       return False;
 157    end Libraries_Are_Supported;
 158
 159    --------------------------------
 160    -- Linker_Library_Path_Option --
 161    --------------------------------
 162
 163    function Linker_Library_Path_Option
 164      (Directory : String)
 165       return      String_Access
 166    is
 167    begin
 168       return null;
 169    end Linker_Library_Path_Option;
 170
 171    ----------------
 172    -- Object_Ext --
 173    ----------------
 174
 175    function Object_Ext return String is
 176    begin
 177       return  "";
 178    end Object_Ext;
 179
 180    ----------------
 181    -- PIC_Option --
 182    ----------------
 183
 184    function PIC_Option return String is
 185    begin
 186       return  "";
 187    end PIC_Option;
 188
 189 end MLib.Tgt;