mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-03 16:15:27 +00:00
Code Issues Releases Wiki Activity

Fix for new memory log output format

Browse Source
This commit is contained in:
Michael Sawyer
2000-04-27 01:24:13 +00:00
parent d11241a247
commit d536f68bee
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
util/memleak.pl
View File

@@ -21,8 +21,8 @@
$mem_stats = ''; $mem_stats = '';
while (<>) { while (<>) {
$gets{$1.$2} = $_ if /mem(pool)?_get.*-> 0x([0-9a-f]+)/; $gets{$1.$2} = $_ if /mem_get\(([0-9]+), [0-9]+\) -> ([0-9a-f]+)/;
delete $gets{$1.$2} if /mem(pool)?_put\(0x[0-9a-f]+, 0x([0-9a-f]+)/; delete $gets{$1.$2} if /mem_put\(([0-9]+), ([0-9a-f]+), [0-9]+\)/;
$mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0; $mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0;
} }
print join('', values %gets); print join('', values %gets);