34 #include "../../../perf.h"
35 #include "../../../util/trace-event.h"
37 #ifndef PERL_UNUSED_VAR
38 # define PERL_UNUSED_VAR(var) if (0) var = var
43 XS(XS_Perf__Trace__Context_common_pc);
44 XS(XS_Perf__Trace__Context_common_pc)
52 Perl_croak(aTHX_
"Usage: %s(%s)",
"Perf::Trace::Context::common_pc",
"context");
60 XSprePUSH; PUSHi((IV)RETVAL);
66 XS(XS_Perf__Trace__Context_common_flags);
67 XS(XS_Perf__Trace__Context_common_flags)
75 Perl_croak(aTHX_
"Usage: %s(%s)",
"Perf::Trace::Context::common_flags",
"context");
83 XSprePUSH; PUSHi((IV)RETVAL);
89 XS(XS_Perf__Trace__Context_common_lock_depth);
90 XS(XS_Perf__Trace__Context_common_lock_depth)
98 Perl_croak(aTHX_
"Usage: %s(%s)",
"Perf::Trace::Context::common_lock_depth",
"context");
106 XSprePUSH; PUSHi((IV)RETVAL);
122 const char*
file = __FILE__;
126 XS_VERSION_BOOTCHECK ;
128 newXSproto(
"Perf::Trace::Context::common_pc", XS_Perf__Trace__Context_common_pc, file,
"$");
129 newXSproto(
"Perf::Trace::Context::common_flags", XS_Perf__Trace__Context_common_flags, file,
"$");
130 newXSproto(
"Perf::Trace::Context::common_lock_depth", XS_Perf__Trace__Context_common_lock_depth, file,
"$");
132 call_list(PL_scopestack_ix, PL_unitcheckav);