1/* 2 * This file was generated automatically by ExtUtils::ParseXS version 2.18_02 from the 3 * contents of Context.xs. Do not edit this file, edit Context.xs instead. 4 * 5 * ANY CHANGES MADE HERE WILL BE LOST! 6 * 7 */ 8 9#line 1 "Context.xs" 10/* 11 * Context.xs. XS interfaces for perf trace. 12 * 13 * Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com> 14 * 15 * This program is free software; you can redistribute it and/or modify 16 * it under the terms of the GNU General Public License as published by 17 * the Free Software Foundation; either version 2 of the License, or 18 * (at your option) any later version. 19 * 20 * This program is distributed in the hope that it will be useful, 21 * but WITHOUT ANY WARRANTY; without even the implied warranty of 22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23 * GNU General Public License for more details. 24 * 25 * You should have received a copy of the GNU General Public License 26 * along with this program; if not, write to the Free Software 27 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 28 * 29 */ 30 31#include "EXTERN.h" 32#include "perl.h" 33#include "XSUB.h" 34#include "../../../perf.h" 35#include "../../../util/trace-event.h" 36 37#ifndef PERL_UNUSED_VAR 38# define PERL_UNUSED_VAR(var) if (0) var = var 39#endif 40 41#line 42 "Context.c" 42 43XS(XS_Perf__Trace__Context_common_pc); /* prototype to pass -Wmissing-prototypes */ 44XS(XS_Perf__Trace__Context_common_pc) 45{ 46#ifdef dVAR 47 dVAR; dXSARGS; 48#else 49 dXSARGS; 50#endif 51 if (items != 1) 52 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_pc", "context"); 53 PERL_UNUSED_VAR(cv); /* -W */ 54 { 55 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0))); 56 int RETVAL; 57 dXSTARG; 58 59 RETVAL = common_pc(context); 60 XSprePUSH; PUSHi((IV)RETVAL); 61 } 62 XSRETURN(1); 63} 64 65 66XS(XS_Perf__Trace__Context_common_flags); /* prototype to pass -Wmissing-prototypes */ 67XS(XS_Perf__Trace__Context_common_flags) 68{ 69#ifdef dVAR 70 dVAR; dXSARGS; 71#else 72 dXSARGS; 73#endif 74 if (items != 1) 75 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_flags", "context"); 76 PERL_UNUSED_VAR(cv); /* -W */ 77 { 78 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0))); 79 int RETVAL; 80 dXSTARG; 81 82 RETVAL = common_flags(context); 83 XSprePUSH; PUSHi((IV)RETVAL); 84 } 85 XSRETURN(1); 86} 87 88 89XS(XS_Perf__Trace__Context_common_lock_depth); /* prototype to pass -Wmissing-prototypes */ 90XS(XS_Perf__Trace__Context_common_lock_depth) 91{ 92#ifdef dVAR 93 dVAR; dXSARGS; 94#else 95 dXSARGS; 96#endif 97 if (items != 1) 98 Perl_croak(aTHX_ "Usage: %s(%s)", "Perf::Trace::Context::common_lock_depth", "context"); 99 PERL_UNUSED_VAR(cv); /* -W */ 100 { 101 struct scripting_context * context = INT2PTR(struct scripting_context *,SvIV(ST(0))); 102 int RETVAL; 103 dXSTARG; 104 105 RETVAL = common_lock_depth(context); 106 XSprePUSH; PUSHi((IV)RETVAL); 107 } 108 XSRETURN(1); 109} 110 111#ifdef __cplusplus 112extern "C" 113#endif 114XS(boot_Perf__Trace__Context); /* prototype to pass -Wmissing-prototypes */ 115XS(boot_Perf__Trace__Context) 116{ 117#ifdef dVAR 118 dVAR; dXSARGS; 119#else 120 dXSARGS; 121#endif 122 const char* file = __FILE__; 123 124 PERL_UNUSED_VAR(cv); /* -W */ 125 PERL_UNUSED_VAR(items); /* -W */ 126 XS_VERSION_BOOTCHECK ; 127 128 newXSproto("Perf::Trace::Context::common_pc", XS_Perf__Trace__Context_common_pc, file, "$"); 129 newXSproto("Perf::Trace::Context::common_flags", XS_Perf__Trace__Context_common_flags, file, "$"); 130 newXSproto("Perf::Trace::Context::common_lock_depth", XS_Perf__Trace__Context_common_lock_depth, file, "$"); 131 if (PL_unitcheckav) 132 call_list(PL_scopestack_ix, PL_unitcheckav); 133 XSRETURN_YES; 134} 135