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