Revision: 1109
Author: [email protected]
Date: Mon Mar 8 01:46:57 2010
Log: Add wrappers for NYTP_write_time_block and NYTP_write_time_line, and
use them
from nytprofmerge.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1109
Modified:
/trunk/FileHandle.xs
/trunk/bin/nytprofmerge
=======================================
--- /trunk/FileHandle.xs Mon Mar 8 01:46:51 2010
+++ /trunk/FileHandle.xs Mon Mar 8 01:46:57 2010
@@ -992,3 +992,19 @@
SvUTF8(name) ? -(I32)len : (I32)len );
OUTPUT:
RETVAL
+
+size_t
+NYTP_write_time_block(handle, elapsed, fid, line, last_block_line,
last_sub_line)
+NYTP_file handle
+unsigned int elapsed
+unsigned int fid
+unsigned int line
+unsigned int last_block_line
+unsigned int last_sub_line
+
+size_t
+NYTP_write_time_line(handle, elapsed, fid, line)
+NYTP_file handle
+unsigned int elapsed
+unsigned int fid
+unsigned int line
=======================================
--- /trunk/bin/nytprofmerge Mon Mar 8 01:46:44 2010
+++ /trunk/bin/nytprofmerge Mon Mar 8 01:46:57 2010
@@ -69,11 +69,10 @@
my $mapped_fid = $map_range{$fid}[$line];
$fid = $mapped_fid if defined $mapped_fid;
- $out->write($is_line ? '+' : '*');
- $out->output_int($ticks, $fid, $line);
- if (!$is_line) {
- $out->output_int($block_line);
- $out->output_int($sub_line);
+ if ($is_line) {
+ $out->write_time_line($ticks, $fid, $line);
+ } else {
+ $out->write_time_block($ticks, $fid, $line, $block_line, $sub_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]
