X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/14d04a33467fd25c9767918f61a2bfaec64b0cfa..59b86f4bb520d35de8986fdf650c667e217cd9ba:/mydtrace.h?ds=sidebyside

diff --git a/mydtrace.h b/mydtrace.h
index 1c969ee..5093f46 100644
--- a/mydtrace.h
+++ b/mydtrace.h
@@ -32,6 +32,18 @@
 	PERL_SUB_RETURN(tmp_func, 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) 	\
@@ -44,8 +56,23 @@
 	PERL_SUB_RETURN(func, file, line, stash); 	\
     }
 
+#    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 OP_ENTRY_PROBE(name)	                \
+    if (PERL_OP_ENTRY_ENABLED()) {    		        \
+	PERL_OP_ENTRY(name); 	                        \
+    }
+
 #  define PHASE_CHANGE_PROBE(new_phase, old_phase)      \
     if (PERL_PHASE_CHANGE_ENABLED()) {                  \
 	PERL_PHASE_CHANGE(new_phase, old_phase);        \
@@ -57,6 +84,9 @@
 #  define ENTRY_PROBE(func, file, line, stash)
 #  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