Revision: 1261
Author: [email protected]
Date: Tue Jun 1 06:17:55 2010
Log: Remove the "extra items" count the sub_info entries in the profile
file.
The callback interface doesn't change, as it was never passing the extra
items
out to Perl space.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1261
Modified:
/trunk/FileHandle.xs
/trunk/NYTProf.xs
=======================================
--- /trunk/FileHandle.xs Tue Jun 1 06:17:33 2010
+++ /trunk/FileHandle.xs Tue Jun 1 06:17:55 2010
@@ -1004,9 +1004,6 @@
if (retval < 1)
return retval;
- /* FIXME. Next time we change the file format, remove this: */
- /* how many extra items follow */
- total += retval = output_int(ofile, 0);
if (retval < 1)
return retval;
=======================================
--- /trunk/NYTProf.xs Tue Jun 1 06:17:33 2010
+++ /trunk/NYTProf.xs Tue Jun 1 06:17:55 2010
@@ -4468,10 +4468,6 @@
SV *subname_sv = read_str(aTHX_ in, tmp_str1_sv);
unsigned int first_line = read_int(in);
unsigned int last_line = read_int(in);
- int extra_items = read_int(in);
-
- while (extra_items-- > 0)
- (void)read_int(in);
callbacks[nytp_sub_info](state, nytp_sub_info, fid,
first_line, last_line,
subname_sv);
--
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]
