aboutsummaryrefslogtreecommitdiff
path: root/tests/memanalyze.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/memanalyze.pl')
-rwxr-xr-xtests/memanalyze.pl23
1 files changed, 1 insertions, 22 deletions
diff --git a/tests/memanalyze.pl b/tests/memanalyze.pl
index 54117f8ea..524634969 100755
--- a/tests/memanalyze.pl
+++ b/tests/memanalyze.pl
@@ -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";
}