Commit | Line | Data |
---|---|---|
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 | */ |