summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xutils/analysis/find_addr.pl11
1 files changed, 10 insertions, 1 deletions
diff --git a/utils/analysis/find_addr.pl b/utils/analysis/find_addr.pl
index 628fb3dda8..b66f35f48e 100755
--- a/utils/analysis/find_addr.pl
+++ b/utils/analysis/find_addr.pl
@@ -53,7 +53,16 @@ sub dynamic_space
53 $sel = <STDIN>; 53 $sel = <STDIN>;
54 } while($sel <= 0 || $sel > $count - 1 || !($sel =~ /^[+-]?\d+$/)); 54 } while($sel <= 0 || $sel > $count - 1 || !($sel =~ /^[+-]?\d+$/));
55 55
56 my $file = sprintf("apps/%ss/%s", $space, @$space_array[$sel - 1]); 56 my $prefix;
57 if($space eq 'plugin')
58 {
59 $prefix = 'apps';
60 }
61 else
62 {
63 $prefix = 'lib/rbcodec';
64 }
65 my $file = sprintf("%s/%ss/%s", $prefix, $space, @$space_array[$sel - 1]);
57 $ret{'library'} = sprintf("%s/%s", cwd(), $file); 66 $ret{'library'} = sprintf("%s/%s", cwd(), $file);
58 open FILE, "$objdump -t $file |" or die "Can't open pipe: $!"; 67 open FILE, "$objdump -t $file |" or die "Can't open pipe: $!";
59 while(<FILE>) 68 while(<FILE>)