37 #include "../../../perf.h" 38 #include "../../../util/trace-event.h" 40 #ifndef PERL_UNUSED_VAR 41 # define PERL_UNUSED_VAR(var) if (0) var = var 46 XS(XS_Perf__Trace__Context_common_pc);
47 XS(XS_Perf__Trace__Context_common_pc)
55 Perl_croak(aTHX_
"Usage: %s(%s)",
"Perf::Trace::Context::common_pc",
"context");
63 XSprePUSH; PUSHi((IV)RETVAL);
69 XS(XS_Perf__Trace__Context_common_flags);
70 XS(XS_Perf__Trace__Context_common_flags)
78 Perl_croak(aTHX_
"Usage: %s(%s)",
"Perf::Trace::Context::common_flags",
"context");
86 XSprePUSH; PUSHi((IV)RETVAL);
92 XS(XS_Perf__Trace__Context_common_lock_depth);
93 XS(XS_Perf__Trace__Context_common_lock_depth)
101 Perl_croak(aTHX_
"Usage: %s(%s)",
"Perf::Trace::Context::common_lock_depth",
"context");
109 XSprePUSH; PUSHi((IV)RETVAL);
125 const char* file = __FILE__;
129 XS_VERSION_BOOTCHECK ;
131 newXSproto(
"Perf::Trace::Context::common_pc", XS_Perf__Trace__Context_common_pc, file,
"$");
132 newXSproto(
"Perf::Trace::Context::common_flags", XS_Perf__Trace__Context_common_flags, file,
"$");
133 newXSproto(
"Perf::Trace::Context::common_lock_depth", XS_Perf__Trace__Context_common_lock_depth, file,
"$");
135 call_list(PL_scopestack_ix, PL_unitcheckav);
int common_flags(struct scripting_context *context)
void boot_Perf__Trace__Context(pTHX_ CV *cv)
int common_pc(struct scripting_context *context)
#define PERL_UNUSED_VAR(var)
int common_lock_depth(struct scripting_context *context)
XS(XS_Perf__Trace__Context_common_pc)