+#ifdef PERL_CORE
+#define deb_stack_n(a,b,c,d,e) S_deb_stack_n(aTHX_ a,b,c,d,e)
+#endif
+#endif
+#ifdef PERL_CORE
+#define pad_new(a) Perl_pad_new(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define pad_undef(a) Perl_pad_undef(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define pad_add_name(a,b,c,d) Perl_pad_add_name(aTHX_ a,b,c,d)
+#endif
+#ifdef PERL_CORE
+#define pad_add_anon(a,b) Perl_pad_add_anon(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
+#define pad_check_dup(a,b,c) Perl_pad_check_dup(aTHX_ a,b,c)
+#endif
+#ifdef DEBUGGING
+#ifdef PERL_CORE
+#define pad_setsv(a,b) Perl_pad_setsv(aTHX_ a,b)
+#endif
+#endif
+#ifdef PERL_CORE
+#define pad_block_start(a) Perl_pad_block_start(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define pad_tidy(a) Perl_pad_tidy(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define do_dump_pad(a,b,c,d) Perl_do_dump_pad(aTHX_ a,b,c,d)
+#endif
+#ifdef PERL_CORE
+#define pad_fixup_inner_anons(a,b,c) Perl_pad_fixup_inner_anons(aTHX_ a,b,c)
+#endif
+#ifdef PERL_CORE
+#define pad_push(a,b,c) Perl_pad_push(aTHX_ a,b,c)
+#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define pad_findlex(a,b,c,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
+#endif
+# if defined(DEBUGGING)
+#ifdef PERL_CORE
+#define cv_dump(a,b) S_cv_dump(aTHX_ a,b)
+#endif
+# endif
+#endif
+#ifdef PERL_CORE
+#define find_runcv(a) Perl_find_runcv(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define free_tied_hv_pool() Perl_free_tied_hv_pool(aTHX)
+#endif
+#if defined(DEBUGGING)
+#ifdef PERL_CORE
+#define get_debug_opts(a) Perl_get_debug_opts(aTHX_ a)
+#endif