Add leak logging for node info managers that can be added to leak-gauge. b=414704 r+sr=sicking a=schrep

This commit is contained in:
dbaron%dbaron.org 2008-02-08 19:55:03 +00:00
Родитель 540cdc29e5
Коммит 59bb951af6
3 изменённых файлов: 145 добавлений и 9 удалений

Просмотреть файл

@ -53,6 +53,16 @@
#include "nsComponentManagerUtils.h" #include "nsComponentManagerUtils.h"
#include "nsLayoutStatics.h" #include "nsLayoutStatics.h"
#ifdef MOZ_LOGGING
// so we can get logging even in release builds
#define FORCE_PR_LOG 1
#endif
#include "prlog.h"
#ifdef PR_LOGGING
static PRLogModuleInfo* gNodeInfoManagerLeakPRLog;
#endif
PLHashNumber PLHashNumber
nsNodeInfoManager::GetNodeInfoInnerHashValue(const void *key) nsNodeInfoManager::GetNodeInfoInnerHashValue(const void *key)
{ {
@ -91,6 +101,15 @@ nsNodeInfoManager::nsNodeInfoManager()
{ {
nsLayoutStatics::AddRef(); nsLayoutStatics::AddRef();
#ifdef PR_LOGGING
if (!gNodeInfoManagerLeakPRLog)
gNodeInfoManagerLeakPRLog = PR_NewLogModule("NodeInfoManagerLeak");
if (gNodeInfoManagerLeakPRLog)
PR_LOG(gNodeInfoManagerLeakPRLog, PR_LOG_DEBUG,
("NODEINFOMANAGER %p created", this));
#endif
mNodeInfoHash = PL_NewHashTable(32, GetNodeInfoInnerHashValue, mNodeInfoHash = PL_NewHashTable(32, GetNodeInfoInnerHashValue,
NodeInfoInnerKeyCompare, NodeInfoInnerKeyCompare,
PL_CompareValues, nsnull, nsnull); PL_CompareValues, nsnull, nsnull);
@ -105,6 +124,12 @@ nsNodeInfoManager::~nsNodeInfoManager()
// Note: mPrincipal may be null here if we never got inited correctly // Note: mPrincipal may be null here if we never got inited correctly
NS_IF_RELEASE(mPrincipal); NS_IF_RELEASE(mPrincipal);
#ifdef PR_LOGGING
if (gNodeInfoManagerLeakPRLog)
PR_LOG(gNodeInfoManagerLeakPRLog, PR_LOG_DEBUG,
("NODEINFOMANAGER %p destroyed", this));
#endif
nsLayoutStatics::Release(); nsLayoutStatics::Release();
} }
@ -150,6 +175,12 @@ nsNodeInfoManager::Init(nsIDocument *aDocument)
mDocument = aDocument; mDocument = aDocument;
#ifdef PR_LOGGING
if (gNodeInfoManagerLeakPRLog)
PR_LOG(gNodeInfoManagerLeakPRLog, PR_LOG_DEBUG,
("NODEINFOMANAGER %p Init document=%p", this, aDocument));
#endif
return NS_OK; return NS_OK;
} }

Просмотреть файл

