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
30XS(XS_Perf__Trace__Context_common_pc); /* prototype to pass -Wmissing-prototypes */
31XS(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
53XS(XS_Perf__Trace__Context_common_flags); /* prototype to pass -Wmissing-prototypes */
54XS(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
76XS(XS_Perf__Trace__Context_common_lock_depth); /* prototype to pass -Wmissing-prototypes */
77XS(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
99extern "C"
100#endif
101XS(boot_Perf__Trace__Context); /* prototype to pass -Wmissing-prototypes */
102XS(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