mcu/tools/MemoryUtility/ChkMemUsage.pl

#!/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:
#* ---------
#*   ChkMemUsage.pl
#*
#* Project:
#* --------
#*
#*
#* Description:
#* ------------
#*   This perl is used to check memory usage. 
#*   If the memory usage is more than 95%, then warning is send back. 
#*       
#*
#* Author:
#* -------
#*   I-Chun Liu (mtk06123)
#*
#****************************************************************************/

BEGIN { push @INC, '../', './tools/', './tools/MemoryUtility/' }  # add additional library path
use systemInfo;
use LinkerOutputParser;
use CommonUtility;
use FileInfoParser;
use BasicMemInfoQuery;
use strict;

#****************************************************************************
# Constants
#****************************************************************************
my $ChkMemUsage_VERNO     = " u0.01";
             # u0.01 , 2015/01/19,  Initial revision for Memory Utility Refinement
             # m0.01 , 2014/02/26,  Initial revision

#****************************************************************************
# Global variable
#****************************************************************************
my $DebugPrint = 0;

#****************************************************************************
# Subroutine:  ChkMemUsage_verno - to query this package's version number
# Parameters:  x
# Returns:     version number string
#****************************************************************************
sub ChkMemUsage_verno
{
    return $ChkMemUsage_VERNO;
}

#****************************************************************************
# 1 >>>  Get in put parameters
#****************************************************************************
&Usage() if($#ARGV != 3);
my ($makeFile, $lds_path, $map_path, $sym_path) = @ARGV;

#****************************************************************************
# 2 >>>  Parse make file
#****************************************************************************
my %MAKEFILE_OPTIONS;
&FileInfo::Parse_MAKEFILE($makeFile, \%MAKEFILE_OPTIONS);

#****************************************************************************
# 3 >>>  ChkMemUsage
#****************************************************************************
&ChkMemUsage();

#****************************************************************************
# oo >>>  Finished
#****************************************************************************
exit 0;

#****************************************************************************
# subroutine:  ChkMemUsage - Check memory usage. If the memory usage is more than 95%, then warning is send back. 
# Input:       x
# Output:      x
#****************************************************************************
sub ChkMemUsage
{
    my $nPRAMUsage = 0;
    my $nPRAM = 0;
    my $threshold_val = 0;
	my $percentage = 95; #95%
	my $current_percentage = 0 ;
	
	my $platform = &FileInfo::get("PLATFORM", \%MAKEFILE_OPTIONS);
	print "platform = $platform\n";
	
	my $coprocessor = &FileInfo::is_with_AP(\%MAKEFILE_OPTIONS);
	print "isWithAP = $coprocessor\n";

	#get ram size 

	if($platform =~ /MT6595/) #MT6595
	{
		$nPRAM = 0x6000000; #96M
		print "MT6595 memory size = $nPRAM\n";			
	}
	
	else #MT6280, MT6290
	{
    	$nPRAM = BasicMemInfo::DispatchCommand("GetTotalRAMUsageFromLDS", $makeFile, $lds_path, $map_path, $sym_path, undef);
		print "RAMUsageFromLDS = $nPRAM\n";
	}

	#set threshold size
	$threshold_val = ($nPRAM * $percentage)/100 ; 
	print "Threshold_val = $threshold_val\n";

	#get current usage size
    $nPRAMUsage = BasicMemInfo::DispatchCommand("CMD_GetPhysicalRAMUsage", $makeFile, $lds_path, $map_path, $sym_path, undef);
    print "RAM usage = $nPRAMUsage\n";

	#calculate current usage percentage
	$current_percentage = ($nPRAMUsage * 100)/$nPRAM ;
	my $current_percentage = sprintf "%.2f", $current_percentage;
	print "Current usage: $current_percentage%\n";
	
    if ($nPRAMUsage >= $threshold_val && $threshold_val != 0)
    {
        #send warning
        print "Warning: The memory usage is $nPRAMUsage over the memory usage threshold $threshold_val which is $percentage% of RAM size !\n";    
    }
    else
    {
    	print "Memory usage check OK!\n";
    }
}

#****************************************************************************
# subroutine:  Usage - usage template
# Input:       x
# Output:      x
#****************************************************************************
sub Usage
{
  print <<"__EOFUSAGE";

usage: perl ChkMemUsage.pl makefile_path lds_file_path map_file_path sym_file_path 

e.g. 
perl ChkMemUsage.pl "/[path]/~MT6290E2_EVB(LWG).mak" "/[path]/ldsMT6290E2_EVB.txt" "/[path]/MT6290E2_EVB_PCB01_MT6290_S01.map" "/[path]/MT6290E2_EVB_PCB01_MT6290_S01.sym"

__EOFUSAGE

  exit 1;
}