diff options
| author | Shawn M Moore <code@sartak.org> | 2012-08-19 17:12:27 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-28 07:13:56 -0700 |
| commit | 32aeab29cd5db14b760cb77d37cd86d6878f0553 (patch) | |
| tree | 232115738823a7ce0ced48c068a0af33b60bacf7 /mydtrace.h | |
| parent | fe83c362fb182e46bac02c1bd1cf0b8d82c9f1bf (diff) | |
| download | perl-32aeab29cd5db14b760cb77d37cd86d6878f0553.tar.gz | |
"loading-file" and "loaded-file" DTrace probes
Diffstat (limited to 'mydtrace.h')
| -rw-r--r-- | mydtrace.h | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/mydtrace.h b/mydtrace.h index 8ee130f609..951d1770a3 100644 --- a/mydtrace.h +++ b/mydtrace.h @@ -38,6 +38,18 @@ PERL_OP_ENTRY(tmp_name, file, line, stash); \ } +# define LOADING_FILE_PROBE(name) \ + if (PERL_LOADING_FILE_ENABLED()) { \ + const char *tmp_name = name; \ + PERL_LOADING_FILE(tmp_name); \ + } + +# define LOADED_FILE_PROBE(name) \ + if (PERL_LOADED_FILE_ENABLED()) { \ + const char *tmp_name = name; \ + PERL_LOADED_FILE(tmp_name); \ + } + # else # define ENTRY_PROBE(func, file, line, stash) \ @@ -55,6 +67,16 @@ PERL_OP_ENTRY(name); \ } +# define LOADING_FILE_PROBE(name) \ + if (PERL_LOADING_FILE_ENABLED()) { \ + PERL_LOADING_FILE(name); \ + } + +# define LOADED_FILE_PROBE(name) \ + if (PERL_LOADED_FILE_ENABLED()) { \ + PERL_LOADED_FILE(name); \ + } + # endif # define PHASE_CHANGE_PROBE(new_phase, old_phase) \ @@ -69,6 +91,8 @@ # define RETURN_PROBE(func, file, line, stash) # define PHASE_CHANGE_PROBE(new_phase, old_phase) # define OP_ENTRY_PROBE(name) +# define LOADING_FILE_PROBE(name) +# define LOADED_FILE_PROBE(name) #endif |