45 lines
1.1 KiB
Perl
45 lines
1.1 KiB
Perl
package platform::Windows::MSVC;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Carp;
|
|
|
|
use vars qw(@ISA);
|
|
|
|
require platform::Windows;
|
|
@ISA = qw(platform::Windows);
|
|
|
|
# Assume someone set @INC right before loading this module
|
|
use configdata;
|
|
|
|
sub pdbext { '.pdb' }
|
|
|
|
# It's possible that this variant of |sharedname| should be in Windows.pm.
|
|
# However, this variant was VC only in 1.1.1, so we maintain that here until
|
|
# further notice.
|
|
sub sharedname {
|
|
return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
|
|
"-",
|
|
$_[0]->shlib_version_as_filename(),
|
|
($target{multilib} // '' ),
|
|
($_[0]->shlibvariant() // ''));
|
|
}
|
|
|
|
sub staticlibpdb {
|
|
return platform::BASE::__concat($_[0]->staticname($_[1]), $_[0]->pdbext());
|
|
}
|
|
|
|
sub sharedlibpdb {
|
|
return platform::BASE::__concat($_[0]->sharedname($_[1]), $_[0]->pdbext());
|
|
}
|
|
|
|
sub dsopdb {
|
|
return platform::BASE::__concat($_[0]->dsoname($_[1]), $_[0]->pdbext());
|
|
}
|
|
|
|
sub binpdb {
|
|
return platform::BASE::__concat($_[0]->binname($_[1]), $_[0]->pdbext());
|
|
}
|
|
|
|
1;
|