1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
# $OpenBSD: Program.pm,v 1.5 2014/04/16 14:39:06 zhuk Exp $
# Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
# Copyright (c) 2012 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
use strict;
use warnings;
use feature qw(say);
use LT::Program;
package LT::Program;
sub link
{
return LT::Linker::Program->new->link(@_);
}
package LT::Linker::Program;
our @ISA = qw(LT::Linker);
use LT::Trace;
use LT::Util;
use File::Basename;
sub link
{
my ($linker, $self, $ltprog, $ltconfig, $dirs, $libs, $deplibs,
$libdirs, $parser, $gp) = @_;
tsay {"linking program (", ($gp->static ? "not " : ""),
"dynamically linking not-installed libtool libraries)"};
my $fpath = $self->{outfilepath};
my $RPdirs = $self->{RPdirs};
my $odir = dirname($fpath);
my $fname = basename($fpath);
my @libflags;
my @cmd;
my $dst;
my ($staticlibs, $finalorderedlibs, $args) =
$linker->common1($parser, $gp, $deplibs, $libdirs, $dirs, $libs);
my $symlinkdir = $ltdir;
if ($odir ne '.') {
$symlinkdir = "$odir/$ltdir";
}
mkdir $symlinkdir if ! -d $symlinkdir;
if ($parser->{seen_la_shared}) {
$dst = ($odir eq '.') ? "$ltdir/$fname" : "$odir/$ltdir/$fname";
$self->write_wrapper;
} else {
$dst = ($odir eq '.') ? $fname : "$odir/$fname";
}
tie(my @rpath_link, 'LT::UList');
# add libdirs to rpath if they are not in standard lib path
for my $l (@$libdirs) {
if (LT::OSConfig->is_search_dir($l)) {
push @rpath_link, $l;
} else {
push @$RPdirs, $l;
}
}
foreach my $k (keys %$libs) {
tprint {"key = $k - "};
my $r = ref($libs->{$k});
tsay {"ref = $r"};
$libs->create($k)->resolve_library($dirs, 1, $gp->static,
ref($self));
}
my @libobjects = values %$libs;
tsay {"libs:\n", join("\n", keys %$libs)};
tsay {"libfiles:\n", join("\n", map { $_->{fullpath} } @libobjects)};
$linker->create_symlinks($symlinkdir, $libs);
foreach my $k (@$finalorderedlibs) {
my $a = $libs->{$k}->{fullpath} || die "Link error: $k not found in \$libs\n";
if ($a =~ m/\.a$/) {
# don't make a -lfoo out of a static library
push @libflags, $a;
} else {
push @libflags, $linker->infer_libparameter($a, $k);
}
}
my @linkeropts = ();
if (!$ltconfig->noshared) {
for my $d (@$RPdirs) {
push(@linkeropts, '-rpath', $d);
}
for my $d (@rpath_link) {
push(@linkeropts, '-rpath-link', $d);
}
}
push(@linkeropts, $linker->export_symbols($ltconfig,
"$odir/$ltdir/$fname", $gp, @{$self->{objlist}}, @$staticlibs));
@cmd = @$ltprog;
push @cmd, '-o', $dst;
push @cmd, '-pthread' if $parser->{pthread};
push @cmd, @$args if $args;
push @cmd, @{$self->{objlist}} if @{$self->{objlist}};
push @cmd, @$staticlibs if @$staticlibs;
push @cmd, "-L$symlinkdir", @libflags if @libflags;
push @cmd, join(',', '-Wl', @linkeropts) if @linkeropts;
LT::Exec->link(@cmd);
}
1;
|
