Lines Matching refs:spec
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;