1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3 * This file was generated automatically by ExtUtils::ParseXS version 2.18_02 from the
4 * contents of Context.xs. Do not edit this file, edit Context.xs instead.
5 *
6 * ANY CHANGES MADE HERE WILL BE LOST!
7 */
8 #include <stdbool.h>
9 #ifndef HAS_BOOL
10 # define HAS_BOOL 1
11 #endif
12 #line 1 "Context.xs"
13 /*
14 * Context.xs. XS interfaces for perf script.
15 *
16 * Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com>
17 */
18
19 #include "EXTERN.h"
20 #include "perl.h"
21 #include "XSUB.h"
22 #include "../../../util/trace-event.h"
23
24 #ifndef PERL_UNUSED_VAR
25 # define PERL_UNUSED_VAR(var) if (0) var = var
26 #endif
27
28 #line 42 "Context.c"
29
30 XS(XS_Perf__Trace__Context_common_pc); /* prototype to pass -Wmissing-prototypes */
31 XS(XS_Perf__Trace__Context_common_pc)
32 {
33 #ifdef dVAR
34 dVAR; dXSARGS;
35 #else
36 dXSARGS;
37 #endif
38 if (items != 1)
39 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_pc", "context");
40 PERL_UNUSED_VAR(cv); /* -W */
41 {
42 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
43 int RETVAL;
44 dXSTARG;
45
46 RETVAL = common_pc(context);
47 XSprePUSH; PUSHi((IV)RETVAL);
48 }
49 XSRETURN(1);
50 }
51
52
53 XS(XS_Perf__Trace__Context_common_flags); /* prototype to pass -Wmissing-prototypes */
54 XS(XS_Perf__Trace__Context_common_flags)
55 {
56 #ifdef dVAR
57 dVAR; dXSARGS;
58 #else
59 dXSARGS;
60 #endif
61 if (items != 1)
62 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_flags", "context");
63 PERL_UNUSED_VAR(cv); /* -W */
64 {
65 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
66 int RETVAL;
67 dXSTARG;
68
69 RETVAL = common_flags(context);
70 XSprePUSH; PUSHi((IV)RETVAL);
71 }
72 XSRETURN(1);
73 }
74
75
76 XS(XS_Perf__Trace__Context_common_lock_depth); /* prototype to pass -Wmissing-prototypes */
77 XS(XS_Perf__Trace__Context_common_lock_depth)
78 {
79 #ifdef dVAR
80 dVAR; dXSARGS;
81 #else
82 dXSARGS;
83 #endif
84 if (items != 1)
85 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_lock_depth", "context");
86 PERL_UNUSED_VAR(cv); /* -W */
87 {
88 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
89 int RETVAL;
90 dXSTARG;
91
92 RETVAL = common_lock_depth(context);
93 XSprePUSH; PUSHi((IV)RETVAL);
94 }
95 XSRETURN(1);
96 }
97
98 #ifdef __cplusplus
99 extern "C"
100 #endif
101 XS(boot_Perf__Trace__Context); /* prototype to pass -Wmissing-prototypes */
102 XS(boot_Perf__Trace__Context)
103 {
104 #ifdef dVAR
105 dVAR; dXSARGS;
106 #else
107 dXSARGS;
108 #endif
109 const char* file = __FILE__;
110
111 PERL_UNUSED_VAR(cv); /* -W */
112 PERL_UNUSED_VAR(items); /* -W */
113 XS_VERSION_BOOTCHECK ;
114
115 newXSproto("Perf::Trace::Context::common_pc", XS_Perf__Trace__Context_common_pc, file, "$");
116 newXSproto("Perf::Trace::Context::common_flags", XS_Perf__Trace__Context_common_flags, file, "$");
117 newXSproto("Perf::Trace::Context::common_lock_depth", XS_Perf__Trace__Context_common_lock_depth, file, "$");
118 if (PL_unitcheckav)
119 call_list(PL_scopestack_ix, PL_unitcheckav);
120 XSRETURN_YES;
121 }
122
123
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.