@ -121,7 +121,12 @@ function run() {
var m = rest.match(/^ (.*)$/); var m = rest.match(/^ (.*)$/);
if (!m) if (!m)
throw "URI expected"; throw "URI expected";
this.docs[addr][m[1]] = true; var uri = m[1];
var doc_info = this.docs[addr];
doc_info[uri] = true;
if ("nim" in doc_info) {
doc_info["nim"][uri] = true;
}
} }
} }
}, },
@ -130,7 +135,9 @@ function run() {
var doc = this.docs[addr]; var doc = this.docs[addr];
result += "Leaked document at address " + addr + ".\n"; result += "Leaked document at address " + addr + ".\n";
for (var uri in doc) { for (var uri in doc) {
result += " ... with URI \"" + uri + "\".\n"; if (uri != "nim") {
result += " ... with URI \"" + uri + "\".\n";
}
} }
} }
}, },
@ -181,6 +188,53 @@ function run() {
result += 'Leaked ' + len + ' out of ' + result += 'Leaked ' + len + ' out of ' +
this.count + " docshells\n"; this.count + " docshells\n";
} }
},
"NODEINFOMANAGER": {
count: 0,
nims: {},
handle_line: function(line) {
var match = line.match(/^([0-9a-f]*) (\S*)(.*)/);
if (match) {
var addr = match[1];
var verb = match[2];
var rest = match[3];
if (verb == "created") {
this.nims[addr] = {};
++this.count;
} else if (verb == "destroyed") {
delete this.nims[addr];
} else if (verb == "Init") {
var m = rest.match(/^ document=(.*)$/);
if (!m)
throw "document pointer expected";
var nim_info = this.nims[addr];
var doc = m[1];
if (doc != "0") {
var doc_info = handlers["DOCUMENT"].docs[doc];
for (var uri in doc_info) {
nim_info[uri] = true;
}
doc_info["nim"] = nim_info;
}
}
}
},
dump: function() {
for (var addr in this.nims) {
var nim = this.nims[addr];
result += "Leaked content nodes associated with node info manager at address " + addr + ".\n";
for (var uri in nim) {
result += " ... with document URI \"" + uri + "\".\n";
}
}
},
summary: function() {
var len = 0;
for (var w in this.nims)
++len;
result += 'Leaked content nodes in ' + len + ' out of ' +
this.count + " documents\n";
}
} }
}; };
@ -237,7 +291,7 @@ function run() {
<h1>Leak Gauge</h1> <h1>Leak Gauge</h1>
<pre>$Id: leak-gauge.html,v 1.6 2006-01-14 00:27:41 dbaron%dbaron.org Exp $</pre> <pre>$Id: leak-gauge.html,v 1.7 2008-02-08 19:55:03 dbaron%dbaron.org Exp $</pre>
<p>This script is designed to help testers isolate and simplify testcases <p>This script is designed to help testers isolate and simplify testcases
for many classes of leaks (those that involve large graphs of core for many classes of leaks (those that involve large graphs of core
@ -249,7 +303,7 @@ leak. Once a site is known to leak, the logging can then be repeated
to figure out under what conditions the leak occurs.</p> to figure out under what conditions the leak occurs.</p>
<p>The way to create this log is to set the environment variables:</p> <p>The way to create this log is to set the environment variables:</p>
<pre> NSPR_LOG_MODULES=DOMLeak:5,DocumentLeak:5,nsDocShellLeak:5 <pre> NSPR_LOG_MODULES=DOMLeak:5,DocumentLeak:5,nsDocShellLeak:5,NodeInfoManagerLeak:5
NSPR_LOG_FILE=nspr.log <i>(or any other filename of your choice)</i></pre> NSPR_LOG_FILE=nspr.log <i>(or any other filename of your choice)</i></pre>
<p>in your shell and then run the program.</p> <p>in your shell and then run the program.</p>
<ul> <ul>

Просмотреть файл

@ -36,7 +36,7 @@
# #
# ***** END LICENSE BLOCK ***** # ***** END LICENSE BLOCK *****
# $Id: leak-gauge.pl,v 1.7 2006-01-14 00:27:41 dbaron%dbaron.org Exp $ # $Id: leak-gauge.pl,v 1.8 2008-02-08 19:55:03 dbaron%dbaron.org Exp $
# This script is designed to help testers isolate and simplify testcases # This script is designed to help testers isolate and simplify testcases
# for many classes of leaks (those that involve large graphs of core # for many classes of leaks (those that involve large graphs of core
# data structures) in Mozilla-based browsers. It is designed to print # data structures) in Mozilla-based browsers. It is designed to print
@ -47,7 +47,7 @@
# to figure out under what conditions the leak occurs. # to figure out under what conditions the leak occurs.
# #
# The way to create this log is to set the environment variables: # The way to create this log is to set the environment variables:
# NSPR_LOG_MODULES=DOMLeak:5,DocumentLeak:5,nsDocShellLeak:5 # NSPR_LOG_MODULES=DOMLeak:5,DocumentLeak:5,nsDocShellLeak:5,NodeInfoManagerLeak:5
# NSPR_LOG_FILE=nspr.log (or any other filename of your choice) # NSPR_LOG_FILE=nspr.log (or any other filename of your choice)
# in your shell and then run the program. # in your shell and then run the program.
# * In a Windows command prompt, set environment variables with # * In a Windows command prompt, set environment variables with
@ -127,7 +127,9 @@ my $handlers = {
docs => {}, docs => {},
handle_line => sub($$) { handle_line => sub($$) {
my ($self, $line) = @_; my ($self, $line) = @_;
my $docs = ${$self}{docs}; # This doesn't work; I don't have time to figure out why not.
# my $docs = ${$self}{docs};
my $docs = ${$handlers}{"DOCUMENT"}{docs};
if ($line =~ /^([0-9a-f]*) (\S*)/) { if ($line =~ /^([0-9a-f]*) (\S*)/) {
my ($addr, $verb, $rest) = ($1, $2, $'); my ($addr, $verb, $rest) = ($1, $2, $');
if ($verb eq "created") { if ($verb eq "created") {
@ -139,7 +141,11 @@ my $handlers = {
$verb eq "StartDocumentLoad") { $verb eq "StartDocumentLoad") {
$rest =~ /^ (.*)$/ || die "URI expected"; $rest =~ /^ (.*)$/ || die "URI expected";
my $uri = $1; my $uri = $1;
${${$docs}{$addr}}{$uri} = 1; my $doc_info = ${$docs}{$addr};
${$doc_info}{$uri} = 1;
if (exists(${$doc_info}{"nim"})) {
${$doc_info}{"nim"}{$uri} = 1;
}
} }
} }
}, },
@ -149,7 +155,7 @@ my $handlers = {
foreach my $addr (keys(%{$docs})) { foreach my $addr (keys(%{$docs})) {
print "Leaked document at address $addr.\n"; print "Leaked document at address $addr.\n";
foreach my $uri (keys(%{${$docs}{$addr}})) { foreach my $uri (keys(%{${$docs}{$addr}})) {
print " ... with URI \"$uri\".\n"; print " ... with URI \"$uri\".\n" unless $uri eq "nim";
} }
} }
}, },
@ -197,6 +203,51 @@ my $handlers = {
print 'Leaked ' . keys(%{$shells}) . ' out of ' . print 'Leaked ' . keys(%{$shells}) . ' out of ' .
${$self}{count} . " docshells\n"; ${$self}{count} . " docshells\n";
} }
},
"NODEINFOMANAGER" => {
count => 0,
nims => {},
handle_line => sub($$) {
my ($self, $line) = @_;
my $nims = ${$self}{nims};
if ($line =~ /^([0-9a-f]*) (\S*)/) {
my ($addr, $verb, $rest) = ($1, $2, $');
if ($verb eq "created") {
${$nims}{$addr} = {};
++${$self}{count};
} elsif ($verb eq "destroyed") {
delete ${$nims}{$addr};
} elsif ($verb eq "Init") {
$rest =~ /^ document=(.*)$/ ||
die "document pointer expected";
my $doc = $1;
if ($doc ne "0") {
my $nim_info = ${$nims}{$addr};
my $doc_info = ${$handlers}{"DOCUMENT"}{docs}{$doc};
foreach my $uri (keys(%{$doc_info})) {
${$nim_info}{$uri} = 1;
}
${$doc_info}{"nim"} = $nim_info;
}
}
}
},
dump => sub ($) {
my ($self) = @_;
my $nims = ${$self}{nims};
foreach my $addr (keys(%{$nims})) {
print "Leaked content nodes associated with node info manager at address $addr.\n";
foreach my $uri (keys(%{${$nims}{$addr}})) {
print " ... with document URI \"$uri\".\n";
}
}
},
summary => sub($) {
my ($self) = @_;
my $nims = ${$self}{nims};
print 'Leaked content nodes within ' . keys(%{$nims}) . ' out of ' .
${$self}{count} . " documents\n";
}
} }
}; };