diff options
author | Ulrich Drepper <drepper@redhat.com> | 2001-07-27 08:29:06 +0000 |
---|---|---|
committer | Ulrich Drepper <drepper@redhat.com> | 2001-07-27 08:29:06 +0000 |
commit | 129d706d77587e4d6627cc1ebef9be0f7cbc65f0 (patch) | |
tree | 219bd622277bf2262d16cd4fd0400bd1ef7aea7e /malloc/mtrace.pl | |
parent | 6a904bbfc610f98ee2f467844434117a7bca5982 (diff) | |
download | glibc-129d706d77587e4d6627cc1ebef9be0f7cbc65f0.zip glibc-129d706d77587e4d6627cc1ebef9be0f7cbc65f0.tar.gz glibc-129d706d77587e4d6627cc1ebef9be0f7cbc65f0.tar.bz2 |
Update.
* libio/fileops.c (_IO_new_file_fopen): Correctly locate ccs=
substring. Don't handle ccs= if no descriptor was allocated.
Normalize codeset name before calling __wcsmbs_named_conv.
Initialize transliteration elements. Free step data structure.
* libio/iofclose.c (_IO_new_fclose): Correct freeing of the step data.
* libio/iofwide.c (__libio_translit): Renamed from libio_translit
and made public. Various little cleanup changes.
* wcsmbs/wcsmbsload.h (struct gconv_fcts): Add towc_nsteps and
tomb_nsteps member.
* wcsmbs/wcsmbsload.c: Add some casts to avoid warnings.
(__wcsmbs_gconv_fcts): Initialize towc_nsteps and tomb_nsteps member.
(getfct): Take additional parameter with pointer to variable where the
number of steps is stored in. Disable code which allows to use more
than one step for now. Adjust all callers.
(free_mem): New function. Frees data associated with currently
selected converters.
Diffstat (limited to 'malloc/mtrace.pl')
-rw-r--r-- | malloc/mtrace.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/malloc/mtrace.pl b/malloc/mtrace.pl index e3ed577..7e06c99 100644 --- a/malloc/mtrace.pl +++ b/malloc/mtrace.pl @@ -125,6 +125,19 @@ sub location { } } $cache{$addr} = $str = $addr; + } elsif ($str =~ /^.*[[](0x[^]]*)]$/) { + my $addr = $1; + return $cache{$addr} if (exists $cache{$addr}); + if ($binary ne "" && open (ADDR, "addr2line -e $binary $addr|")) { + my $line = <ADDR>; + chomp $line; + close (ADDR); + if ($line ne '??:0') { + $cache{$addr} = $line; + return $cache{$addr}; + } + } + $cache{$addr} = $str = $addr; } return $str; } |