Revert "WIN32 MemoryTracking: track wcsdup() _wcsdup() and _tcsdup() usage"
This reverts commit 8ec2cb5544.
We don't have any code anywhere in libcurl (or the curl tool) that use
wcsdup so there's no such memory use to track. It seems to cause mild
problems with the Borland compiler though that we may avoid by reverting
this change again.
Bug: http://curl.haxx.se/mail/lib-2013-05/0070.html
This commit is contained in:
@@ -31,7 +31,6 @@ my $mallocs=0;
|
||||
my $callocs=0;
|
||||
my $reallocs=0;
|
||||
my $strdups=0;
|
||||
my $wcsdups=0;
|
||||
my $showlimit;
|
||||
|
||||
while(1) {
|
||||
@@ -221,25 +220,6 @@ while(<FILE>) {
|
||||
newtotal($totalmem);
|
||||
$strdups++;
|
||||
}
|
||||
elsif($function =~ /wcsdup\(0x([0-9a-f]*)\) \((\d*)\) = 0x([0-9a-f]*)/) {
|
||||
# wcsdup(a5b50) (8) = df7c0
|
||||
|
||||
$dup = $1;
|
||||
$size = $2;
|
||||
$addr = $3;
|
||||
$getmem{$addr}="$source:$linenum";
|
||||
$sizeataddr{$addr}=$size;
|
||||
|
||||
$totalmem += $size;
|
||||
|
||||
if($trace) {
|
||||
printf("WCSDUP: $size bytes at %s, makes totally: %d bytes\n",
|
||||
$getmem{$addr}, $totalmem);
|
||||
}
|
||||
|
||||
newtotal($totalmem);
|
||||
$wcsdups++;
|
||||
}
|
||||
else {
|
||||
print "Not recognized input line: $function\n";
|
||||
}
|
||||
@@ -398,9 +378,8 @@ if($verbose) {
|
||||
"Reallocs: $reallocs\n",
|
||||
"Callocs: $callocs\n",
|
||||
"Strdups: $strdups\n",
|
||||
"Wcsdups: $wcsdups\n",
|
||||
"Frees: $frees\n",
|
||||
"Allocations: ".($mallocs + $callocs + $reallocs + $strdups + $wcsdups)."\n";
|
||||
"Allocations: ".($mallocs + $callocs + $reallocs + $strdups)."\n";
|
||||
|
||||
print "Maximum allocated: $maxmem\n";
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user