moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

added some verbose summary output stuff

Browse Source
This commit is contained in:
Daniel Stenberg 2001-04-24 21:47:01 +00:00
parent 775dc07eb5
commit 90cce2ae3a
1 changed files with 49 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
memanalyze.pl
View File

@ -12,12 +12,21 @@ do {
} }
} while (shift @ARGV); } while (shift @ARGV);
my $maxmem;
sub newtotal {
my ($newtot)=@_;
# count a max here
if($newtot > $maxmem) {
$maxmem= $newtot;
}
}
while(<STDIN>) { while(<STDIN>) {
chomp $_; chomp $_;
$line = $_; $line = $_;
if($verbose) {
print "IN: $line\n";
}
if($line =~ /^MEM ([^:]*):(\d*) (.*)/) { if($line =~ /^MEM ([^:]*):(\d*) (.*)/) {
# generic match for the filename+linenumber # generic match for the filename+linenumber
$source = $1; $source = $1;
@ -34,17 +43,39 @@ while(<STDIN>) {
print "FREE ERROR: Previously freed at: ".$getmem{$addr}."\n"; print "FREE ERROR: Previously freed at: ".$getmem{$addr}."\n";
} }
else { else {
if(0 && $verbose) {
print "malloc at ".$getmem{$addr}." is freed again at $source:$linenum\n";
}
$totalmem -= $sizeataddr{$addr}; $totalmem -= $sizeataddr{$addr};
newtotal($totalmem);
$frees++;
$sizeataddr{$addr}=-1; # set -1 to mark as freed $sizeataddr{$addr}=-1; # set -1 to mark as freed
$getmem{$addr}="$source:$linenum"; $getmem{$addr}="$source:$linenum";
} }
} }
elsif($function =~ /malloc\((\d*)\) = 0x([0-9a-f]*)/) { elsif($function =~ /malloc\((\d*)\) = 0x([0-9a-f]*)/) {
$size = $1; $size = $1;
$addr = $2; $addr = $2;
if($sizeataddr{$addr}>0) {
# this means weeeeeirdo
print "Fucked up debug compile, rebuild curl now\n";
}
$sizeataddr{$addr}=$size; $sizeataddr{$addr}=$size;
$totalmem += $size; $totalmem += $size;
if(0 && $verbose) {
print "malloc($size) at $source:$linenum\n";
}
newtotal($totalmem);
$mallocs++;
$getmem{$addr}="$source:$linenum"; $getmem{$addr}="$source:$linenum";
} }
elsif($function =~ /realloc\(0x([0-9a-f]*), (\d*)\) = 0x([0-9a-f]*)/) { elsif($function =~ /realloc\(0x([0-9a-f]*), (\d*)\) = 0x([0-9a-f]*)/) {
@ -58,6 +89,9 @@ while(<STDIN>) {
$totalmem += $newsize; $totalmem += $newsize;
$sizeataddr{$newaddr}=$newsize; $sizeataddr{$newaddr}=$newsize;
newtotal($totalmem);
$reallocs++;
$getmem{$oldaddr}=""; $getmem{$oldaddr}="";
$getmem{$newaddr}="$source:$linenum"; $getmem{$newaddr}="$source:$linenum";
} }
@ -71,6 +105,9 @@ while(<STDIN>) {
$sizeataddr{$addr}=$size; $sizeataddr{$addr}=$size;
$totalmem += $size; $totalmem += $size;
newtotal($totalmem);
$strdups++;
} }
else { else {
print "Not recognized input line: $function\n"; print "Not recognized input line: $function\n";
@ -134,9 +171,6 @@ while(<STDIN>) {
else { else {
print "Not recognized prefix line: $line\n"; print "Not recognized prefix line: $line\n";
} }
if($verbose) {
print "TOTAL: $totalmem\n";
}
} }
if($totalmem) { if($totalmem) {
@ -168,3 +202,12 @@ if($fopens) {
} }
} }
} }
if($verbose) {
print "Mallocs: $mallocs\n",
"Reallocs: $reallocs\n",
"Strdups: $strdups\n",
"Frees: $frees\n";
print "Maximum allocated: $maxmem\n";
}