Revision: 858 Author: tim.bunce Date: Mon Aug 31 15:04:34 2009 Log: Fix test results for tests that don't call subs from "main::RUNTIME". Add some comment notes re main::RUNTIME in NYTProf.xs. Add note to Changes re desire to update and test new JIT release.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=858 Modified: /trunk/Changes /trunk/NYTProf.xs /trunk/t/test08.rdt /trunk/t/test12.rdt /trunk/t/test23-strevall.rdt ======================================= --- /trunk/Changes Thu Aug 6 17:22:16 2009 +++ /trunk/Changes Mon Aug 31 15:04:34 2009 @@ -10,6 +10,7 @@ XXX subroutine profiler docs need update XXX doc findcaller option XXX note here and doc goto behaviour +XXX update and test JIT Note: The file format has changed. Old files can't be read. ======================================= --- /trunk/NYTProf.xs Tue Aug 11 11:57:51 2009 +++ /trunk/NYTProf.xs Mon Aug 31 15:04:34 2009 @@ -2443,7 +2443,12 @@ subr_entry->caller_subnam_sv = newSV(0); /* XXX add cache/stack thing for these SVs */ if (caller_cv == PL_main_cv) { - /* PL_main_cv is run-time main (compile, eg 'use', is main::BEGIN) */ + /* PL_main_cv is run-time main (compile-time, eg 'use', is a main::BEGIN) */ + /* We don't record timing data for main::RUNTIME because timing data + * is stored per calling location, and there is no calling location. + * XXX Currently we don't output a subinfo for main::RUNTIME unless + * some sub is called from main::RUNTIME. That may change. + */ subr_entry->caller_subpkg_pv = "main"; sv_setpv(subr_entry->caller_subnam_sv, "RUNTIME"); /* *cough* */ ++main_runtime_used; ======================================= --- /trunk/t/test08.rdt Thu Aug 6 19:20:50 2009 +++ /trunk/t/test08.rdt Mon Aug 31 15:04:34 2009 @@ -18,7 +18,6 @@ fid_block_time 1 1 2 2 [ 0 1 ] fid_fileinfo 1 [ test08.p 1 2 0 0 ] fid_fileinfo 1 sub main::BEGIN 0-0 -fid_fileinfo 1 sub main::RUNTIME 1-1 fid_fileinfo 1 eval 1 [ 1 0 ] fid_fileinfo 2 [ (eval 0)[test08.p:1] 1 1 2 2 0 0 ] fid_line_time 1 1 0 0 @@ -33,4 +32,3 @@ profile_modes fid_line_time line profile_modes fid_sub_time sub sub_subinfo main::BEGIN [ 1 0 0 0 0 0 0 0 ] -sub_subinfo main::RUNTIME [ 1 1 1 0 0 0 0 0 ] ======================================= --- /trunk/t/test12.rdt Thu Aug 6 19:20:50 2009 +++ /trunk/t/test12.rdt Mon Aug 31 15:04:34 2009 @@ -16,7 +16,6 @@ fid_block_time 2 1 [ 0 1 ] fid_fileinfo 1 [ test12.p 1 2 0 0 ] fid_fileinfo 1 sub main::BEGIN 0-0 -fid_fileinfo 1 sub main::RUNTIME 1-1 fid_fileinfo 2 [ test12.pl 2 2 0 0 ] fid_line_time 1 1 [ 0 1 ] fid_line_time 2 1 [ 0 1 ] @@ -26,4 +25,3 @@ profile_modes fid_line_time line profile_modes fid_sub_time sub sub_subinfo main::BEGIN [ 1 0 0 0 0 0 0 0 ] -sub_subinfo main::RUNTIME [ 1 1 1 0 0 0 0 0 ] ======================================= --- /trunk/t/test23-strevall.rdt Thu Aug 6 19:20:50 2009 +++ /trunk/t/test23-strevall.rdt Mon Aug 31 15:04:34 2009 @@ -18,7 +18,6 @@ fid_block_time 3 1 2 45 [ 0 1 ] fid_fileinfo 1 [ test23-strevall.p 1 2 0 0 ] fid_fileinfo 1 sub main::BEGIN 0-0 -fid_fileinfo 1 sub main::RUNTIME 1-1 fid_fileinfo 2 [ (eval 0) 3 1 2 2 0 0 ] fid_fileinfo 3 [ /unknown-eval-invoker 3 130 0 0 ] fid_fileinfo 3 eval 1 [ 1 0 ] @@ -34,4 +33,3 @@ profile_modes fid_line_time line profile_modes fid_sub_time sub sub_subinfo main::BEGIN [ 1 0 0 0 0 0 0 0 ] -sub_subinfo main::RUNTIME [ 1 1 1 0 0 0 0 0 ] --~--~---------~--~----~------------~-------~--~----~ 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] -~----------~----~----~----~------~----~------~--~---
