Revision: 995
Author: [email protected]
Date: Wed Dec 23 09:38:36 2009
Log: Need to map the fids for TIME_BLOCK and TIME_LINE
http://code.google.com/p/perl-devel-nytprof/source/detail?r=995
Modified:
/trunk/bin/nytprofmerge
=======================================
--- /trunk/bin/nytprofmerge Wed Dec 23 09:38:31 2009
+++ /trunk/bin/nytprofmerge Wed Dec 23 09:38:36 2009
@@ -68,6 +68,8 @@
sub _time_block_or_line {
my ($tag, undef, undef, $ticks, $fid, $line, $block_line, $sub_line) =
@_;
my $is_line = $tag eq 'TIME_LINE';
+ confess("No mapping for $fid") unless defined $fids{$fid};
+ $fid = $fids{$fid};
$out->write($is_line ? '+' : '*');
$out->output_int($ticks, $fid, $line);
if (!$is_line) {
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
