mirror of
https://github.com/adulau/aha.git
synced 2024-12-27 03:06:10 +00:00
3a9a0beba2
When I added the xs callbacks into perf, I forgot to re-check the no-libperl case. This patch fixes the undefined reference error for that. Reported-by: Arnaldo Carvalho de Melo <acme@ghostprotocols.net> Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Cc: Frederic Weisbecker <fweisbec@gmail.com> Cc: Mike Galbraith <efault@gmx.de> Cc: Peter Zijlstra <a.p.zijlstra@chello.nl> Cc: Paul Mackerras <paulus@samba.org> LKML-Reference: <1260153712.6564.4.camel@tropicana> Signed-off-by: Ingo Molnar <mingo@elte.hu>
55 lines
1.3 KiB
C
55 lines
1.3 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
|
|
|
|
struct scripting_context {
|
|
void *event_data;
|
|
};
|
|
|
|
int common_pc(struct scripting_context *context);
|
|
int common_flags(struct scripting_context *context);
|
|
int common_lock_depth(struct scripting_context *context);
|
|
|
|
#endif /* __PERF_TRACE_EVENT_PERL_H */
|