From 32aeab29cd5db14b760cb77d37cd86d6878f0553 Mon Sep 17 00:00:00 2001 From: Shawn M Moore Date: Sun, 19 Aug 2012 17:12:27 +0200 Subject: "loading-file" and "loaded-file" DTrace probes --- mydtrace.h | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'mydtrace.h') 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 -- cgit v1.2.1