upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-13 18:10:00 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

also include isc_mem_stats output for allocations with non-0 remaining

Browse source
This commit is contained in:
David Lawrence 2000-01-14 00:33:14 +00:00
parent 7693d4de8f
commit e6cf8bb62c
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
util/memleak.pl
View file

@ -3,8 +3,14 @@
# Massage the output from ISC_MEM_DEBUG to extract mem_get() calls
# with no corresponding mem_put().
$mem_stats = '';
while (<>) {
$gets{$1.$2} = $_ if /mem(pool)?_get.*-> 0x([0-9a-f]+)/;
delete $gets{$1.$2} if /mem(pool)?_put\(0x[0-9a-f]+, 0x([0-9a-f]+)/;
$mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0;
}
print join('', values %gets);
print $mem_stats;
exit(0);