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
29package 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
139begin
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;
149end MLib.Tgt.Specific;
150