7397d80ddd
This stuff is needed by all scripting engines; move it from the Perl engine source to a more common place. Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Cc: Ingo Molnar <mingo@elte.hu> Cc: Steven Rostedt <rostedt@goodmis.org> Cc: Keiichi KII <k-keiichi@bx.jp.nec.com> Cc: Peter Zijlstra <a.p.zijlstra@chello.nl> Cc: Paul Mackerras <paulus@samba.org> Cc: Arnaldo Carvalho de Melo <acme@redhat.com> LKML-Reference: <1264580883-15324-4-git-send-email-tzanussi@gmail.com> Signed-off-by: Frederic Weisbecker <fweisbec@gmail.com>
48 lines
1.1 KiB
C
48 lines
1.1 KiB
C
#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)
|
|
#define pTHX void
|
|
#define CV void
|
|
#define dXSUB_SYS
|
|
#define pTHX_
|
|
static inline void newXS(const char *a, void *b, const char *c) {}
|
|
static void boot_Perf__Trace__Context(pTHX_ CV *cv) {}
|
|
static void boot_DynaLoader(pTHX_ CV *cv) {}
|
|
#else
|
|
#include <EXTERN.h>
|
|
#include <perl.h>
|
|
void boot_Perf__Trace__Context(pTHX_ CV *cv);
|
|
void boot_DynaLoader(pTHX_ CV *cv);
|
|
typedef PerlInterpreter * INTERP;
|
|
#endif
|
|
|
|
#endif /* __PERF_TRACE_EVENT_PERL_H */
|