cachepc-linux

Fork of AMDESE/linux with modifications for CachePC side-channel attack
git clone https://git.sinitax.com/sinitax/cachepc-linux
Log | Files | Refs | README | LICENSE | sfeed.txt

Context.c (3040B)

      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