Platform/Windows/GCC.pm

9   my ($self, %spec) = @_;
11   foreach my $path ( @{ $spec{includes} || [] },
12                      @{ $spec{perlinc}  || [] } ) {
17   my @cc = split / (?=-)/, $spec{cc};
21     @{$spec{includes}}      ,
22     @{$spec{cflags}}        ,
23     @{$spec{optimize}}      ,
24     @{$spec{defines}}       ,
25     @{$spec{perlinc}}       ,
26     '-o', $spec{output}     ,
27     $spec{source}           ,
32   my ($self, %spec) = @_;
38   $spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/;
40   unshift( @{$spec{other_ldflags}}, '-nostartfiles' )
41     if ( $spec{startup} && @{$spec{startup}} );
43   %spec = $self->write_linker_script(%spec)
44     if $spec{use_scripts};
46   foreach my $path ( @{$spec{libpath}} ) {
55     $DLLTOOL, '--def'        , $spec{def_file},
56               '--output-exp' , $spec{explib}
60   my @ld = split / (?=-)/, $spec{ld};
64     '-o', $spec{output}       ,
65     "-Wl,--base-file,$spec{base_file}"   ,
67     @{$spec{lddlflags}}       ,
68     @{$spec{libpath}}         ,
69     @{$spec{startup}}         ,
70     @{$spec{objects}}         ,
71     @{$spec{other_ldflags}}   ,
72     $spec{libperl}            ,
73     @{$spec{perllibs}}        ,
74     $spec{explib}             ,
75     $spec{map_file} ? ('-Map', $spec{map_file}) : ''
79     $DLLTOOL, '--def'        , $spec{def_file},
80               '--output-exp' , $spec{explib},
81               '--base-file'  , $spec{base_file}
86     '-o', $spec{output}       ,
88     @{$spec{lddlflags}}       ,
89     @{$spec{libpath}}         ,
90     @{$spec{startup}}         ,
91     @{$spec{objects}}         ,
92     @{$spec{other_ldflags}}   ,
93     $spec{libperl}            ,
94     @{$spec{perllibs}}        ,
95     $spec{explib}             ,
96     $spec{map_file} ? ('-Map', $spec{map_file}) : ''
103   my ($self, %spec) = @_;
105   my $script = File::Spec->catfile( $spec{srcdir},
106                                     $spec{basename} . '.lds' );
116     for @{delete $spec{libpath} || []};
121   if ( $spec{startup} && @{$spec{startup}} ) {
122     print $SCRIPT 'STARTUP(' . shift( @{$spec{startup}} ) . ")\n";
123     unshift @{$spec{objects}},
124       @{delete $spec{startup} || []};
128     @{delete $spec{objects}  || []}
132      (delete $spec{libperl}  || ''),
133     @{delete $spec{perllibs} || []},
137   unshift @{$spec{other_ldflags}}, '"' . $script . '"';
139   return %spec;