1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
5 -- V X L I N K . L I N K --
9 -- Copyright (C) 2018, AdaCore --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING3. If not, go to --
19 -- http://www.gnu.org/licenses for a complete copy of the license. --
21 -- GNAT was originally developed by the GNAT team at New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc. --
24 ------------------------------------------------------------------------------
28 private with Ada
.Strings
.Unbounded
;
30 package VxLink
.Link
is
32 type VxLink_Linker
is private;
35 (Linker
: out VxLink_Linker
);
37 function Needs_CDtor
(Linker
: VxLink_Linker
) return Boolean;
39 function Partial_Object
(Linker
: VxLink_Linker
) return String;
41 function Namespace
(Linker
: VxLink_Linker
) return String;
43 procedure Do_Initial_Link
44 (Linker
: VxLink_Linker
);
46 procedure Do_Final_Link
47 (Linker
: VxLink_Linker
;
52 use Ada
.Strings
.Unbounded
;
54 type VxLink_Linker
is record
55 Args_Leading
: Arguments_List
;
56 Args_Trailing
: Arguments_List
;
57 Add_CDtors
: Boolean := True;
58 Dest_Object
: Unbounded_String
;
59 Dest_Base
: Unbounded_String
;
60 Partial_Obj
: Unbounded_String
;