#define printf_nocontext Perl_printf_nocontext
#endif
#ifdef PERL_CORE
-#define cv_ckproto Perl_cv_ckproto
#define cv_ckproto_len Perl_cv_ckproto_len
#define cv_clone Perl_cv_clone
#endif
#endif
#define die Perl_die
#ifdef PERL_CORE
-#define vdie Perl_vdie
+#define vdie S_vdie
#define die_where Perl_die_where
#endif
#define dounwind Perl_dounwind
#endif
#define op_refcnt_lock Perl_op_refcnt_lock
#define op_refcnt_unlock Perl_op_refcnt_unlock
+#if defined(PERL_IN_OP_C)
+#ifdef PERL_CORE
+#define linklist S_linklist
+#define listkids S_listkids
+#endif
+#endif
#ifdef PERL_CORE
-#define linklist Perl_linklist
#define list Perl_list
-#define listkids Perl_listkids
#endif
#define load_module Perl_load_module
#define vload_module Perl_vload_module
#define mode_from_discipline Perl_mode_from_discipline
#endif
#define moreswitches Perl_moreswitches
-#ifdef PERL_CORE
-#define my Perl_my
-#endif
#define my_atof Perl_my_atof
#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
#define my_bcopy Perl_my_bcopy
#ifdef PERL_CORE
#define sawparens Perl_sawparens
#define scalar Perl_scalar
-#define scalarkids Perl_scalarkids
-#define scalarseq Perl_scalarseq
+#endif
+#if defined(PERL_IN_OP_C)
+#ifdef PERL_CORE
+#define scalarkids S_scalarkids
+#define scalarseq S_scalarseq
+#endif
+#endif
+#ifdef PERL_CORE
#define scalarvoid Perl_scalarvoid
#endif
#define scan_bin Perl_scan_bin
#define setenv_getix Perl_setenv_getix
#endif
#endif
-#if defined(PERL_CORE) || defined(PERL_EXT)
#define setdefout Perl_setdefout
-#endif
#define share_hek Perl_share_hek
#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
#ifdef PERL_CORE
#if defined(PERL_IMPLICIT_CONTEXT)
#endif
#ifdef PERL_CORE
-#define cv_ckproto(a,b,c) Perl_cv_ckproto(aTHX_ a,b,c)
#define cv_ckproto_len(a,b,c,d) Perl_cv_ckproto_len(aTHX_ a,b,c,d)
#define cv_clone(a) Perl_cv_clone(aTHX_ a)
#endif
#define deprecate_old(a) Perl_deprecate_old(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define vdie(a,b) Perl_vdie(aTHX_ a,b)
+#define vdie(a,b) S_vdie(aTHX_ a,b)
#define die_where(a,b) Perl_die_where(aTHX_ a,b)
#endif
#define dounwind(a) Perl_dounwind(aTHX_ a)
#endif
#define op_refcnt_lock() Perl_op_refcnt_lock(aTHX)
#define op_refcnt_unlock() Perl_op_refcnt_unlock(aTHX)
+#if defined(PERL_IN_OP_C)
+#ifdef PERL_CORE
+#define linklist(a) S_linklist(aTHX_ a)
+#define listkids(a) S_listkids(aTHX_ a)
+#endif
+#endif
#ifdef PERL_CORE
-#define linklist(a) Perl_linklist(aTHX_ a)
#define list(a) Perl_list(aTHX_ a)
-#define listkids(a) Perl_listkids(aTHX_ a)
#endif
#define vload_module(a,b,c,d) Perl_vload_module(aTHX_ a,b,c,d)
#ifdef PERL_CORE
#define mode_from_discipline(a,b) Perl_mode_from_discipline(aTHX_ a,b)
#endif
#define moreswitches(a) Perl_moreswitches(aTHX_ a)
-#ifdef PERL_CORE
-#define my(a) Perl_my(aTHX_ a)
-#endif
#define my_atof(a) Perl_my_atof(aTHX_ a)
#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
#define my_bcopy Perl_my_bcopy
#ifdef PERL_CORE
#define sawparens(a) Perl_sawparens(aTHX_ a)
#define scalar(a) Perl_scalar(aTHX_ a)
-#define scalarkids(a) Perl_scalarkids(aTHX_ a)
-#define scalarseq(a) Perl_scalarseq(aTHX_ a)
+#endif
+#if defined(PERL_IN_OP_C)
+#ifdef PERL_CORE
+#define scalarkids(a) S_scalarkids(aTHX_ a)
+#define scalarseq(a) S_scalarseq(aTHX_ a)
+#endif
+#endif
+#ifdef PERL_CORE
#define scalarvoid(a) Perl_scalarvoid(aTHX_ a)
#endif
#define scan_bin(a,b,c) Perl_scan_bin(aTHX_ a,b,c)
#define setenv_getix(a) Perl_setenv_getix(aTHX_ a)
#endif
#endif
-#if defined(PERL_CORE) || defined(PERL_EXT)
#define setdefout(a) Perl_setdefout(aTHX_ a)
-#endif
#define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c)
#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
#ifdef PERL_CORE