Home | History | Annotate | Line # | Download | only in Windows 
      1 package platform::Windows::MSVC;
      2 
      3 use strict;
      4 use warnings;
      5 use Carp;
      6 
      7 use vars qw(@ISA);
      8 
      9 require platform::Windows;
     10 @ISA = qw(platform::Windows);
     11 
     12 # Assume someone set @INC right before loading this module
     13 use configdata;
     14 
     15 sub pdbext              { '.pdb' }
     16 
     17 # It's possible that this variant of |sharedname| should be in Windows.pm.
     18 # However, this variant was VC only in 1.1.1, so we maintain that here until
     19 # further notice.
     20 sub sharedname {
     21     return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
     22                                     "-",
     23                                     $_[0]->shlib_version_as_filename(),
     24                                     ($target{multilib} // '' ),
     25                                     ($_[0]->shlibvariant() // ''));
     26 }
     27 
     28 sub staticlibpdb {
     29     return platform::BASE::__concat($_[0]->staticname($_[1]), $_[0]->pdbext());
     30 }
     31 
     32 sub sharedlibpdb {
     33     return platform::BASE::__concat($_[0]->sharedname($_[1]), $_[0]->pdbext());
     34 }
     35 
     36 sub dsopdb {
     37     return platform::BASE::__concat($_[0]->dsoname($_[1]), $_[0]->pdbext());
     38 }
     39 
     40 sub binpdb {
     41     return platform::BASE::__concat($_[0]->binname($_[1]), $_[0]->pdbext());
     42 }
     43 
     44 1;
     45