123 lines · c
1// SPDX-License-Identifier: GPL-2.0-or-later2/*3 * This file was generated automatically by ExtUtils::ParseXS version 2.18_02 from the4 * 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_BOOL10# define HAS_BOOL 111#endif12#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_VAR25# define PERL_UNUSED_VAR(var) if (0) var = var26#endif27 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 dVAR34 dVAR; dXSARGS;35#else36 dXSARGS;37#endif38 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 dVAR57 dVAR; dXSARGS;58#else59 dXSARGS;60#endif61 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 dVAR80 dVAR; dXSARGS;81#else82 dXSARGS;83#endif84 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 __cplusplus99extern "C"100#endif101XS(boot_Perf__Trace__Context); /* prototype to pass -Wmissing-prototypes */102XS(boot_Perf__Trace__Context)103{104#ifdef dVAR105 dVAR; dXSARGS;106#else107 dXSARGS;108#endif109 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