1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
6 -- (Default Version) --
11 -- Copyright (C) 2001, Ada Core Technologies, Inc. --
13 -- GNAT is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNAT; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
22 -- MA 02111-1307, USA. --
24 -- GNAT was originally developed by the GNAT team at New York University. --
25 -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
27 ------------------------------------------------------------------------------
29 -- This is the default version which does not support libraries.
30 -- All subprograms are dummies, because they are never called,
31 -- except Libraries_Are_Supported which returns False.
33 package body MLib
.Tgt
is
35 pragma Warnings
(Off
); -- stop warnings on unreferenced formals
41 function Archive_Ext
return String is
50 function Base_Option
return String is
55 ---------------------------
56 -- Build_Dynamic_Library --
57 ---------------------------
59 procedure Build_Dynamic_Library
60 (Ofiles
: Argument_List
;
61 Foreign
: Argument_List
;
62 Afiles
: Argument_List
;
63 Options
: Argument_List
;
64 Lib_Filename
: String;
66 Lib_Address
: String := "";
67 Lib_Version
: String := "";
68 Relocatable
: Boolean := False)
72 end Build_Dynamic_Library
;
78 procedure Copy_ALI_Files
86 -------------------------
87 -- Default_DLL_Address --
88 -------------------------
90 function Default_DLL_Address
return String is
93 end Default_DLL_Address
;
99 function DLL_Ext
return String is
108 function Dynamic_Option
return String is
117 function Is_Object_Ext
(Ext
: String) return Boolean is
126 function Is_C_Ext
(Ext
: String) return Boolean is
135 function Is_Archive_Ext
(Ext
: String) return Boolean is
144 function Libgnat
return String is
149 -----------------------------
150 -- Libraries_Are_Supported --
151 -----------------------------
153 function Libraries_Are_Supported
return Boolean is
156 end Libraries_Are_Supported
;
158 --------------------------------
159 -- Linker_Library_Path_Option --
160 --------------------------------
162 function Linker_Library_Path_Option
168 end Linker_Library_Path_Option
;
174 function Object_Ext
return String is
183 function PIC_Option
return String is