blob: df58ff1c31417109e2d6130abde7c0f791b96e6d [file] [log] [blame]
#!/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:
#* ---------
#* Parsing_Padding_Info.pm
#*
#* Project:
#* --------
#*
#*
#* Description:
#* ------------
#* This script is used to get unused memory info.
#*
#*
#* Author:
#* -------
#* Yao Liu (mtk15073)
#*
#*------------------------------------------------------------------------------
#* Upper this line, this part is controlled by PVCS VM. DO NOT MODIFY!!
#*============================================================================
#****************************************************************************/
use strict;
BEGIN { push @INC, './tools/MemoryUtility/' } # add additional library path
use BasicMemInfoQuery;
use LinkerOutputParser;
package Parsing_Padding_Info;
use constant LOG => 0;
use constant WARNING => 1;
use constant FATAL => 2;
sub get_padding_info
{
my ($platform, $c2k_mode_support, $themf, $scat, $map_file, $sym_file) = @_;
my ($nRAMUsage, @raminfo);
if ($platform eq "MT6297" || $platform eq "MT6885" || $platform eq "MT6873" || $platform eq "MT6893" || $platform eq "MT6853") {
($nRAMUsage, @raminfo) = &BasicMemInfo::DispatchCommand("CMD_GetRAMUsage", $themf, $scat, $map_file, $sym_file, undef);
return @raminfo;
} else {
&LinkerOutputParser::FileParse($sym_file);
my $ERinRAM_aref = &BasicMemInfo::GetERsInRAM($themf, $scat, $map_file, $sym_file, undef);
my $nDummyEndBase = hex(&LinkerOutputParser::Get_DUMMY_END_Base());
my $ROM_size = &BasicMemInfo::CMD_GetROMSize($themf, $scat, $map_file, $sym_file);
my @FreeRAMAreas;
my @UsedRAMAreas;
foreach my $ER (@$ERinRAM_aref) #Go through all regions in ram
{
my $strERsize = LinkerOutputParser::GetExeRegionInfo($ER, Region::Size);
my $strERbase = &LinkerOutputParser::GetExeRegionInfo($ER, Region::VMA);
my $nERaddr = get_EMI_offset(hex($strERbase), $ER, $platform, $c2k_mode_support);
msg_handler(FATAL, "Section $ER base address($strERbase) or end address($strERbase + $strERsize) is bigger than total memory size!\nEMI offset is $nERaddr.\n")
if ($nERaddr > $nDummyEndBase || ($nERaddr + hex($strERsize)) > $nDummyEndBase);
if (hex($strERsize)) {
my $ERsize = hex($strERsize);
my $append = 0;
my $note = undef;
foreach my $used (@UsedRAMAreas) {
if(($used->[0]<=$nERaddr) and (($used->[0]+$used->[1])>=$nERaddr)) {
if (($used->[0]+$used->[1])<($nERaddr+$ERsize)){
$used->[1]= ($nERaddr+$ERsize)-$used->[0];
}
$append = 1;
} elsif (($used->[0]<=($nERaddr+$ERsize)) and (($used->[0]+$used->[1])>=($nERaddr+$ERsize))) {
if ($used->[0] > $nERaddr) {
$used->[1] += $used->[0] - $nERaddr;
$used->[0] = $nERaddr;
}
$append = 1;
}
if ($append == 1) {
$used->[2] = $note if($note ne undef);
}
}
if ($append == 1) {
$append = 0;
} else {
push @UsedRAMAreas, [$nERaddr, $ERsize, $note]
}
}
}
@UsedRAMAreas = sort {$a->[0]<=>$b->[0]} @UsedRAMAreas;
if($ROM_size < $UsedRAMAreas[0][0]) {
push @FreeRAMAreas, [$ROM_size,$UsedRAMAreas[0][0] - $ROM_size];
}
for( my $i = 0;$i < $#UsedRAMAreas;$i+=1)
{
my $freeStart =$UsedRAMAreas[$i][0]+$UsedRAMAreas[$i][1];
my $freeSize =$UsedRAMAreas[$i+1][0]-$freeStart;
push @FreeRAMAreas, [$freeStart,$freeSize] if ($freeSize > 0);
}
@FreeRAMAreas =sort {$b->[1] <=> $a->[1]} @FreeRAMAreas;
my @RAMMargins;
foreach my $refUsed (@FreeRAMAreas) {
my $MarginStart = ($refUsed->[0]+ 0xffff) & 0xffff0000;
my $MarginLength = (($refUsed->[0] + $refUsed->[1]) & 0xffff0000) - $MarginStart;
next if($MarginLength < 0x10000);
push @RAMMargins, [$MarginStart,$MarginLength];
}
for (my $item_count = $#RAMMargins+1; $item_count < 8; $item_count+=1) {
push @RAMMargins, [0,0];
}
@RAMMargins = sort {$b->[1] <=> $a->[1]} @RAMMargins;
splice @RAMMargins, 8;
return @RAMMargins;
}
}
sub get_EMI_offset()
{
my ($address, $section_name, $platform, $c2k_support) = @_;
my $addr_mask = 0x0fffffff;
my $bank = $address>>28;
if (($bank == 1) || ($bank == 7))
{
$addr_mask = 0x1fffffff;
}
my $phsical_addr = $address & $addr_mask;
if ($section_name eq "EXTSRAM_L1DSP_ZI" and ($platform eq "MT6880" or $platform eq "MT6890" or $platform eq "MT2735")) {
if ($c2k_support eq "NONE"){
$phsical_addr -= 0xE000000;
} elsif ($c2k_support ne "NONE") {
$phsical_addr -= 0xA000000;
} else {
msg_handler(FATAL, "Please check the C2K_SUPPORT status($c2k_support).\n");
}
}
return $phsical_addr;
}
sub msg_handler
{
my ($type, $msg, $line_no, $file_name) = (@_);
my $prompt_prefix;
if($type == LOG) {
print $msg . "\n";
}
elsif($type == WARNING) {
$prompt_prefix = ">> AAIS Warning : ";
my $location = (defined $file_name) ? "[$file_name] " : "";
print $prompt_prefix . $location . $msg . "\n";
}
elsif($type == FATAL) {
$prompt_prefix = ">> *** AAIS Fatal : ";
my $location = (defined $file_name) ? "[$file_name] " : "";
$location .= "[at line $line_no] ";
die $prompt_prefix . $location . $msg . "\n";
}
}
1;