Whamcloud - gitweb
git://git.whamcloud.com
/
fs
/
lustre-release.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
b=19215
[fs/lustre-release.git]
/
lustre
/
tests
/
leak_finder.pl
diff --git
a/lustre/tests/leak_finder.pl
b/lustre/tests/leak_finder.pl
index
745f113
..
45d2211
100644
(file)
--- a/
lustre/tests/leak_finder.pl
+++ b/
lustre/tests/leak_finder.pl
@@
-14,15
+14,14
@@
my $max = 0;
while ($line = <>) {
$debug_line++;
my ($file, $func, $lno, $name, $size, $addr, $type);
while ($line = <>) {
$debug_line++;
my ($file, $func, $lno, $name, $size, $addr, $type);
- if ($line =~ m/^.*
\((.*):(\d+):(.*)\(\) (\d+ \| )?\d+\+\d+\): (k|v|slab-)(.*) '(.*)': (\d+) at (.*) \(tot (.*)\).*$/)
{
- $file = $
1
;
- $lno
= $2
;
- $func = $
3
;
+ if ($line =~ m/^.*
(\.).*\((.*):(\d+):(.*)\(\)\) (k|v|slab-)(.*) '(.*)': (\d+) at ([\da-f]+)/)
{
+ $file = $
2
;
+ $lno
= $3
;
+ $func = $
4
;
$type = $6;
$name = $7;
$size = $8;
$addr = $9;
$type = $6;
$name = $7;
$size = $8;
$addr = $9;
- $tot = $10;
# we can't dump the log after portals has exited, so skip "leaks"
# from memory freed in the portals module unloading.
# we can't dump the log after portals has exited, so skip "leaks"
# from memory freed in the portals module unloading.
@@
-69,10
+68,6
@@
while ($line = <>) {
delete $memory->{$addr};
$total -= $size;
}
delete $memory->{$addr};
$total -= $size;
}
- if ($total != int($tot)) {
- print "kernel total $tot != my total $total\n";
- $total = $tot;
- }
}
# Sort leak output by allocation time
}
# Sort leak output by allocation time
@@
-86,4
+81,4
@@
foreach $key (@sorted) {
print STDERR "*** Leak: $memory->{$key}->{size} bytes allocated at $key ($memory->{$key}->{file}:$memory->{$key}->{func}:$memory->{$key}->{lno}, debug file line $memory->{$key}->{debug_line})\n";
}
print STDERR "*** Leak: $memory->{$key}->{size} bytes allocated at $key ($memory->{$key}->{file}:$memory->{$key}->{func}:$memory->{$key}->{lno}, debug file line $memory->{$key}->{debug_line})\n";
}
-print "maximum used: $max, amount leaked: $total\n";
+print
STDERR
"maximum used: $max, amount leaked: $total\n";