Revision: 897 Author: tim.bunce Date: Wed Nov 11 02:05:00 2009 Log: Update slowops list generation to match current state and document some issues
http://code.google.com/p/perl-devel-nytprof/source/detail?r=897 Modified: /trunk/Makefile.PL /trunk/slowops.h ======================================= --- /trunk/Makefile.PL Fri Oct 2 14:39:08 2009 +++ /trunk/Makefile.PL Wed Nov 11 02:05:00 2009 @@ -191,10 +191,13 @@ prove:: pure_all time nice prove -b -j 9 --shuffle +# not require because it confuses the call-graph +# not fork because it doesn't make much sense +# not substcont yet - needs more work XXX slowops:: perl -MOpcode=opset_to_ops,opset \ -e 'print "/* generated by Makefile.PL for perl $$] */\n";' \ - -e 'my @ops = opset_to_ops(opset(":base_io",":filesys_read",":filesys_write",":filesys_open",":sys_db",":subprocess",":others",qw(rand srand match subst substcont qr regcomp prtf crypt chdir flock ioctl socket getpeername ssockopt bind connect listen accept shutdown gsockopt getsockname sleep sort pack unpack require dofile syscall dump chroot dbmopen dbmclose lock sselect select),"!fileno"));' \ + -e 'my @ops = opset_to_ops(opset(":base_io",":filesys_read",":filesys_write",":filesys_open",":sys_db",":subprocess",":others",qw(rand srand match subst substcont qr regcomp prtf crypt chdir flock ioctl socket getpeername ssockopt bind connect listen accept shutdown gsockopt getsockname sleep sort pack unpack dofile syscall dump chroot dbmopen dbmclose lock sselect select), qw(!fileno !require !fork !substcont)));' \ -e 'print "PL_ppaddr[OP_\U$$_\E] = pp_slowop_profiler;\n" for sort @ops;' \ > slowops.h ======================================= --- /trunk/slowops.h Thu Oct 29 10:45:04 2009 +++ /trunk/slowops.h Wed Nov 11 02:05:00 2009 @@ -104,7 +104,6 @@ PL_ppaddr[OP_RECV] = pp_slowop_profiler; PL_ppaddr[OP_REGCOMP] = pp_slowop_profiler; PL_ppaddr[OP_RENAME] = pp_slowop_profiler; -/* PL_ppaddr[OP_REQUIRE] = pp_slowop_profiler; XXX some corruption somewhere */ PL_ppaddr[OP_REWINDDIR] = pp_slowop_profiler; PL_ppaddr[OP_RMDIR] = pp_slowop_profiler; PL_ppaddr[OP_SEEK] = pp_slowop_profiler; @@ -133,7 +132,6 @@ PL_ppaddr[OP_SSOCKOPT] = pp_slowop_profiler; PL_ppaddr[OP_STAT] = pp_slowop_profiler; PL_ppaddr[OP_SUBST] = pp_slowop_profiler; -/*PL_ppaddr[OP_SUBSTCONT] = pp_slowop_profiler; XXX needs special handling like OP_GOTO */ PL_ppaddr[OP_SYMLINK] = pp_slowop_profiler; PL_ppaddr[OP_SYSCALL] = pp_slowop_profiler; PL_ppaddr[OP_SYSOPEN] = pp_slowop_profiler; --~--~---------~--~----~------------~-------~--~----~ 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] -~----------~----~----~----~------~----~------~--~---
