Revision: 893 Author: tim.bunce Date: Wed Oct 28 14:45:45 2009 Log: Resynced test62-subcaller1 results Fixed compiler warning. Noted things still todo in Changes
http://code.google.com/p/perl-devel-nytprof/source/detail?r=893 Modified: /trunk/Changes /trunk/NYTProf.xs /trunk/t/test62-subcaller1.rdt ======================================= --- /trunk/Changes Wed Oct 28 09:11:41 2009 +++ /trunk/Changes Wed Oct 28 14:45:45 2009 @@ -7,8 +7,10 @@ =head2 Changes in Devel::NYTProf 2.11 XXX subroutine profiler docs need update -XXX OP_SUBSTCONT +XXX OP_SUBSTCONT, OP_REQUIRE XXX should add test for embedded src code, incl string eval +XXX handling of BEGIN's e.g., Perl::Critic::Document (1.105) line 325 +XXX fix treemap Note: The file format has changed. Old files can't be read. ======================================= --- /trunk/NYTProf.xs Wed Oct 28 14:21:24 2009 +++ /trunk/NYTProf.xs Wed Oct 28 14:45:45 2009 @@ -2553,7 +2553,7 @@ caller_subr_entry ? caller_subr_entry->called_subpkg_pv : "(null)", (caller_subr_entry && caller_subr_entry->called_subnam_sv && SvOK(caller_subr_entry->called_subnam_sv)) ? SvPV_nolen(caller_subr_entry->called_subnam_sv) : "(null)", - cxstack_ix, caller_cv + (int)cxstack_ix, caller_cv ); } ======================================= --- /trunk/t/test62-subcaller1.rdt Wed Oct 28 08:22:30 2009 +++ /trunk/t/test62-subcaller1.rdt Wed Oct 28 14:45:45 2009 @@ -34,21 +34,16 @@ fid_fileinfo 1 sub MyTie::STORE 8-8 fid_fileinfo 1 sub MyTie::TIESCALAR 6-6 fid_fileinfo 1 sub main::BEGIN 0-0 -fid_fileinfo 1 sub main::CORE:require 0-0 fid_fileinfo 1 sub main::RUNTIME 1-1 fid_fileinfo 1 sub main::use_eval_arg 21-21 -fid_fileinfo 1 call 11 MyTie::TIESCALAR [ 1 0 0 0 0 0 0 main::NULL ] -fid_fileinfo 1 call 12 MyTie::STORE [ 1 0 0 0 0 0 0 main::NULL ] -fid_fileinfo 1 call 13 MyTie::FETCH [ 1 0 0 0 0 0 0 main::NULL ] -fid_fileinfo 1 call 16 main::CORE:require [ 1 0 0 0 0 0 0 main::RUNTIME ] +fid_fileinfo 1 call 11 MyTie::TIESCALAR [ 1 0 0 0 0 0 0 main::RUNTIME ] +fid_fileinfo 1 call 12 MyTie::STORE [ 1 0 0 0 0 0 0 main::RUNTIME ] +fid_fileinfo 1 call 13 MyTie::FETCH [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 1 call 17 Devel::NYTProf::Test::example_xsub [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 1 call 22 Devel::NYTProf::Test::example_xsub [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 1 call 22 main::use_eval_arg [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 2 [ Devel/NYTProf/Test.pm 2 2 0 0 ] -fid_fileinfo 2 sub Devel::NYTProf::Test::CORE:require 0-0 fid_fileinfo 2 sub Devel::NYTProf::Test::example_sub 13-13 -fid_fileinfo 2 call 7 Devel::NYTProf::Test::CORE:require [ 1 0 0 0 0 0 0 main::RUNTIME ] -fid_fileinfo 2 call 8 Devel::NYTProf::Test::CORE:require [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 3 [ Exporter.pm 3 2 0 0 ] fid_line_time 1 4 [ 0 1 ] fid_line_time 1 6 [ 0 1 ] @@ -87,22 +82,17 @@ profile_modes fid_block_time block profile_modes fid_line_time line profile_modes fid_sub_time sub -sub_subinfo Devel::NYTProf::Test::CORE:require [ 2 0 0 2 0 0 0 0 ] -sub_subinfo Devel::NYTProf::Test::CORE:require called_by 2 7 [ 1 0 0 0 0 0 0 main::RUNTIME ] -sub_subinfo Devel::NYTProf::Test::CORE:require called_by 2 8 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo Devel::NYTProf::Test::example_sub [ 2 13 13 0 0 0 0 0 ] sub_subinfo Devel::NYTProf::Test::example_xsub [ undef undef undef 2 0 0 0 0 ] sub_subinfo Devel::NYTProf::Test::example_xsub called_by 1 17 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo Devel::NYTProf::Test::example_xsub called_by 1 22 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo MyTie::FETCH [ 1 7 7 1 0 0 0 0 ] -sub_subinfo MyTie::FETCH called_by 1 13 [ 1 0 0 0 0 0 0 main::NULL ] +sub_subinfo MyTie::FETCH called_by 1 13 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo MyTie::STORE [ 1 8 8 1 0 0 0 0 ] -sub_subinfo MyTie::STORE called_by 1 12 [ 1 0 0 0 0 0 0 main::NULL ] +sub_subinfo MyTie::STORE called_by 1 12 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo MyTie::TIESCALAR [ 1 6 6 1 0 0 0 0 ] -sub_subinfo MyTie::TIESCALAR called_by 1 11 [ 1 0 0 0 0 0 0 main::NULL ] +sub_subinfo MyTie::TIESCALAR called_by 1 11 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo main::BEGIN [ 1 0 0 0 0 0 0 0 ] -sub_subinfo main::CORE:require [ 1 0 0 1 0 0 0 0 ] -sub_subinfo main::CORE:require called_by 1 16 [ 1 0 0 0 0 0 0 main::RUNTIME ] sub_subinfo main::RUNTIME [ 1 1 1 0 0 0 0 0 ] sub_subinfo main::use_eval_arg [ 1 21 21 1 0 0 0 0 ] sub_subinfo main::use_eval_arg called_by 1 22 [ 1 0 0 0 0 0 0 main::RUNTIME ] --~--~---------~--~----~------------~-------~--~----~ 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] -~----------~----~----~----~------~----~------~--~---
