[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/MemoryUtility/CompareObjSize.pl b/mcu/tools/MemoryUtility/CompareObjSize.pl
new file mode 100644
index 0000000..9fa575d
--- /dev/null
+++ b/mcu/tools/MemoryUtility/CompareObjSize.pl
@@ -0,0 +1,252 @@
+#!/usr/bin/perl
+#
+# Copyright Statement:
+# --------------------
+# This software is protected by Copyright and the information contained
+# herein is confidential. The software may not be copied and the information
+# contained herein may not be used or disclosed except with the written
+# permission of MediaTek Inc. (C) 2006
+#
+# BY OPENING THIS FILE, BUYER HEREBY UNEQUIVOCALLY ACKNOWLEDGES AND AGREES
+# THAT THE SOFTWARE/FIRMWARE AND ITS DOCUMENTATIONS ("MEDIATEK SOFTWARE")
+# RECEIVED FROM MEDIATEK AND/OR ITS REPRESENTATIVES ARE PROVIDED TO BUYER ON
+# AN "AS-IS" BASIS ONLY. MEDIATEK EXPRESSLY DISCLAIMS ANY AND ALL WARRANTIES,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT.
+# NEITHER DOES MEDIATEK PROVIDE ANY WARRANTY WHATSOEVER WITH RESPECT TO THE
+# SOFTWARE OF ANY THIRD PARTY WHICH MAY BE USED BY, INCORPORATED IN, OR
+# SUPPLIED WITH THE MEDIATEK SOFTWARE, AND BUYER AGREES TO LOOK ONLY TO SUCH
+# THIRD PARTY FOR ANY WARRANTY CLAIM RELATING THERETO. MEDIATEK SHALL ALSO
+# NOT BE RESPONSIBLE FOR ANY MEDIATEK SOFTWARE RELEASES MADE TO BUYER'S
+# SPECIFICATION OR TO CONFORM TO A PARTICULAR STANDARD OR OPEN FORUM.
+#
+# BUYER'S SOLE AND EXCLUSIVE REMEDY AND MEDIATEK'S ENTIRE AND CUMULATIVE
+# LIABILITY WITH RESPECT TO THE MEDIATEK SOFTWARE RELEASED HEREUNDER WILL BE,
+# AT MEDIATEK'S OPTION, TO REVISE OR REPLACE THE MEDIATEK SOFTWARE AT ISSUE,
+# OR REFUND ANY SOFTWARE LICENSE FEES OR SERVICE CHARGE PAID BY BUYER TO
+# MEDIATEK FOR SUCH MEDIATEK SOFTWARE AT ISSUE.
+#
+# THE TRANSACTION CONTEMPLATED HEREUNDER SHALL BE CONSTRUED IN ACCORDANCE
+# WITH THE LAWS OF THE STATE OF CALIFORNIA, USA, EXCLUDING ITS CONFLICT OF
+# LAWS PRINCIPLES. ANY DISPUTES, CONTROVERSIES OR CLAIMS ARISING THEREOF AND
+# RELATED THERETO SHALL BE SETTLED BY ARBITRATION IN SAN FRANCISCO, CA, UNDER
+# THE RULES OF THE INTERNATIONAL CHAMBER OF COMMERCE (ICC).
+#
+#*****************************************************************************
+#*
+#* Filename:
+#* ---------
+#* CompareObjSize.pl
+#*
+#* Project:
+#* --------
+#*
+#*
+#* Description:
+#* ------------
+#*
+#*
+#*
+#* Author:
+#* -------
+#* Carl Kao (mtk08237)
+#*
+#*------------------------------------------------------------------------------
+#* Upper this line, this part is controlled by PVCS VM. DO NOT MODIFY!!
+#*============================================================================
+#****************************************************************************/
+use strict;
+BEGIN { push @INC, "./" , '../', './tools/', './tools/MemoryUtility/' }
+use LinkerOutputParser;
+use File::Basename;
+
+&Usage() if ($#ARGV != 1);
+
+my ($file1, $file2) = @ARGV;
+$file1 =~ s/\\/\\\\/;
+$file2 =~ s/\\/\\\\/;
+
+my ($objs1_aref, $RO_1_href, $RW_1_href, $ZI_1_href, $objs2_aref, $RO_2_href, $RW_2_href, $ZI_2_href, $maxlength);
+
+if(($file1 =~ /\.lis$/) && ($file2 =~ /\.lis$/) or ($file1 =~ /\.map$/) && ($file2 =~ /\.map$/))
+{
+ ($objs1_aref, $RO_1_href, $RW_1_href, $ZI_1_href) = &GetAllOBJs($file1);
+ ($objs2_aref, $RO_2_href, $RW_2_href, $ZI_2_href) = &GetAllOBJs($file2);
+}
+else
+{
+ &Usage();
+}
+
+my @objs1 = @$objs1_aref;
+my @objs2 = @$objs2_aref;
+
+my %objs1 = map{$_ => 1} @objs1;
+my %objs2 = map{$_ => 1} @objs2;
+
+my @inter = grep {$objs1{$_}} @objs2;
+
+my %merge = map {$_ => 1} @objs1,@objs2;
+my @merge = sort keys (%merge);
+
+my @objs1_only = grep {!$objs2{$_}} @merge;
+my @objs2_only = grep {!$objs1{$_}} @merge;
+
+print "Compare result as below:\n";
+
+ printf "*" x ($maxlength+105) . "\n";
+ printf ("%-${maxlength}s%-35s%-35s\n"," ","Codebase1","Codebase2");
+ printf ("%-${maxlength}s%-35s%-35s%-35s\n","ObjectName","ROSize;RWSize;ZISize","ROSize;RWSize;ZISize","ROSize;RWSize;ZISize");
+ printf "*" x ($maxlength+105) . "\n";
+
+ my $total_RO_1 = 0;
+ my $total_RW_1 = 0;
+ my $total_ZI_1 = 0;
+ my $total_RO_2 = 0;
+ my $total_RW_2 = 0;
+ my $total_ZI_2 = 0;
+ my $total_RO_diff = 0;
+ my $total_RW_diff = 0;
+ my $total_ZI_diff = 0;
+ my $total_codebase1;
+ my $total_codebase2;
+ my $total_diff;
+
+ foreach my $obj(@merge)
+ {
+ $$RO_2_href{$obj} = 0 if(!defined $$RO_2_href{$obj});
+ $$RO_1_href{$obj} = 0 if(!defined $$RO_1_href{$obj});
+ $$RW_2_href{$obj} = 0 if(!defined $$RW_2_href{$obj});
+ $$RW_1_href{$obj} = 0 if(!defined $$RW_1_href{$obj});
+ $$ZI_2_href{$obj} = 0 if(!defined $$ZI_2_href{$obj});
+ $$ZI_1_href{$obj} = 0 if(!defined $$ZI_1_href{$obj});
+
+ my $RO_diff = $$RO_2_href{$obj} - $$RO_1_href{$obj};
+ my $RW_diff = $$RW_2_href{$obj} - $$RW_1_href{$obj};
+ my $ZI_diff = $$ZI_2_href{$obj} - $$ZI_1_href{$obj};
+
+ my $codebase1 = $$RO_1_href{$obj}.";".$$RW_1_href{$obj}.";".$$ZI_1_href{$obj};
+ my $codebase2 = $$RO_2_href{$obj}.";".$$RW_2_href{$obj}.";".$$ZI_2_href{$obj};
+ my $diff = $RO_diff.";".$RW_diff.";".$ZI_diff;
+
+ $total_RO_1 += $$RO_1_href{$obj};
+ $total_RW_1 += $$RW_1_href{$obj};
+ $total_ZI_1 += $$ZI_1_href{$obj};
+
+ $total_RO_2 += $$RO_2_href{$obj};
+ $total_RW_2 += $$RW_2_href{$obj};
+ $total_ZI_2 += $$ZI_2_href{$obj};
+
+ $total_RO_diff += $RO_diff;
+ $total_RW_diff += $RW_diff;
+ $total_ZI_diff += $ZI_diff;
+
+ $total_codebase1 = $total_RO_1.";".$total_RW_1.";".$total_ZI_1;
+ $total_codebase2 = $total_RO_2.";".$total_RW_2.";".$total_ZI_2;
+ $total_diff = $total_RO_diff.";".$total_RW_diff.";".$total_ZI_diff;
+
+ printf ("%-${maxlength}s%-35s%-35s%-35s\n",$obj,$codebase1,$codebase2,$diff);
+
+ }
+
+ printf ("%-${maxlength}s%-35s%-35s%-35s\n","Total",$total_codebase1,$total_codebase2,$total_diff);
+ printf "*" x ($maxlength+105) . "\n";
+
+
+sub GetAllOBJs
+{
+ my ($file) = @_;
+ my $symfile = $file;
+ my $exeregion_aref;
+
+ if($file =~ /\.map$/)
+ {
+ $symfile =~ s/map/sym/;
+ if(!-f $symfile)
+ {
+ my $file = basename($symfile);
+ my $dirname = dirname($symfile);
+ $symfile = $dirname."\/dummy_$file";
+ }
+ &LinkerOutputParser::FileParse($symfile);
+ }
+ &LinkerOutputParser::FileParse($file);
+ $exeregion_aref = &LinkerOutputParser::ListAllExeRegion(1);
+
+
+ my @objs = ();
+ my @uni_objs = ();
+ my %RO_Size;
+ my %RW_Size;
+ my %ZI_Size;
+ my %RWZI_Size;
+ my %count;
+
+ if (defined $exeregion_aref)
+ {
+ foreach my $temp(@$exeregion_aref)
+ {
+ my $obj_aref = &LinkerOutputParser::GetObjByExeRegion($temp);
+ if (defined $obj_aref)
+ {
+ foreach (@$obj_aref)
+ {
+ push(@objs, $_);
+ }
+ }
+ }
+ }
+
+ @uni_objs = grep { ++$count{ $_ } < 2; } @objs;
+ $maxlength = 0;
+
+ foreach my $obj(@uni_objs)
+ {
+ my ($nRO_Size, $nRW_Size, $nZI_Size) = (0,0,0);
+
+ if($file1 =~ /\.lis$/)
+ {
+ $nRO_Size = &LinkerOutputParser::ListObjSummaryInfo($obj, "RO Data") + &LinkerOutputParser::ListObjSummaryInfo($obj, "Code");
+ $nRW_Size = &LinkerOutputParser::ListObjSummaryInfo($obj, "RW Data");
+ $nZI_Size = &LinkerOutputParser::ListObjSummaryInfo($obj, "ZI Data");
+ $RO_Size{$obj} = $nRO_Size;
+ $RW_Size{$obj} = $nRW_Size;
+ $ZI_Size{$obj} = $nZI_Size;
+ $maxlength = $maxlength > length($obj) ? $maxlength:length($obj);
+ }
+ elsif($file1 =~ /\.map$/)
+ {
+ $nRO_Size = &LinkerOutputParser::ListObjSummaryInfo($obj, "RO");
+ $nRW_Size = &LinkerOutputParser::ListObjSummaryInfo($obj, "RW");
+ $nZI_Size = &LinkerOutputParser::ListObjSummaryInfo($obj, "ZI");
+ $RO_Size{$obj} = $nRO_Size;
+ $RW_Size{$obj} = $nRW_Size;
+ $ZI_Size{$obj} = $nZI_Size;
+ $maxlength = $maxlength > length($obj) ? $maxlength:length($obj);
+ }
+ }
+
+ $maxlength += 10;
+ return (\@uni_objs, \%RO_Size, \%RW_Size, \%ZI_Size);
+}
+
+
+sub Usage
+{
+ print <<"__EOFUSAGE";
+
+usage: perl CompareobjrarySize.pl lis/map_file_path1 lis/map_file/path2
+
+lis/map_file_path1: lis/map file path for codebase1 you want to compare
+lis/map_file_path2: lis/map file path for codebase2 you want to compare
+
+lis/map_file_path1, lis/map_file_path2 should be the same file type (both .lis file or both .map file, comparison between .lis and .map is not supported)
+
+e.g. perl CompareobjrarySize.pl "E:\\mtk80506\\MT6280_EVB_R7R8_PCB01_hspa_MT6280_S00\\MT6280_EVB_R7R8_PCB01_hspa_MT6280_S00.map" "E:\\mtk80506\\MT6280_EVB_R7R8_PCB01_hspa_MT6280_S00.map"
+
+Note:
+For GCC linker output, there should be corresponding .sym file in the same folder of .map file.
+
+__EOFUSAGE
+ exit 1;
+}