trace-event-perl.h 1.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. #ifndef __PERF_TRACE_EVENT_PERL_H
  2. #define __PERF_TRACE_EVENT_PERL_H
  3. #ifdef NO_LIBPERL
  4. typedef int INTERP;
  5. #define dSP
  6. #define ENTER
  7. #define SAVETMPS
  8. #define PUTBACK
  9. #define SPAGAIN
  10. #define FREETMPS
  11. #define LEAVE
  12. #define SP
  13. #define ERRSV
  14. #define G_SCALAR (0)
  15. #define G_DISCARD (0)
  16. #define G_NOARGS (0)
  17. #define PUSHMARK(a)
  18. #define SvTRUE(a) (0)
  19. #define XPUSHs(s)
  20. #define sv_2mortal(a)
  21. #define newSVpv(a,b)
  22. #define newSVuv(a)
  23. #define newSViv(a)
  24. #define get_cv(a,b) (0)
  25. #define call_pv(a,b) (0)
  26. #define perl_alloc() (0)
  27. #define perl_construct(a) (0)
  28. #define perl_parse(a,b,c,d,e) (0)
  29. #define perl_run(a) (0)
  30. #define perl_destruct(a) (0)
  31. #define perl_free(a) (0)
  32. #define pTHX void
  33. #define CV void
  34. #define dXSUB_SYS
  35. #define pTHX_
  36. static inline void newXS(const char *a, void *b, const char *c) {}
  37. static void boot_Perf__Trace__Context(pTHX_ CV *cv) {}
  38. static void boot_DynaLoader(pTHX_ CV *cv) {}
  39. #else
  40. #include <EXTERN.h>
  41. #include <perl.h>
  42. void boot_Perf__Trace__Context(pTHX_ CV *cv);
  43. void boot_DynaLoader(pTHX_ CV *cv);
  44. typedef PerlInterpreter * INTERP;
  45. #endif
  46. #endif /* __PERF_TRACE_EVENT_PERL_H */