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
|
package ExtUtils::Builder::Linker::PE::GCC;
$ExtUtils::Builder::Linker::PE::GCC::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} //= ['gcc'];
$args{export} //= 'all';
$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 => 85, value => ['-Wl,--enable-auto-image-base']);
if ($self->type eq 'shared-library' or $self->type eq 'loadable-object') {
push @ret, $self->new_argument(ranking => 10, value => ['--shared']);
}
if ($self->autoimport) {
push @ret, $self->new_argument(ranking => 85, value => ['-Wl,--enable-auto-import']);
}
if ($self->export eq 'all') {
push @ret, $self->new_argument(ranking => 85, value => ['-Wl,--export-all-symbols']);
}
elsif ($self->export eq 'some') {
my $export_file = $opts{export_file} // ($opts{basename} // File::Basename::basename($to)) . '.def';
push @ret, $self->new_argument(ranking => 20, value => [$export_file]);
}
return @ret;
}
1;
|
