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