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
|
package ExtUtils::Builder::Linker::XCOFF;
$ExtUtils::Builder::Linker::XCOFF::VERSION = '0.032';
use strict;
use warnings;
use parent qw/ExtUtils::Builder::Linker::Unixy ExtUtils::Builder::Linker::COFF/;
use File::Basename ();
sub _init {
my ($self, %args) = @_;
$args{ld} //= ['ld'];
$self->ExtUtils::Builder::Linker::Unixy::_init(%args);
$self->ExtUtils::Builder::Linker::COFF::_init(%args);
return;
}
sub linker_flags {
my ($self, $from, $to, %opts) = @_;
my @ret = $self->SUPER::linker_flags($from, $to, %opts);
push @ret, $self->new_argument(ranking => 20, value => ['-bnoautoimp']) if !$self->autoimport;
my $type = $self->type;
if ($type eq 'shared-library' or $type eq 'loadable-object') {
if ($self->export eq 'some') {
my $basename = $opts{basename} // File::Basename::basename($to);
push @ret, $self->new_arguments(ranking => 20, value => ["-bE:$basename.exp"]);
}
elsif ($self->export eq 'all') {
push @ret, $self->new_argument(ranking => 20, value => ['-bexpfull']);
}
}
return @ret;
}
1;
|
