mirror of
git://sourceware.org/git/glibc.git
synced 2025-03-06 20:58:33 +01:00
Fix matching of addresses.
This commit is contained in:
parent
aa44a9de3d
commit
e1fa173022
1 changed files with 2 additions and 2 deletions
|
@ -75,7 +75,7 @@ if ($#ARGV == 0) {
|
||||||
sub location {
|
sub location {
|
||||||
my $str = pop(@_);
|
my $str = pop(@_);
|
||||||
return $str if ($str eq "");
|
return $str if ($str eq "");
|
||||||
if ($str =~ /[[](0x[^]]*)]:(.)*/) {
|
if ($str =~ /.*[[](0x[^]]*)]:(.)*/) {
|
||||||
my $addr = $1;
|
my $addr = $1;
|
||||||
my $fct = $2;
|
my $fct = $2;
|
||||||
return $cache{$addr} if (exists $cache{$addr});
|
return $cache{$addr} if (exists $cache{$addr});
|
||||||
|
@ -89,7 +89,7 @@ sub location {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$cache{$addr} = $str = "$fct @ $addr";
|
$cache{$addr} = $str = "$fct @ $addr";
|
||||||
} elsif ($str =~ /^[[](0x[^]]*)]$/) {
|
} elsif ($str =~ /^.*[[](0x[^]]*)]$/) {
|
||||||
my $addr = $1;
|
my $addr = $1;
|
||||||
return $cache{$addr} if (exists $cache{$addr});
|
return $cache{$addr} if (exists $cache{$addr});
|
||||||
if ($binary ne "" && open (ADDR, "addr2line -e $binary $addr|")) {
|
if ($binary ne "" && open (ADDR, "addr2line -e $binary $addr|")) {
|
||||||
|
|
Loading…
Add table
Reference in a new issue