mcu/tools/AutoGen/postBuild/Parsing_Padding_Info.pm

#!/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;