Commit 8f48ec61ae for perl
commit 8f48ec61ae64715b750d96fdcee92659c49a88c9
Author: Sevan Janiyan <venture37@geeklan.co.uk>
Date: Tue Oct 6 17:54:29 2026 +0100
mydtrace.h: Use the correct matching macro
For each probe which is defined in perltrace.d, a corresponding macro
which contans a snipet of assembly code to check if the probe is enabled
is generated during the Perl build process and saved into perldtrace.h.
Use the correct macro to check if the probe in question is enabled, rather
than always checking if the subroutine entry probe (perl*:::sub-entry) is
enabled, regardless of the actual probe desired.
Part of issue #24860
diff --git a/mydtrace.h b/mydtrace.h
index 6c66a08509..5b2805fe15 100644
--- a/mydtrace.h
+++ b/mydtrace.h
@@ -18,15 +18,15 @@
Perl_dtrace_probe_call(aTHX_ cv, TRUE);
# define PERL_DTRACE_PROBE_RETURN(cv) \
- if (PERL_SUB_ENTRY_ENABLED()) \
+ if (PERL_SUB_RETURN_ENABLED()) \
Perl_dtrace_probe_call(aTHX_ cv, FALSE);
# define PERL_DTRACE_PROBE_FILE_LOADING(name) \
- if (PERL_SUB_ENTRY_ENABLED()) \
+ if (PERL_LOADING_FILE_ENABLED()) \
Perl_dtrace_probe_load(aTHX_ name, TRUE);
# define PERL_DTRACE_PROBE_FILE_LOADED(name) \
- if (PERL_SUB_ENTRY_ENABLED()) \
+ if (PERL_LOADED_FILE_ENABLED()) \
Perl_dtrace_probe_load(aTHX_ name, FALSE);
# define PERL_DTRACE_PROBE_OP(op) \
@@ -34,7 +34,7 @@
Perl_dtrace_probe_op(aTHX_ op);
# define PERL_DTRACE_PROBE_PHASE(phase) \
- if (PERL_OP_ENTRY_ENABLED()) \
+ if (PERL_PHASE_CHANGE_ENABLED()) \
Perl_dtrace_probe_phase(aTHX_ phase);
#else