sbsv1_os/e32toolp/platform/cl_arm.pm
branchRCL_3
changeset 73 22bdd8a90cc4
parent 18 99082257a271
equal deleted inserted replaced
62:7416fe50a180 73:22bdd8a90cc4
    73 use Armutl;
    73 use Armutl;
    74 use RVCT_plat2set;
    74 use RVCT_plat2set;
    75 use cl_generic;
    75 use cl_generic;
    76 use E32env;
    76 use E32env;
    77 use Genutl;
    77 use Genutl;
    78 use strict;
       
    79 
    78 
    80 use constant NOCOMPRESSIONMETHOD => 0;
    79 use constant NOCOMPRESSIONMETHOD => 0;
    81 use constant INFLATECOMPRESSIONMETHOD => 1;
    80 use constant INFLATECOMPRESSIONMETHOD => 1;
    82 use constant BYTEPAIRCOMPRESSIONMETHOD => 2;
    81 use constant BYTEPAIRCOMPRESSIONMETHOD => 2;
    83 
    82 
   458 	$PlatOpt{Arm} = $ComputeCompilerOpts;
   457 	$PlatOpt{Arm} = $ComputeCompilerOpts;
   459 
   458 
   460 	my $InterWorking = ($ABI eq 'ARMV4') ? "" : "--inter";
   459 	my $InterWorking = ($ABI eq 'ARMV4') ? "" : "--inter";
   461 
   460 
   462 	$Archive=$ToolPrefix.'armar';
   461 	$Archive=$ToolPrefix.'armar';
   463 	$Link=$ToolPrefix."armlink ${oP}diag_suppress 6331,6780 ";
   462 	$Link=$ToolPrefix."armlink ${oP}diag_suppress 6331,6780,6319 --keep *(.init) --keep *(.fini) --keep *(.init_array) --keep *(.fini_array)";
   464 	$Objcopy=$ToolPrefix.'objcopy';
   463 	$Objcopy=$ToolPrefix.'objcopy';
   465 
   464 
   466 	&Generic_Header(0,$Makecmd);	# define standard things using absolute paths
   465 	&Generic_Header(0,$Makecmd);	# define standard things using absolute paths
   467 		 
   466 		 
   468 	if ($Makecmd eq "nmake") {
   467 	if ($Makecmd eq "nmake") {