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