1a59d1b8e0
Based on 1 normalized pattern(s): this program is free software you can redistribute it and or modify it under the terms of the gnu general public license as published by the free software foundation either version 2 of the license or at your option any later version this program is distributed in the hope that it will be useful but without any warranty without even the implied warranty of merchantability or fitness for a particular purpose see the gnu general public license for more details you should have received a copy of the gnu general public license along with this program if not write to the free software foundation inc 59 temple place suite 330 boston ma 02111 1307 usa extracted by the scancode license scanner the SPDX license identifier GPL-2.0-or-later has been chosen to replace the boilerplate/reference in 1334 file(s). Signed-off-by: Thomas Gleixner <tglx@linutronix.de> Reviewed-by: Allison Randal <allison@lohutok.net> Reviewed-by: Richard Fontana <rfontana@redhat.com> Cc: linux-spdx@vger.kernel.org Link: https://lkml.kernel.org/r/20190527070033.113240726@linutronix.de Signed-off-by: Greg Kroah-Hartman <gregkh@linuxfoundation.org>
123 lines
3 KiB
C
123 lines
3 KiB
C
// SPDX-License-Identifier: GPL-2.0-or-later
|
|
/*
|
|
* This file was generated automatically by ExtUtils::ParseXS version 2.18_02 from the
|
|
* contents of Context.xs. Do not edit this file, edit Context.xs instead.
|
|
*
|
|
* ANY CHANGES MADE HERE WILL BE LOST!
|
|
*/
|
|
#include <stdbool.h>
|
|
#ifndef HAS_BOOL
|
|
# define HAS_BOOL 1
|
|
#endif
|
|
#line 1 "Context.xs"
|
|
/*
|
|
* Context.xs. XS interfaces for perf script.
|
|
*
|
|
* Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com>
|
|
*/
|
|
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
#include "../../../perf.h"
|
|
#include "../../../util/trace-event.h"
|
|
|
|
#ifndef PERL_UNUSED_VAR
|
|
# define PERL_UNUSED_VAR(var) if (0) var = var
|
|
#endif
|
|
|
|
#line 42 "Context.c"
|
|
|
|
XS(XS_Perf__Trace__Context_common_pc); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_Perf__Trace__Context_common_pc)
|
|
{
|
|
#ifdef dVAR
|
|
dVAR; dXSARGS;
|
|
#else
|
|
dXSARGS;
|
|
#endif
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_pc", "context");
|
|
PERL_UNUSED_VAR(cv); /* -W */
|
|
{
|
|
struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
|
|
int RETVAL;
|
|
dXSTARG;
|
|
|
|
RETVAL = common_pc(context);
|
|
XSprePUSH; PUSHi((IV)RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
|
|
XS(XS_Perf__Trace__Context_common_flags); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_Perf__Trace__Context_common_flags)
|
|
{
|
|
#ifdef dVAR
|
|
dVAR; dXSARGS;
|
|
#else
|
|
dXSARGS;
|
|
#endif
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_flags", "context");
|
|
PERL_UNUSED_VAR(cv); /* -W */
|
|
{
|
|
struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
|
|
int RETVAL;
|
|
dXSTARG;
|
|
|
|
RETVAL = common_flags(context);
|
|
XSprePUSH; PUSHi((IV)RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
|
|
XS(XS_Perf__Trace__Context_common_lock_depth); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_Perf__Trace__Context_common_lock_depth)
|
|
{
|
|
#ifdef dVAR
|
|
dVAR; dXSARGS;
|
|
#else
|
|
dXSARGS;
|
|
#endif
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_lock_depth", "context");
|
|
PERL_UNUSED_VAR(cv); /* -W */
|
|
{
|
|
struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0)));
|
|
int RETVAL;
|
|
dXSTARG;
|
|
|
|
RETVAL = common_lock_depth(context);
|
|
XSprePUSH; PUSHi((IV)RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
#ifdef __cplusplus
|
|
extern "C"
|
|
#endif
|
|
XS(boot_Perf__Trace__Context); /* prototype to pass -Wmissing-prototypes */
|
|
XS(boot_Perf__Trace__Context)
|
|
{
|
|
#ifdef dVAR
|
|
dVAR; dXSARGS;
|
|
#else
|
|
dXSARGS;
|
|
#endif
|
|
const char* file = __FILE__;
|
|
|
|
PERL_UNUSED_VAR(cv); /* -W */
|
|
PERL_UNUSED_VAR(items); /* -W */
|
|
XS_VERSION_BOOTCHECK ;
|
|
|
|
newXSproto("Perf::Trace::Context::common_pc", XS_Perf__Trace__Context_common_pc, file, "$");
|
|
newXSproto("Perf::Trace::Context::common_flags", XS_Perf__Trace__Context_common_flags, file, "$");
|
|
newXSproto("Perf::Trace::Context::common_lock_depth", XS_Perf__Trace__Context_common_lock_depth, file, "$");
|
|
if (PL_unitcheckav)
|
|
call_list(PL_scopestack_ix, PL_unitcheckav);
|
|
XSRETURN_YES;
|
|
}
|
|
|