Transform the loop in rpeep that handles the undeferred ops

[perl5.git] / mydtrace.h

diff --git a/mydtrace.h b/mydtrace.h
index daabcfa..a7a4e47 100644 (file)
--- a/mydtrace.h
+++ b/mydtrace.h
@@ -13,21 +13,27 @@
 
 #  include "perldtrace.h"
 
-#  define ENTRY_PROBE(func, file, line)        \
-    if (PERL_SUB_ENTRY_ENABLED()) {            \
-       PERL_SUB_ENTRY(func, file, line);       \
+#  define ENTRY_PROBE(func, file, line, stash)         \
+    if (PERL_SUB_ENTRY_ENABLED()) {                    \
+       PERL_SUB_ENTRY(func, file, line, stash);        \
     }
 
-#  define RETURN_PROBE(func, file, line)       \
-    if (PERL_SUB_RETURN_ENABLED()) {           \
-       PERL_SUB_RETURN(func, file, line);      \
+#  define RETURN_PROBE(func, file, line, stash)        \
+    if (PERL_SUB_RETURN_ENABLED()) {                   \
+       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)
-#  define RETURN_PROBE(func, file, line)
+#  define ENTRY_PROBE(func, file, line, stash)
+#  define RETURN_PROBE(func, file, line, stash)
+#  define PHASE_CHANGE_PROBE(new_phase, old_phase)
 
 #endif