diff --git a/mcu/tools/AutoAdjustL2CacheLockSection.pl b/mcu/tools/AutoAdjustL2CacheLockSection.pl
new file mode 100644
index 0000000..5d81585
--- /dev/null
+++ b/mcu/tools/AutoAdjustL2CacheLockSection.pl
@@ -0,0 +1,396 @@
+#!/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) 2018
+#
+#  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:
+#* ---------
+#*   AutoAdjustInputSection.pl
+#*
+#* Project:
+#* --------
+#*
+#*
+#* Description:
+#* ------------
+#*   This scripts is used to parse the configuration of Auto-Placement symbols with order.
+#*
+#* Author:
+#* -------
+#*   Yao Liu (mtk15073)
+#*
+#****************************************************************************/
+
+use strict;
+use warnings;
+
+BEGIN { push @INC , './tools/' }  # add additional library path
+use FileInfoParser;
+use CommonUtility;
+use File::Basename;
+use File::Spec;
+use Data::Dumper;
+use constant {
+    LOG        => 0,
+    WARNING    => 1,
+    FATAL      => 2,
+};
+
+my ($ToolChainBase, $LDSFileName, $Tempdir) = (@ARGV);
+&msg_handler(LOG, "Input file: $ToolChainBase, $LDSFileName, $Tempdir\n");
+
+my ($Readelf, $AR);
+my ($Project, $Flavor);
+my ($LibPath1Prefix, $LibPath2Prefix);
+my $tempInputFolder;
+&GetEnvInfo();
+
+#record all the used lib and obj
+my %libObjHash;
+#extract the info of all symbols of a .obj
+my %SymLogInfoHash;
+#extract the info of all sections of a .obj
+my %SecLogInfoHash;
+#Enable/disable local test, 0: disable, 1: enable
+my $local_test = 0;
+#record all official config info
+my %Official_Config;
+#record all local config info
+my %Local_Config;
+#record all section ID
+my %SectionIDHash;
+#record the order of section ID
+my @SectionOrder;
+
+my $official_config = $Tempdir."~official_config.ldf";
+my $local_config = $Tempdir."~local_config.ldf";
+&msg_handler(FATAL, "official/local config file do not exist!\n") if(!-e $official_config && !-e $local_config);
+
+&ParseConfigFile($official_config);
+&ParseConfigFile($local_config) if($local_test);
+
+&ParseLibObj();
+
+&CheckUserConfiguration();
+
+&UpdateLDS($LDSFileName);
+
+&CleanTempFiles();
+
+
+exit 0;
+
+sub GetEnvInfo
+{
+    $AR      = $ToolChainBase."ar";
+    $Readelf = $ToolChainBase."readelf";
+
+    &msg_handler(FATAL, "GCC tool does not exist", __LINE__) unless(-e $Readelf and -e $AR);
+
+    my $RelPath = File::Basename::dirname($LDSFileName);
+    my $AbsPath = File::Spec->rel2abs($RelPath);
+
+    if($AbsPath =~ m|/mcu/build/(\w+)/(\w+)/|) {
+        ($Project, $Flavor) = ($1, $2);
+    }else {
+        &msg_handler(FATAL, "Fail to get project and flavor", __LINE__);
+    }
+
+    $LibPath1Prefix = "./mtk_rel/$Project/$Flavor/TARGET/lib/";
+    $LibPath2Prefix = "./build/$Project/$Flavor/bin/lib/";
+
+    $tempInputFolder = $Tempdir . "CustomInputSection";
+    system("rm -rf $tempInputFolder") if(-e $tempInputFolder);
+    system("mkdir -p $tempInputFolder");
+    $? == 0 or &msg_handler(FATAL, "Making $tempInputFolder failed $?", __LINE__);
+}
+
+sub ParseConfigFile
+{
+    my ($ConfigFile) = (@_);
+    my $FileName = $ConfigFile;
+
+    open CFG, "$ConfigFile" or &msg_handler(FATAL, "Can not open $ConfigFile!", __LINE__);
+    local $/ = undef;
+    my $tempOutput = <CFG>;
+    close CFG;
+
+    my ($SubSection, $bFlag, $sFlag) = (undef, 0, 0);
+    my @TotalSecArray;
+    my $BreakRegExp = "[\\*]{20}\\s[<]\\sGROUP\\s*CFG\\s[>]\\s[\\*]{20}";
+
+    #split entire config file into several configuration groups.
+    foreach my $line (split /\n/, $tempOutput) {
+        if($bFlag == 0) {
+            $bFlag = 1 if(($line =~ m/^\[Symbol\]\s+\[Obj\]\s+\[Lib\]$/));
+            next;
+        }
+        next if($line =~ m/^\s*$/);
+
+        if($line =~ m/^\s*$BreakRegExp\s*$/) {
+            $sFlag = 1;
+            if(defined $SubSection) {
+                push @TotalSecArray, $SubSection;
+                undef $SubSection;
+            }
+            next;
+        }
+        $SubSection .= $line."\n" if($sFlag == 1);
+    }
+    push @TotalSecArray, $SubSection if(defined $SubSection);
+
+    my %unique;
+    foreach my $content (@TotalSecArray) {
+        my @tempArray = split /\n/, $content;
+        my ($Section_ID, $name_flag, $size_flag);
+        foreach my $line (@tempArray) {
+            if($line =~ /^Section ID\s*:\s*(.*)$/) {
+                $Section_ID = $1;
+                if (! $Section_ID =~ /L2CACHE_LOCK_RO_SECTION_\w+/) {
+                    my $msg = "Illegal Line Format: $line";
+                    &msg_handler(FATAL, "Illegal Line Format: $line", __LINE__, $FileName);
+                    next;
+                }
+                &msg_handler(FATAL, "The section ID $Section_ID has been defined in config file!\n", __LINE__) if(exists $SectionIDHash{$Section_ID});
+                $SectionIDHash{$Section_ID} = 0;
+                $name_flag = 1;
+                next;
+            } elsif($line =~ /^Reserved size\s*:\s*(.*)$/ && $name_flag == 1) {
+                $Official_Config{$Section_ID}{"size"} = $1 if($ConfigFile eq $official_config);
+                $Local_Config{$Section_ID}{"size"} = $1 if($ConfigFile eq $local_config);
+                push @SectionOrder, $Section_ID;
+                $size_flag = 1;
+                next;
+            } elsif(!($name_flag == 1 && $size_flag == 1)) {
+                &msg_handler(FATAL, "Wrong config format in $Section_ID!", __LINE__, $FileName);
+            }
+      
+            if($line =~ m/^(\S+)\s+(\S+)\s+(\S+)\s*$/ && ($ConfigFile eq $official_config)) {
+                if(exists $unique{$1.":".$2.":".$3}) {
+                    &msg_handler(FATAL, "[Duplicated Lines]: $line", __LINE__, $FileName);
+                    next;
+                } else {
+                    $Official_Config{$Section_ID}{$1.":".$2.":".$3}{"symbol_name"} = $1;
+                    $Official_Config{$Section_ID}{$1.":".$2.":".$3}{"obj"} = $2;
+                    $Official_Config{$Section_ID}{$1.":".$2.":".$3}{"lib"} = $3;
+                    $unique{$1.":".$2.":".$3} = 0;
+                    $libObjHash{$3}{$2} = 0;
+                }
+            }
+        }
+    }
+}
+
+sub ParseLibObj
+{
+    foreach my $lib (keys %libObjHash) {
+        my $LibPath1 = $LibPath1Prefix . $lib;
+        my $LibPath2 = $LibPath2Prefix . $lib;
+        my $LibPath = (-e $LibPath1) ? $LibPath1 : $LibPath2;
+        if(!-e $LibPath) {
+            delete $libObjHash{$lib};
+            next;
+        }
+
+        my @ObjArray = keys %{$libObjHash{$lib}};
+        foreach my $obj (@ObjArray) {
+            my $ExtractObj = $Tempdir . "CustomInputSection/" . $lib . $obj;
+            my $SymLog = $ExtractObj . "." . "symbols.log";
+            my $SecLog = $ExtractObj . "." . "sections.log";
+
+            next if(-f $SymLog && -f $SecLog); #have been parsed before.
+
+            #extract the obj from lib
+            system("$AR -x $LibPath $obj 2> /dev/null");
+            unless(-f $obj) {
+                delete $libObjHash{$lib}{$obj};
+                next;
+            }
+
+            #move the obj to certain folder
+            system("mv $obj $ExtractObj");
+            $? == 0 or &msg_handler(FATAL, "$ExtractObj moving failed", __LINE__);
+
+            #generate SYM log
+            system("$Readelf --syms -W $ExtractObj > $SymLog");
+            $? == 0 or &msg_handler(FATAL, "Generating $SymLog failed", __LINE__);
+
+            #generate SECTION log
+            system("$Readelf -S -W $ExtractObj > $SecLog");
+            $? == 0 or &msg_handler(FATAL, "Generating $SecLog failed", __LINE__);
+
+            &ParseSymAndSecLog($SymLog, $SecLog, $lib, $obj);
+        }
+    }
+}
+
+sub ParseSymAndSecLog
+{
+    my ($tempSymLog, $tempSecLog, $tempLib, $tempObj) = (@_);
+    my $key = $tempLib . $tempObj;
+
+    open SYM_LOG, "< $tempSymLog" or &msg_handler(FATAL, "Fail to open $tempSymLog", __LINE__);
+    while(my $line = <SYM_LOG>) {
+        #    17: 00000024    40 FUNC    LOCAL  DEFAULT [MIPS16]     9 ev_cmp_f
+        if($line =~ m/^\s*\d+\s*:\s*\S+\s+(\d+).*\s+(\d+)\s+(\w+)$/) {
+            my ($Symbol, $index, $size) = ($3, $2, $1);
+            $SymLogInfoHash{$key}{$Symbol}{'index'} = $index;
+            $SymLogInfoHash{$key}{$Symbol}{'size'}  = $size;
+        }
+    }
+    close SYM_LOG;
+
+    open SEC_LOG, "< $tempSecLog" or &msg_handler(FATAL, "Fail to open $tempSecLog", __LINE__);
+    while(my $line = <SEC_LOG>) {
+        #  [22] .text.evshed_give PROGBITS        00000000 000bbc 00002c 00  AX  0   0  4
+        if($line =~ m/^\s*\[\s*(\d+)\s*\]\s+(\S+)\s+/) {
+            my ($index, $Section) = ($1, $2);
+            if($Section =~ m/^(\.?\w+)\.\w+$/) {
+                $SecLogInfoHash{$key}{$index}{'type'}  = $1;
+                $SecLogInfoHash{$key}{$index}{'valid'} = 'false';
+            }elsif($Section =~ m/^[^\.]*$/) {
+                $SecLogInfoHash{$key}{$index}{'type'}  = $Section;
+                $SecLogInfoHash{$key}{$index}{'valid'} = 'true';
+            }
+        }
+    }
+    close SEC_LOG;
+}
+
+sub CheckUserConfiguration
+{
+    foreach my $id (keys %Official_Config) {
+        foreach my $item (keys %{$Official_Config{$id}}) {
+            next if($item eq "size");
+            my $symbol_name = $Official_Config{$id}{$item}{"symbol_name"};
+            my $obj = $Official_Config{$id}{$item}{"obj"};
+            my $lib = $Official_Config{$id}{$item}{"lib"};
+            my $SymNameInObj;
+            
+            if(not exists $libObjHash{$lib}) { #lib does not exist
+                my $tips = "$lib does not exist.";
+                &msg_handler(FATAL, "$symbol_name not found in Group" . "[$id]" . ": $tips", __LINE__);
+                next;
+            }elsif(not exists $libObjHash{$lib}{$obj}) { #obj can't be found in lib
+                my $tips = "$symbol_name not exists in $obj.";
+                &msg_handler(FATAL, "$symbol_name not found in Group" . "[$id]" . ": $tips", __LINE__);
+                next;
+            }elsif(not exists $SymLogInfoHash{$lib.$obj}) { #the symbol not exists
+                my $tips = "If your symbol type is C++, please use the full name in MAP/SYM, such as [ipfcore_task_init] -> [_Z17ipfcore_task_initv]";
+                &msg_handler(FATAL, "$symbol_name can't be found in Group" . "[$id]" . ", $tips", __LINE__);
+                next;
+            }
+            my $index = $SymLogInfoHash{$lib.$obj}{$symbol_name}{"index"};
+            if(not exists $SecLogInfoHash{$lib.$obj}{$index}) {
+                &msg_handler(FATAL, "Can not find the input section of $symbol_name in [$id]!", __LINE__);
+                next;
+            }elsif(not $SecLogInfoHash{$lib.$obj}{$index}{'type'} eq $id) {
+                &msg_handler(FATAL, "$symbol_name is not used $id to define. Please check!", __LINE__);
+                next;
+            }
+        }
+    }
+}
+
+sub UpdateLDS
+{
+    my ($LDSFile) = (@_);
+    my ($output, $assert, $flag) = (undef, "", 0);
+    open LDS, "< $LDSFile" or &msg_handler(FATAL, "Fail to open $LDSFile", __LINE__);
+
+    while(my $line = <LDS>) {
+        if($line =~ /^(\s+)Image\$\$CACHED_EXTSRAM_L2CACHE_LOCK_RO\$\$Base = \. ;/) {
+            my $prefix = $1;
+            $output .= $line;
+            foreach my $section (@SectionOrder){
+                my $template = <<"__TEMPLATE";
+$prefix. = ALIGN(64);
+$prefix$section\$\$Base = .;
+$prefix* ($section)
+$prefix. = ALIGN(64);
+$prefix$section\$\$Limit = .;
+$prefix$section\$\$Length = ABSOLUTE($section\$\$Limit - $section\$\$Base);
+
+__TEMPLATE
+                $output .= $template;
+                my $setting_size;
+                if(exists $Official_Config{$section}){
+                    $setting_size = $Official_Config{$section}{"size"};
+                }elsif(exists $Local_Config{$section}){
+                    $setting_size = $Local_Config{$section}{"size"};
+                }else{
+                    &msg_handler(FATAL, "The section $section is not defined in config file!", __LINE__);
+                }
+                $assert .= "    ASSERT( $section\$\$Length <= $setting_size,\"$section exceeds the setting size!\")\n";
+            }
+        }elsif($line =~ /^(\s+)ASSERT\(/ && $flag == 0) {
+            $output .= $assert;
+            $output .= $line;
+            $flag = 1;
+        }else{
+            $output .= $line;
+        }
+    }
+    close LDS;
+
+    open LDS, "> $LDSFile" or &msg_handler(FATAL, "Fail to open $LDSFile", __LINE__);
+    print LDS $output;
+    close LDS;
+
+    &msg_handler(LOG, "\nLDS is updated successfully ^O^, please check $LDSFileName.", __LINE__);
+}
+
+sub CleanTempFiles
+{
+    system("rm -rf $tempInputFolder");
+    $? == 0 or &msg_handler(FATAL, "Deleting $tempInputFolder failed $?", __LINE__);
+}
+
+sub msg_handler
+{
+    my ($type, $msg, $line_no) = (@_);
+    my $prompt_prefix;
+    if($type == LOG) {
+        print $msg . "\n";
+    }
+    elsif($type == WARNING) {
+        $prompt_prefix = ">> AAIS Warning : ";
+        print $prompt_prefix . $msg . "\n";
+    }
+    elsif($type == FATAL) {
+        $prompt_prefix = ">> *** AAIS Fatal : ";
+        my $location = "[at line $line_no] ";
+        die $prompt_prefix . $location . $msg . "\n";
+    }
+}