34 lines
654 B
Perl
34 lines
654 B
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' }
|
||
|
|
|
||
|
|
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;
|