lib/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2025-07-28 00:21:52 +03:00
Code Activity

Fix matching of addresses.

Browse Source
This commit is contained in:
Ulrich Drepper
2001-01-06 19:29:33 +00:00
parent aa44a9de3d
commit e1fa173022
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
malloc/mtrace.pl
View File

@ -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|")) {