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