findleak.txt

来自「开源的nasm编译器源码,研究编译器原理很有帮且」· 文本 代码 · 共 60 行

Subject: [nasm-devel] tool to help find memory leaks
Date: Fri, 02 Nov 2001 22:08:01 -0500
From: Ed Beroset <[e-mail]>
Reply-To: [e-mail]
To: [e-mail]

Here's a little Perl script I wrote a while ago to help track down memory
leaks in nasm.  First, compile nasm with LOGALLOC defined (see
nasmlib.c).  That creates a log file of all allocs and frees.  This Perl
script reads that file and tells you which source code lines caused a leak
(or a free of unallocated memory).  There are many leaks, almost all of
them in the preprocessor.

-+--- findleak.pl begins
#!/usr/bin/perl
my %mem = {};
my %alloc = {};
while(<>)
{
        if (/realloc\((0x[0-9a-f]+).*\).*returns \((0x[0-9a-f]+)/)
        {
                $mem{$1}--;
                if ($mem{$1} != 0) {
                        print "free before alloc! $_";
                }
                if ($mem{$2} != 0) {
                        print "memory leak! $_";
                }
                $mem{$2}++;
                $alloc{$2} = $_;
        }
        elsif (/free\((0x[0-9a-f]+)/)
        {
                $mem{$1}--;
                if ($mem{$1} != 0) {
                        print "free before alloc! $_";
                }
        }
        elsif (m/returns (0x[0-9a-f]+)/)
        {
                if ($mem{$1} != 0) {
                        print "memory leak! $_";
                }
                $mem{$1}++;
                $alloc{$1} = $_;
        }
}
foreach $goo (sort keys %mem)
{
        if ($mem{$goo})
        {
                print "$mem{$goo} $alloc{$goo}";
        }
}
-+--- findleak.pl ends



Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/