mozilla
/
pjs
зеркало из https://github.com/mozilla/pjs.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

Initial check in of a tool to calc deltas of bloat snap shots.

This commit is contained in:
kandrot%netscape.com 2000-11-02 06:45:26 +00:00
Родитель 8e11ee5cb9
Коммит a1d63d78a0
1 изменённых файлов: 53 добавлений и 0 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

53
tools/trace-malloc/merge.pl Executable file
Просмотреть файл

@ -0,0 +1,53 @@
#!/usr/bin/perl
$argv = $ARGV[0];
open( bloatFile, $argv ) or die "Can't open $argv: $!\n";
while (<bloatFile>) {
if (/name=/) {
($td,$name,$func,$a,$ntd) = split(/>/, $_);
($fname, $memSize) = split( /&nbsp;/, $func );
($trash, $linkName) = split( /"/, $name );
$namesLinks{$fname} = $linkName;
if ($namesSizes{$fname}) {
$namesSizes{$fname} = $namesSizes{$fname} + $memSize;
}
else {
$namesSizes{$fname} = $memSize;
}
}
}
$argv = $ARGV[1];
if ($argv)
{
open( bloatFile, $argv ) or die "Can't open $argv: $!\n";
while (<bloatFile>) {
if (/name=/) {
($td,$name,$func,$a,$ntd) = split(/>/, $_);
($fname, $memSize) = split( /&nbsp;/, $func );
$namesSizes{$fname} = $namesSizes{$fname} - $memSize;
}
}
}
sub byvalue { $namesSizes{$b} <=> $namesSizes{$a} }
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">';
print "\n<html><head>\n";
print "<title>Bloat Blame Delta</title>\n";
print '<link rel="stylesheet" type="text/css" href="blame.css">';
print "\n</head>\n<body>\n<table>\n";
print "<thead><tr><td>Memory Allocated</td><td>Function Name</td><td>Link</td></tr></thead>\n";
foreach $key (sort byvalue keys %namesSizes) {
if ($namesSizes{$key})
{
print "<tr>\n";
print ' <td>', $namesSizes{$key},"</td>\n";
print " <td> <a href=\"$ARGV[0]#$namesLinks{$key}\">", $key, "</a></td>\n";
print "</tr>\n"
}
}
print "</table>\n</body></html>";