From aa5ff53bcfcc09ff6918135d78b6e350e1873db3 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 28 Feb 2002 12:35:54 +0000
Subject: added -t for trace, helps searching for leaks and similar
---
memanalyze.pl | 28 ++++++++++++++++++++++------
1 file changed, 22 insertions(+), 6 deletions(-)
diff --git a/memanalyze.pl b/memanalyze.pl
index 3006ffe70..f16f2d8a9 100755
--- a/memanalyze.pl
+++ b/memanalyze.pl
@@ -10,6 +10,9 @@ do {
if($ARGV[0] eq "-v") {
$verbose=1;
}
+ elsif($ARGV[0] eq "-t") {
+ $trace=1;
+ }
} while (shift @ARGV);
my $maxmem;
@@ -43,11 +46,11 @@ while(<STDIN>) {
print "FREE ERROR: Previously freed at: ".$getmem{$addr}."\n";
}
else {
- if(0 && $verbose) {
- print "malloc at ".$getmem{$addr}." is freed again at $source:$linenum\n";
- }
-
$totalmem -= $sizeataddr{$addr};
+ if($trace) {
+ print "FREE: malloc at ".$getmem{$addr}." is freed again at $source:$linenum\n";
+ printf("FREE: %d bytes freed, left allocated: $totalmem bytes\n", $sizeataddr{$addr});
+ }
newtotal($totalmem);
$frees++;
@@ -69,8 +72,9 @@ while(<STDIN>) {
$sizeataddr{$addr}=$size;
$totalmem += $size;
- if(0 && $verbose) {
- print "malloc($size) at $source:$linenum\n";
+ if($trace) {
+ print "MALLOC: malloc($size) at $source:$linenum",
+ " makes totally $totalmem bytes\n";
}
newtotal($totalmem);
@@ -84,11 +88,18 @@ while(<STDIN>) {
$newaddr = $3;
$totalmem -= $sizeataddr{$oldaddr};
+ if($trace) {
+ printf("REALLOC: %d less bytes and ", $sizeataddr{$oldaddr});
+ }
$sizeataddr{$oldaddr}=0;
$totalmem += $newsize;
$sizeataddr{$newaddr}=$newsize;
+ if($trace) {
+ printf("%d more bytes ($source:$linenum)\n", $newsize);
+ }
+
newtotal($totalmem);
$reallocs++;
@@ -106,6 +117,11 @@ while(<STDIN>) {
$totalmem += $size;
+ if($trace) {
+ printf("STRDUP: $size bytes at %s, makes totally: %d bytes\n",
+ $getmem{$addr}, $totalmem);
+ }
+
newtotal($totalmem);
$strdups++;
}
--
cgit v1.2.3