ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

update to match current debug output

Browse Source
This commit is contained in:
Mark Andrews
2000-09-13 01:58:02 +00:00
parent c605f30cd7
commit f5c09d61a4
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
util/memleak.pl
View File

@@ -15,7 +15,7 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: memleak.pl,v 1.9 2000/08/01 01:33:29 tale Exp $
# $Id: memleak.pl,v 1.10 2000/09/13 01:58:02 marka Exp $
# Massage the output from ISC_MEM_DEBUG to extract mem_get() calls
# with no corresponding mem_put().
@@ -23,8 +23,8 @@
$mem_stats = '';
while (<>) {
$gets{$1.$2} = $_ if (/mem_get\((?:0x)?([0-9a-f]+), (?:0x)?[0-9a-f]+\) -> (?:0x)?([0-9a-f]+)/);
delete $gets{$1.$2} if /mem_put\((?:0x)?([0-9a-f]+), (?:0x)?([0-9a-f]+), (?:0x)?[0-9a-f]+\)/;
$gets{$1.$2} = $_ if (/add (?:0x)?([0-9a-f]+) size (?:0x)?([0-9]+) file/);
delete $gets{$1.$2} if /del (?:0x)?([0-9a-f]+) size (?:0x)?([0-9]+) file/;
$mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0;
}
print join('', values %gets);