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 | ||
35 | # else | |
36 | ||
37 | # define ENTRY_PROBE(func, file, line, stash) \ | |
3e2413e5 DL |
38 | if (PERL_SUB_ENTRY_ENABLED()) { \ |
39 | PERL_SUB_ENTRY(func, file, line, stash); \ | |
5ac1e9b2 AA |
40 | } |
41 | ||
ee3ace03 | 42 | # define RETURN_PROBE(func, file, line, stash) \ |
3e2413e5 DL |
43 | if (PERL_SUB_RETURN_ENABLED()) { \ |
44 | PERL_SUB_RETURN(func, file, line, stash); \ | |
5ac1e9b2 AA |
45 | } |
46 | ||
ee3ace03 TC |
47 | # endif |
48 | ||
cb3f8189 SM |
49 | # define PHASE_CHANGE_PROBE(new_phase, old_phase) \ |
50 | if (PERL_PHASE_CHANGE_ENABLED()) { \ | |
51 | PERL_PHASE_CHANGE(new_phase, old_phase); \ | |
52 | } | |
53 | ||
5ac1e9b2 AA |
54 | #else |
55 | ||
56 | /* NOPs */ | |
3e2413e5 DL |
57 | # define ENTRY_PROBE(func, file, line, stash) |
58 | # define RETURN_PROBE(func, file, line, stash) | |
cb3f8189 | 59 | # define PHASE_CHANGE_PROBE(new_phase, old_phase) |
5ac1e9b2 AA |
60 | |
61 | #endif | |
62 | ||
63 | /* | |
64 | * Local variables: | |
65 | * c-indentation-style: bsd | |
66 | * c-basic-offset: 4 | |
14d04a33 | 67 | * indent-tabs-mode: nil |
5ac1e9b2 AA |
68 | * End: |
69 | * | |
14d04a33 | 70 | * ex: set ts=8 sts=4 sw=4 et: |
5ac1e9b2 | 71 | */ |