1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
5 -- M L I B . T G T . S P E C I F I C --
10 -- Copyright (C) 2003-2008, AdaCore --
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. --
22 -- GNAT was originally developed by the GNAT team at New York University. --
23 -- Extensive contributions were provided by Ada Core Technologies Inc. --
25 ------------------------------------------------------------------------------
27 -- This is the IRIX version of the body
32 with Output; use Output;
34 package body MLib.Tgt.Specific is
36 -- Non default subprogram
38 procedure Build_Dynamic_Library
39 (Ofiles : Argument_List;
40 Options : Argument_List;
41 Interfaces : Argument_List;
42 Lib_Filename : String;
44 Symbol_Data : Symbol_Record;
45 Driver_Name : Name_Id := No_Name;
46 Lib_Version : String := "";
47 Auto_Init : Boolean := False);
49 function Is_Archive_Ext (Ext : String) return Boolean;
51 ---------------------------
52 -- Build_Dynamic_Library --
53 ---------------------------
55 procedure Build_Dynamic_Library
56 (Ofiles : Argument_List;
57 Options : Argument_List;
58 Interfaces : Argument_List;
59 Lib_Filename : String;
61 Symbol_Data : Symbol_Record;
62 Driver_Name : Name_Id := No_Name;
63 Lib_Version : String := "";
64 Auto_Init : Boolean := False)
66 pragma Unreferenced (Interfaces);
67 pragma Unreferenced (Symbol_Data);
68 pragma Unreferenced (Auto_Init);
70 Lib_File : constant String :=
71 "lib" & MLib.Fil.Append_To (Lib_Filename, DLL_Ext);
73 Lib_Path : constant String :=
74 Lib_Dir & Directory_Separator & Lib_File;
76 Version_Arg : String_Access;
77 Symbolic_Link_Needed : Boolean := False;
79 N_Options : Argument_List := Options;
80 Options_Last : Natural := N_Options'Last;
81 -- After moving -lxxx to Options_2, N_Options up to index Options_Last
82 -- will contain the Options to pass to MLib.Utl.Gcc.
84 Real_Options_2 : Argument_List (1 .. Options'Length);
85 Real_Options_2_Last : Natural := 0;
86 -- Real_Options_2 up to index Real_Options_2_Last will contain the
87 -- Options_2 to pass to MLib.Utl.Gcc.
90 if Opt.Verbose_Mode then
91 Write_Str ("building relocatable shared library ");
92 Write_Line (Lib_Path);
95 -- Move all -lxxx to Options_2
98 Index : Natural := N_Options'First;
102 while Index <= Options_Last loop
103 Arg := N_Options (Index);
106 and then Arg (Arg'First .. Arg'First + 1) = "-l"
108 Real_Options_2_Last := Real_Options_2_Last + 1;
109 Real_Options_2 (Real_Options_2_Last) := Arg;
110 N_Options (Index .. Options_Last - 1) :=
111 N_Options (Index + 1 .. Options_Last);
112 Options_Last := Options_Last - 1;
120 if Lib_Version = "" then
122 (Output_File => Lib_Path,
124 Options => N_Options (N_Options'First .. Options_Last),
125 Driver_Name => Driver_Name,
126 Options_2 => Real_Options_2 (1 .. Real_Options_2_Last));
130 Maj_Version : constant String :=
131 Major_Id_Name (Lib_File, Lib_Version);
133 if Maj_Version'Length /= 0 then
134 Version_Arg := new String'("-Wl,-soname," & Maj_Version);
137 Version_Arg := new String'("-Wl,-soname," & Lib_Version);
140 if Is_Absolute_Path (Lib_Version) then
142 (Output_File => Lib_Version,
144 Options => N_Options (N_Options'First .. Options_Last) &
146 Driver_Name => Driver_Name,
147 Options_2 => Real_Options_2 (1 .. Real_Options_2_Last));
148 Symbolic_Link_Needed := Lib_Version /= Lib_Path;
152 (Output_File => Lib_Dir & Directory_Separator & Lib_Version,
154 Options => N_Options (N_Options'First .. Options_Last) &
156 Driver_Name => Driver_Name,
157 Options_2 => Real_Options_2 (1 .. Real_Options_2_Last));
158 Symbolic_Link_Needed :=
159 Lib_Dir & Directory_Separator & Lib_Version /= Lib_Path;
162 if Symbolic_Link_Needed then
164 (Lib_Path, Lib_Version, Lib_Dir, Maj_Version);
168 end Build_Dynamic_Library;
174 function Is_Archive_Ext (Ext : String) return Boolean is
176 return Ext = ".a" or else Ext = ".so";
180 Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
181 Is_Archive_Ext_Ptr := Is_Archive_Ext'Access;
182 end MLib.Tgt.Specific;