OpenE2K
/
glibc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix matching of addresses.

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
Show Stats 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 {
my $str = pop(@_);
return $str if ($str eq "");
if ($str =~ /[[](0x[^]]*)]:(.)*/) {
if ($str =~ /.*[[](0x[^]]*)]:(.)*/) {
my $addr = $1;
my $fct = $2;
return $cache{$addr} if (exists $cache{$addr});
@ -89,7 +89,7 @@ sub location {
}
}
$cache{$addr} = $str = "$fct @ $addr";
} elsif ($str =~ /^[[](0x[^]]*)]$/) {
} elsif ($str =~ /^.*[[](0x[^]]*)]$/) {
my $addr = $1;
return $cache{$addr} if (exists $cache{$addr});
if ($binary ne "" && open (ADDR, "addr2line -e $binary $addr|")) {