Lines Matching refs:callstack
125 # count stack frames backwards from end of callstack
133 # start at beginning of callstack
137 my $callstack = substr($line, $callstackBegin + 2); # + 2 skips "| "
139 if ($callstack =~ $regexp) {
140 $callstack = $regexp . "\n";
145 if (!$callstacks{$callstack}) {
146 $callstacks{$callstack} = {"callCount" => 0, "byteCount" => 0};
149 $callstacks{$callstack}{"callCount"} += $callCount;
150 $callstacks{$callstack}{"byteCount"} += $byteCount;
154 for my $callstack (sort { $callstacks{$b}{"byteCount"} <=> $callstacks{$a}{"byteCount"} } keys %callstacks) {
155 my $callCount = $callstacks{$callstack}{"callCount"};
156 my $byteCount = $callstacks{$callstack}{"byteCount"};
160 print commify($callCount) . " calls for " . commify($byteCount) . " bytes: $callstack\n";
