2009-11-25 02:15:48 -05:00
|
|
|
#ifndef __PERF_TRACE_EVENT_PERL_H
|
|
|
|
#define __PERF_TRACE_EVENT_PERL_H
|
|
|
|
#ifdef NO_LIBPERL
|
|
|
|
typedef int INTERP;
|
|
|
|
#define dSP
|
|
|
|
#define ENTER
|
|
|
|
#define SAVETMPS
|
|
|
|
#define PUTBACK
|
|
|
|
#define SPAGAIN
|
|
|
|
#define FREETMPS
|
|
|
|
#define LEAVE
|
|
|
|
#define SP
|
|
|
|
#define ERRSV
|
|
|
|
#define G_SCALAR (0)
|
|
|
|
#define G_DISCARD (0)
|
|
|
|
#define G_NOARGS (0)
|
|
|
|
#define PUSHMARK(a)
|
|
|
|
#define SvTRUE(a) (0)
|
|
|
|
#define XPUSHs(s)
|
|
|
|
#define sv_2mortal(a)
|
|
|
|
#define newSVpv(a,b)
|
|
|
|
#define newSVuv(a)
|
|
|
|
#define newSViv(a)
|
|
|
|
#define get_cv(a,b) (0)
|
|
|
|
#define call_pv(a,b) (0)
|
|
|
|
#define perl_alloc() (0)
|
|
|
|
#define perl_construct(a) (0)
|
|
|
|
#define perl_parse(a,b,c,d,e) (0)
|
|
|
|
#define perl_run(a) (0)
|
|
|
|
#define perl_destruct(a) (0)
|
|
|
|
#define perl_free(a) (0)
|
2009-11-25 02:15:50 -05:00
|
|
|
#define pTHX void
|
|
|
|
#define CV void
|
|
|
|
#define dXSUB_SYS
|
|
|
|
#define pTHX_
|
|
|
|
static inline void newXS(const char *a, void *b, const char *c) {}
|
2009-12-06 21:41:52 -05:00
|
|
|
static void boot_Perf__Trace__Context(pTHX_ CV *cv) {}
|
|
|
|
static void boot_DynaLoader(pTHX_ CV *cv) {}
|
2009-11-25 02:15:48 -05:00
|
|
|
#else
|
|
|
|
#include <EXTERN.h>
|
|
|
|
#include <perl.h>
|
2009-12-06 21:41:52 -05:00
|
|
|
void boot_Perf__Trace__Context(pTHX_ CV *cv);
|
|
|
|
void boot_DynaLoader(pTHX_ CV *cv);
|
2009-11-25 02:15:48 -05:00
|
|
|
typedef PerlInterpreter * INTERP;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
struct scripting_context {
|
|
|
|
void *event_data;
|
|
|
|
};
|
|
|
|
|
2009-11-30 02:18:48 -05:00
|
|
|
int common_pc(struct scripting_context *context);
|
|
|
|
int common_flags(struct scripting_context *context);
|
|
|
|
int common_lock_depth(struct scripting_context *context);
|
2009-11-25 02:15:50 -05:00
|
|
|
|
2009-11-25 02:15:48 -05:00
|
|
|
#endif /* __PERF_TRACE_EVENT_PERL_H */
|