This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Configure: silence 'dtrace -G' probe
[perl5.git] / mydtrace.h
CommitLineData
5ac1e9b2
AA
1/* mydtrace.h
2 *
2eee27d7 3 * Copyright (C) 2008, 2010, 2011 by Larry Wall and others
5ac1e9b2
AA
4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 * Provides macros that wrap the various DTrace probes we use. We add
9 * an extra level of wrapping to encapsulate the _ENABLED tests.
10 */
11
12#if defined(USE_DTRACE) && defined(PERL_CORE)
13
14# include "perldtrace.h"
15
ee3ace03
TC
16# if defined(STAP_PROBE_ADDR) && !defined(DEBUGGING)
17
18/* SystemTap 1.2 uses a construct that chokes on passing a char array
19 * as a char *, in this case hek_key in struct hek. Workaround it
20 * with a temporary.
21 */
22
23# define ENTRY_PROBE(func, file, line, stash) \
24 if (PERL_SUB_ENTRY_ENABLED()) { \
25 const char *tmp_func = func; \
26 PERL_SUB_ENTRY(tmp_func, file, line, stash); \
27 }
28
29# define RETURN_PROBE(func, file, line, stash) \
30 if (PERL_SUB_RETURN_ENABLED()) { \
31 const char *tmp_func = func; \
32 PERL_SUB_RETURN(tmp_func, file, line, stash); \
33 }
34
32aeab29
SM
35# define LOADING_FILE_PROBE(name) \
36 if (PERL_LOADING_FILE_ENABLED()) { \
37 const char *tmp_name = name; \
38 PERL_LOADING_FILE(tmp_name); \
39 }
40
41# define LOADED_FILE_PROBE(name) \
42 if (PERL_LOADED_FILE_ENABLED()) { \
43 const char *tmp_name = name; \
44 PERL_LOADED_FILE(tmp_name); \
45 }
46
ee3ace03
TC
47# else
48
49# define ENTRY_PROBE(func, file, line, stash) \
3e2413e5
DL
50 if (PERL_SUB_ENTRY_ENABLED()) { \
51 PERL_SUB_ENTRY(func, file, line, stash); \
5ac1e9b2
AA
52 }
53
ee3ace03 54# define RETURN_PROBE(func, file, line, stash) \
3e2413e5
DL
55 if (PERL_SUB_RETURN_ENABLED()) { \
56 PERL_SUB_RETURN(func, file, line, stash); \
5ac1e9b2
AA
57 }
58
32aeab29
SM
59# define LOADING_FILE_PROBE(name) \
60 if (PERL_LOADING_FILE_ENABLED()) { \
61 PERL_LOADING_FILE(name); \
62 }
63
64# define LOADED_FILE_PROBE(name) \
65 if (PERL_LOADED_FILE_ENABLED()) { \
66 PERL_LOADED_FILE(name); \
67 }
68
ee3ace03
TC
69# endif
70
2f445b24
TC
71# define OP_ENTRY_PROBE(name) \
72 if (PERL_OP_ENTRY_ENABLED()) { \
73 PERL_OP_ENTRY(name); \
74 }
75
cb3f8189
SM
76# define PHASE_CHANGE_PROBE(new_phase, old_phase) \
77 if (PERL_PHASE_CHANGE_ENABLED()) { \
78 PERL_PHASE_CHANGE(new_phase, old_phase); \
79 }
80
5ac1e9b2
AA
81#else
82
83/* NOPs */
3e2413e5
DL
84# define ENTRY_PROBE(func, file, line, stash)
85# define RETURN_PROBE(func, file, line, stash)
cb3f8189 86# define PHASE_CHANGE_PROBE(new_phase, old_phase)
fe83c362 87# define OP_ENTRY_PROBE(name)
32aeab29
SM
88# define LOADING_FILE_PROBE(name)
89# define LOADED_FILE_PROBE(name)
5ac1e9b2
AA
90
91#endif
92
93/*
14d04a33 94 * ex: set ts=8 sts=4 sw=4 et:
5ac1e9b2 95 */