Revision: 1104
Author: [email protected]
Date: Mon Mar 8 01:46:21 2010
Log: Add a wrapper for NYTP_write_process_start and use it from
nytprofmerge.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1104
Modified:
/trunk/FileHandle.xs
/trunk/bin/nytprofmerge
=======================================
--- /trunk/FileHandle.xs Mon Mar 8 01:46:15 2010
+++ /trunk/FileHandle.xs Mon Mar 8 01:46:21 2010
@@ -850,3 +850,10 @@
RETVAL = NYTP_write_attribute_string(handle, key_p, key_len,
value_p, value_len);
OUTPUT:
RETVAL
+
+size_t
+NYTP_write_process_start(handle, pid, ppid, time_of_day)
+NYTP_file handle
+unsigned int pid
+unsigned int ppid
+NV time_of_day
=======================================
--- /trunk/bin/nytprofmerge Mon Mar 8 01:45:48 2010
+++ /trunk/bin/nytprofmerge Mon Mar 8 01:46:21 2010
@@ -135,9 +135,7 @@
PID_START => sub {
my (undef, $pid, $parent, $time) = @_;
- $out->write('P');
- $out->output_int($pid, $parent);
- $out->output_nv($time);
+ $out->write_process_start($pid, $parent, $time);
},
PID_END => sub {
my (undef, $pid, $time) = @_;
--
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]
