Platform/Windows/MSVC.pm

14   my ($self, %spec) = @_;
16   foreach my $path ( @{ $spec{includes} || [] },
17                      @{ $spec{perlinc}  || [] } ) {
21   %spec = $self->write_compiler_script(%spec)
22     if $spec{use_scripts};
25     $spec{cc},'-nologo','-c',
26     @{$spec{includes}}      ,
27     @{$spec{cflags}}        ,
28     @{$spec{optimize}}      ,
29     @{$spec{defines}}       ,
30     @{$spec{perlinc}}       ,
31     "-Fo$spec{output}"      ,
32     $spec{source}           ,
37   my ($self, %spec) = @_;
39   my $script = File::Spec->catfile( $spec{srcdir},
40                                     $spec{basename} . '.ccs' );
52       @spec{ qw(includes cflags optimize defines perlinc) } )
55   push @{$spec{includes}}, '@"' . $script . '"';
57   return %spec;
61   my ($self, %spec) = @_;
64   foreach my $path ( @{$spec{libpath}} ) {
68   my $output = $spec{output};
69   my $manifest = $spec{manifest};
71   $spec{def_file}  &&= '-def:'      . $spec{def_file};
72   $spec{output}    &&= '-out:'      . $spec{output};
73   $spec{manifest}  &&= '-manifest ' . $spec{manifest};
74   $spec{implib}    &&= '-implib:'   . $spec{implib};
75   $spec{map_file}  &&= '-map:'      . $spec{map_file};
77   %spec = $self->write_linker_script(%spec)
78     if $spec{use_scripts};
83     $spec{ld}               ,
84     @{$spec{lddlflags}}     ,
85     @{$spec{libpath}}       ,
86     @{$spec{other_ldflags}} ,
87     @{$spec{startup}}       ,
88     @{$spec{objects}}       ,
89     $spec{map_file}         ,
90     $spec{libperl}          ,
91     @{$spec{perllibs}}      ,
92     $spec{def_file}         ,
93     $spec{implib}           ,
94     $spec{output}           ,
99     'if', 'exist', $manifest, 'mt', '-nologo', $spec{manifest}, '-outputresource:' . "$output;2"
106   my ($self, %spec) = @_;
108   my $script = File::Spec->catfile( $spec{srcdir},
109                                     $spec{basename} . '.lds' );
122       @spec{ qw(lddlflags libpath other_ldflags
127   push @{$spec{lddlflags}}, '@"' . $script . '"';
129   return %spec;