Platform/Windows/BCC.pm

9   my ($self, %spec) = @_;
11   foreach my $path ( @{ $spec{includes} || [] },
12                      @{ $spec{perlinc}  || [] } ) {
16   %spec = $self->write_compiler_script(%spec)
17     if $spec{use_scripts};
20     $spec{cc}, '-c'         ,
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) = @_;
34   my $script = File::Spec->catfile( $spec{srcdir},
35                                     $spec{basename} . '.ccs' );
53       @spec{ qw(includes cflags optimize perlinc) } )
56   push @{$spec{includes}}, '@"' . $script . '"';
58   return %spec;
62   my ($self, %spec) = @_;
64   foreach my $path ( @{$spec{libpath}} ) {
68   push( @{$spec{startup}}, 'c0d32.obj' )
69     unless ( $spec{startup} && @{$spec{startup}} );
71   %spec = $self->write_linker_script(%spec)
72     if $spec{use_scripts};
75     $spec{ld}               ,
76     @{$spec{lddlflags}}     ,
77     @{$spec{libpath}}       ,
78     @{$spec{other_ldflags}} ,
79     @{$spec{startup}}       ,
80     @{$spec{objects}}       , ',',
81     $spec{output}           , ',',
82     $spec{map_file}         , ',',
83     $spec{libperl}          ,
84     @{$spec{perllibs}}      , ',',
85     $spec{def_file}
90   my ($self, %spec) = @_;
95   my $ld_script = File::Spec->catfile( $spec{srcdir},
96                                        $spec{basename} . '.lds' );
97   my $ld_libs   = File::Spec->catfile( $spec{srcdir},
98                                        $spec{basename} . '.lbs' );
112       @spec{ qw(lddlflags libpath other_ldflags startup objects) } )
120      (delete $spec{libperl}  || ''),
121     @{delete $spec{perllibs} || []},
124   push @{$spec{lddlflags}}, '@"' . $ld_script  . '"';
125   push @{$spec{perllibs}},  '@"' . $ld_libs    . '"';
127   return %spec;