misc/findleak.pl

   1 #!/usr/bin/perl
   2 my %mem = {};
   3 my %alloc = {};
   4 while(<>)
   5 {
   6         if (/realloc\((0x[0-9a-f]+).*\).*returns \((0x[0-9a-f]+)/)
   7         {
   8                 $mem{$1}--;
   9                 if ($mem{$1} != 0) {
  10                         print "free before alloc! $_";
  11                 }
  12                 if ($mem{$2} != 0) {
  13                         print "memory leak! $_";
  14                 }
  15                 $mem{$2}++;
  16                 $alloc{$2} = $_;
  17         }
  18         elsif (/free\((0x[0-9a-f]+)/)
  19         {
  20                 $mem{$1}--;
  21                 if ($mem{$1} != 0) {
  22                         print "free before alloc! $_";
  23                 }
  24         }
  25         elsif (m/returns (0x[0-9a-f]+)/)
  26         {
  27                 if ($mem{$1} != 0) {
  28                         print "memory leak! $_";
  29                 }
  30                 $mem{$1}++;
  31                 $alloc{$1} = $_;
  32         }
  33 }
  34 foreach $goo (sort keys %mem)
  35 {
  36         if ($mem{$goo})
  37         {
  38                 print "$mem{$goo} $alloc{$goo}";
  39         }
  40 }
  41 # From: Ed Beroset <beroset@mindspring.com>