diff options
| author | Shawn M Moore <sartak@bestpractical.com> | 2011-07-06 22:35:47 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-11 20:29:55 -0700 |
| commit | cb3f81892d39d9404a61efa6a7efd0c627dd6870 (patch) | |
| tree | 162a5038ad7d6d6e66190a6d6b1be64ab736bda8 /mydtrace.h | |
| parent | ca7b837b497c7593dd1e10c394a96b3b71835897 (diff) | |
| download | perl-cb3f81892d39d9404a61efa6a7efd0c627dd6870.tar.gz | |
Add a phase-change DTrace probe
Diffstat (limited to 'mydtrace.h')
| -rw-r--r-- | mydtrace.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/mydtrace.h b/mydtrace.h index 75e6918015..a7a4e470c6 100644 --- a/mydtrace.h +++ b/mydtrace.h @@ -23,11 +23,17 @@ PERL_SUB_RETURN(func, file, line, stash); \ } +# define PHASE_CHANGE_PROBE(new_phase, old_phase) \ + if (PERL_PHASE_CHANGE_ENABLED()) { \ + PERL_PHASE_CHANGE(new_phase, old_phase); \ + } + #else /* NOPs */ # define ENTRY_PROBE(func, file, line, stash) # define RETURN_PROBE(func, file, line, stash) +# define PHASE_CHANGE_PROBE(new_phase, old_phase) #endif |