diff options
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/analysis/find_addr.pl | 11 |
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>) |