1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- #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 */
|