[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/find_obj_in_lib_v2.pl b/mcu/tools/find_obj_in_lib_v2.pl
new file mode 100644
index 0000000..9e50cb0
--- /dev/null
+++ b/mcu/tools/find_obj_in_lib_v2.pl
@@ -0,0 +1,39 @@
+use strict;
+
+my @target_lib=("el1", "tstm_meta",
+ "edsphwram", "el1d", "el1d_agc", "el1d_ext", "el1d_pub", "el1d_tpc",
+ "mml1", "mml1_pcore", "mml1_rf", "mml1_rf_ext_pcore", "mml1_rf_pcore",
+ "nl1", "nl1_pub",
+ "mml1_agc", "mml1_rxdfe", "mml1_tpc", "mml1_txdfe");
+
+open INPUT_FD, "<$ARGV[0]";
+open OUT_FD, ">$ARGV[1]";
+my @obj_list;
+
+while(<INPUT_FD>)
+{
+ if (/Allocating common symbols/)
+ {
+ last;
+ }
+
+ for(my $i=0; $i <= $#target_lib;$i++)
+ {
+ my $lib_str="lib".$target_lib[$i].".a";
+ if (/$lib_str\((\S+)\.obj\)/)
+ {
+ my $obj_name = $1.".obj";
+ push (@obj_list, $obj_name);
+ last;
+ }
+ }
+}
+
+for(my $i = 0; $i <= $#obj_list; $i++)
+{
+ my $lds_sec = "*".$obj_list[$i]." (.text*)";
+ print OUT_FD "$lds_sec\n";
+}
+
+close INPUT_FD;
+close OUT_FD;